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PART NUMBER 

REV 

LM 

9435IB-0OI9 
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P«NT 

ITEM 


0002 
C002A 
00028 
C0C3 
C003A 
0004 
0004A 
\ 0005 
OOOSA 
0006 
000 6 A 
0007 
0007A 
COC8 
00G8A 

0009 
0009 A 

0010 

eeioA 


QUANTITY 

m 


om.cto 

OOOOi.OOO 


UNIT 

OF 




DWG. 

SIZE 


PART NUMBER 


9415 U-#OOT 

943519-9901 


DESCRIPTION 


im;;rx4iiti>,#ioT0 sys cisuc MONtm-^x99|o 
AL • 161 T ! P » IN 1 T S AL 1 2AT t ON •P80TO-PX990 
PX9NTP-8CC1 

NUS7 8€ PI8ST IN 8X9NTP-800T 
AL» EMi6t«E880N IMTEMOT NI0C-PX990 
PX9NtP-ACCf 

At, NKSPNO.WOOKSPi^E MANA6EMiNT-PX990 
PX9f«Tf-#CCT 

ALt OPSTPP.OMO STftlNO P«0€tP«0TQ-PX990 
PX9f»T8-ifCT 

Ai, POOOt tOOTPUT DATA, FRONT PANEi-FX990| 
PX9PTF-PCCT 

Ait OTFELOt INPUT CHARACTER $TR 1N0-PX99C| 
PX9NTP-PCCT 

ALt OTPEXf INPUT HEXAOECINAL NUHBER-PX99|0 
PX9PTP-RCCT 

ALf SUPXSRtSUPERVlSOR CALL I/F-PX990 
PX9PTP-P€Ct 

ALt CONYRTt ASCI I/BINARY C0NVERSI0N-PX9^( 
PX9NtP-PeCT 


VENDOR PART NUMBER 


00001.000 


00001.000 


^001.000 


00001.000 


00001. £00 


00001.000 


00001.000 


QOOOl . 000 


A 

EA 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


94S3S4-9901 


94S382-99C1 


945130-9901 


945369-9901 


949396-9901 


945357-9901 


9453*1-9901 


945392-9901 


iMlAFrSAAAN 


L 




sfl-fltl. 


DATE 


CKD DRAFTSMAN . DATE 

L6mu 


DESIGN ENGINEER 


TITLE 


SPtPX9NfP LINKABLE PARTSfAL I-PK990 


DATE 


APPD. PROJECT ENGINEER 


DATE 




y/s/?b 


DATE 




PART NUAA8ER 

\J^ 943510-00191 
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date 
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LM 
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tmiM 


QUANTITY 


UNIT 

OF 

ISSUE 


DWG. 

SIZE 


PART NimSER 


0 ESC R I PT I O N 


Ait ASfiMlIitiSSiPI 
PX 9 KTF*P 0 ef 

Ait 0*A«UtCHAKACTEA INAUT«f>X990 
AX 9 ATA-A 0 GT 

AL* VSR96A«USEA m06 SAVSR eAlLS«AX990 
AX9FTA-A0CT 

Ait F>9IGtI/0 01SPATCNift>fX990 
PX9PTA-ACCt 

Ait GSATSatTlIASA OiVlCl f»IVtA-PX990 
PX9AfA*«0Cl 

Ait SftSET tAEAK90INT-PJ»9G 
PX9#tP»PCCT 

Ait AAAGEtlXTIlACT «AHeE/PAAAMETiR$>PX9^ 
PX9PtP-iCCT 

Ai, IPfliSPiCT «fPICRV-PX999 
AX9ftTP-tCCt 

Ai, KtiftIPtCT CPU lHlCJCfSS0A-PX99« 
AXSPTP-AGCT 

Ait tAhKSFtIWtPECT WORKS PACi»PX990 
PX9R ?#-•«€? 


VENDOR PART NUMBER 


i 

COUA 
0012 
0O12A 
0013 
C013A 
CO 14 
0014A 
0015 
00 ISA 
00 1 A 
OOIAA 
0017 
0017A 

coif 

OOlSA 

0019 
0019A 

0020 
^ 20 A 


0000l«000 


00001,000 


00001,000 


00001,000 


00001,000 


00001.000 


00001,000 


00001, 000 


00001,000 


00001,000 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


9453A0-9901 


94S340-9901 


94S3f3-9901 


945314-9901 


945353-9901 


945377-9901 


945375-9901 


94S3#0-99Cl 


945359-9901 


94S3<3-99ei 


DRAFTSMAN 
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OGOei.OGO 


0@dfil*4}«0 


aooei.edo 


eeooi .oeo 


0 ^tl.Q «0 


OOdOl.OQO 


OOOOl .000 


00001.000 


UNIT 

OF 




DWG. 

SIZE 


PART NUMBER 


DESCRIPTION 


VENDOR PART NUMBER 


nr 

002 lA 
0022 
0Q22A 
0023 
0023A 
00 2A 
0024A 

002s 

C02SA 

(K) 2 « 

0020 A 

^27 

G027A 

0028 

C02SA 

0029 
C029A 

0030 
G030A 


Uftsman 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


949l«2«900l 


9AS34§*99€1 


94 S 3 e 4 - 990 l 


94934«-f«0l 


94Sit7-090l 


949370 * 9^1 


949311*9901 


945313*9901 


9453AA-9901 


949348*9901 


iL, 

PM9Pt»-fCCT 

kL$ MEOM.IIOetFV MEN0IIV*RX990 
PR997P*tCC1 

AL* IH^COtfNIGIFV CAO*RX990 
PX9Pt#*80Ct 

Ai. HCOiEOtMOlFY AISI Sri«S*9X990 
PX9#»tR*(M3CT 

AL. PCOHftRf^IFV MMCSRACE*9X990 
PX9At9*80G1 

AL» PiTWtCtFXINT MEMORY tCAU RAM6ES*PX99|0 
PX9PTP-8CCT 

H., OmSflltMlIMT ^PSMOT*PX990 
PX9MtP*WCT 

AL« PXLCOAfLOAOEX OXIVER*PX990 
PX9PTP-«CCt 

AL, OYiXLAVtOVERLAV PX0CESSOR*PX990 
PX9Mt8-80Ct 

AL, PACMlCtLOAO PACM PftOOftAMNiR*PX99e 
PX9#1F-WCT 


DATE 


CKO. DRAFTSMAN 


DATE DESIGN ENGINEER 
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945312-0901 


0043 00001.000 EA 
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945387-9901 
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MEMORY 

PHASE t,PX9«TR 
INCUUDE 
IN I TIP 
ERRINT 
NKSPMe 
CMSTPP 
PCOUT 
STFEUO 
OTMEX 
SUPVSR 
CONVRT 

asglkn 

CMARIN 

USRPGH 

PX9I0 

OSR733 

SB 

RANGE 

IM 

JC 

InwrSP 

INSPSS 

MODHE 

MOOCR 

HODREG 

MODWP 

PRTMMCR 

PRTSSN 

PXIOOR 

OVERLAY 

promld 

SSNAP 

SCNTBL 

RUNPGP 

SIIPR 

BKPPR 

clear 

FIND 

HXARTH 

WRTPRT 

FPDEFP 

CMOOEF 

PXOATA 

/* 

PHASE 1,LAL 
include 
PX9LAL 

/♦ 

PHASE l.TSACE 
INCLUDE 

TRACEMOO 

8ETREGN 

SETRACE 

/* 

PHASE 1,ABS 
INCLUDE 

A8SDMP 

A08LO 

/* 

PHASE IfPRPRG 
INCLUDi: 


must be first module 


MUST BE NEXT TO LAST MODULE 

must be last module of PX9MTR fPOOT) 
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943510 
943318 
943518 
943518 
943518 
943518 
943518 
943518 
943518 
943518 
943516 
943518 
943518 
943518 
943516 
943618 
943518 
943518 
943518 
943518 
943518 
943510 
943518 
943518 
943518 
943518 
9435 1 6 
943618 
943518 
943518 
943518 
943518 
943518 
943510 
943518 
943516 
943518 
943618 
943516 
943518 
943518 
943518 
943518 
943518 
943518 
943518 
943518 
943518 
943518 
943518 
943518 
943518 
943518 
943518 
943518 
943518 
943518 
943518 
943516 
943516 
943510 
943518 


SPSSSiii 
08000028 
00000030 
00000040^, 
00000050^ 
00000060 
00000070 
00000080 
00000090 
00000100 
00000110 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
00000280 
00000290 
00000300 
000003101 . 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 
00000560 
0000057^1^ 
00000589LF 
00000590 
00000600 
00000610 
00000620 
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PH0HP6 PAKT 1 

PAGE, 3 

943516 

0R80063P 

when constructing the tape, PROHPG part II 

943518 

00000640 

MUST 0g PLACED behind PROMPG PART I, 

943518 

000006S0 

/* 

943518 

00000660 

PHASE 1,BNPF 

943518 

00000670 

include 

943518 

00000680 

DM8NPF 

943518 

00000690 

/* 

943518 

00000700 

phase I.HIIU 

943518 

00000710 

INCLUDE 

943518 

00000720 

OMHL 

943516 

00000730 

/* 

943518 

00000740 

END 

943516 

00000750 

FOLLOWED 8YIUPFR0NT LOADER 

943518 

00000760 

PYRASM 

943518 

00000770 

FOLLOWED BVIUPFRONT LOADER 

943518 

00000780 

PX9E0T 

943516 

00000790 

FOLLOWED BV*RELOCATABLF MONITOR 

943518 

00000800 

/* 

943518 

00000810 



943518-9901** 
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N08VHT 

PHASE 0,PXSHTP 
INCiUD 
PHASE l,kAL 
INCIUD 

PHASE 1, TRACE 
INCLUDE 
PHASE 1,ABS 
INCLUD 

PHASE 1,PRPR6 
INCLUD 

PHASE IfBNPP 
INCLUD 

PHASE I, HILO 

INCLUD 

END 

♦END OP BUILD PHASE, 
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PX9MTP 

length IFFA PROGRAM 0RI6XN 8000 


MODULE 


prograh 

MODULE 

NAME 

length 

0RX6XN DATE 

TXME SOURCE 

XNITIA 

8030 

0000 


ERRINT 

001A 

0030 


WK8PM6 

006C 

004A 


CM8TPR 

0148 

00D6 


PCOUT 

8010 

021C 


6TPEL0 

0088 

022C 


8THEX 

0080 

0286 


8UPV8R 

009E 

0336 


CONVRT 

011E 

0304 


ASGLUN 

003C 

04F2 


CHARIN 

0000 

092E 


U8RPGM 

008A 

06FE 


PX9I0 

0146 

0608 


0SR733 

0494 

074E 


88 

0098 

0BA2 


RAN6E 

0046 

08FA 


IM 

0012 

0C40 


XC 

00 IC 

0C52 


XNWKSP 

0098 

0C6E 


XNSPSS 

0084 

0CC6 


MODME 

0030 

0CEA 


MOOCR 

0082 

0O1A 


M0DRE6 

0082 

0D9C 


MOOWP 

009C 

0E1E 


PRTMMC 

0096 

0E7A 


PRT88N 

006A 

0F10 


PXLOOR 

017A 

0F7A 


OVERLA 

007E 

10F4 


PROMLD 

002A 

1172 


SSNAP 

0080 

119C 


8CNTBL 

0030 

124C 


RUNPGM 

0098 

127C 


8XEPR 

009E 

1314 


BKPPR 

0064 

1372 


clear 

003A 

1306 


PXND 

00A6 

1410 


HXARTH 

006A 

I486 


WRTPRT 

004A 

1620 


PP0EF8 

0000 

166A 


CMDOIF 

00D4 

196A 


PXDATA 

031C 

163E 

0EFXNITX0N8 



NAME 

VALUE 

name 

value 

NAME 

VALUE 

NAME 

VALUE 

ACL 

0060 

ASLUN 

04F2 

*BDA 

000A* 

*BHA 

000C* 

BKPT 

17AA 

BKPTPR 

1372 

BKSTR 

1726 

BK8TRB 

1721 

blank 

16F2 

BPTA8 

17B0 

B8 

16FA 

B8FLG 

17E4 

CBO 

164C 

CBDSTG 

164E 

CBH 

1644 

CBH0 

1646 

*CBH2 

1648 

CBP 

1306 

CONOT 

063C 

*CHB 

163E 

♦CHBVAL 

1640 

clot 

067E 

CLEARP 

1820 

CL ST 

0304 

*CH0M8K 

0694 

CMOTBL 

196A 

CNVRT 

03E4 

COMMA 

16F9 

CPLSAV 

1710 

CR 

16F8 

CRLF 

16FE 

CRR 

13E2 

CRUOFF 

1FE0* 

CRUPRT 

1FA0* 

C8 

0801* 

C8BACK 

0000* 

C8FWD 

0000t 

C80PEN 

0790 

C8P 

0006 

C8RASC 

0798 

CSRwnD 

0000* 

CSS 

130C 

C8UNL0 

0000* 

C8WA8C 

089C 


PA6E 2 
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PX9MTP LfNSTM IFFA PP06RAM 0«1SIN §§§§ 


NAME 

value 

NAME 

VALUE 

NAME 

VALUE 

NAME 

VALUE 

C8W60F 

§8DC 

*0A6 

0i§B* 

0C7331 

074E 

0FBIA8 

16F0 

DMPSPR 

1722 

*OUM 

007F* 

EFMA8K 

0693 

El 

0030 

INT8IZ 

§§§A* 

EOR 

16F8 

E08Z6N 

1720 

ERBUP 

1701 

ERROR 

I6AE 

ER8TR 

1706 

ESC 

16F0 

EXCT 

08FE 

PIT 

M34 

♦PP8TRT 

FI00* 

FPWP 

F800* 

FREMEM 

181A 

PWO 

1410 

6ETBUF 

§090 

8ETCHR 

0S2E 

6ETFL0 

0232 

6ETFLN 

I22E 

GETHfX 

02BA 

9ETHXN 

0286 

*HA8 

0000* 

MIUM 

17P0 

HXAR 

I486 

ICP 

0C92 

IMP 

0C40 

INCHAR 

1660 

INIMEM 

004C 

INIT 

0000 

IN8CNT 

17E6 

10 

069E 

IRP 

0DAA 

I8RFL6 

177A 

188 

0CC6 

IWP 

0C66 

L0A88 

iF84 

LOAOOR 

1678 

L08UF 

1682 

U0C8A 

J67E 

LDCB8C 

1680 

LOCC 

167C 

*LOENTY 

1604 

L0FU8 

1676 

♦UDLDPT 

1606 

LDLUN 

1679 

LONMCC 

1608 

tOOPCO 

1674 

♦L0P6NM 

1609 

L0PR8 

1672 

LOPRT 

192A 

LOTBL 

1604 

UOUPL 

0F7A 

*LF 

16F9 

LGRASC 

08FI 

16MASC 

0A12 

LOAD 

0F7E 

LOAOOV 

0F9A 

LOWLIM 

17EE 

tLWP 

§066 

MfMWP 

17FA 

MINUS 

16F4 

MODCRU 

0D1C 

MOOMIM 

0CEA 

M00W8P 

0E1I 

mpnchr 

0A86 

MRP 

0082 

*N0CEIS 

000A* 

N0CM08 

163C 

NUMIP8 

0004* 

NUM8NP 

0004* 

NUMTR 

§i§4* 

NUMTTE 

0004* 

*QPEN 

0000* 

♦ OVLRET 

1128 

OVIY 

10P4 

PCOUT 

021E 

PIRIOO 

16F7 

PL 

1172 

PI.U8 

16P6 

PRB8UF 

1668 

PR8CC 

166C 

PRBUER 

1666 

PRCRIF 

094f 

PRINT 

§996 

PRNTC 

0992 

PRNTH0 

0970 

PRNTHN 

0976 

PRNTHX 

097C 

PROMPT 

1702 

PRTCRU 

0E8C 

PRTMEM 

0E7A 

PRTPRD 

1724 

PRTS8 

0F10 

PTDIFF 

1718 

PT8UM 

1712 

RA'NGEX 

0C02 

*R0A8C 

0009* 

RETBIJF 

0094 

R68TR 

1730 

R68TRB 

1732 

ROMLDR 

FFFA* 

RR 

0064 

RUBOUT 

16PC 

RUN 

127C 

*RHP 

009C 

8AVWP 

1701 

8BP 

0IA4 

8CT8 

124C 

SETLUN 

0666 

8IE 

1314 

8XEINT 

1344 

8IE8T 

170A 

8IEWP 

1708 

SIINPO 

170C 

8NAP8 

1764 

8NPENT 

§008* 

8NPTA8 

1 78 A 

SREGN 

1604 

888 

119C 

888TR 

1734 

S8STRB 

1731 

8TRPRT 

17E2 

tSVC 

007C* 

8VCALT 

lies 

8VCPRB 

1094 

SVCSF6 

1698 

8VCSR 

§396 

8VCSRA 

0394 

*8VCU8R 

1699 

*8VCM10 

17F8 

#8VCW7 

17P2 

8VCWP 

17E4 

SVCMRT 

1662 

TERM 

0604 

TERMCR 

16PD 

TRACE 

1774 

TPFL88 

0000* 

TRMI8M 

0004* 

TRINTH 

1778 

TRLOW 

0002* 

TRNARA 

199A 

TRTIL 

173C 

TRTYPE 

§§§6* 

TRVl 

0008* 

TTTBL 

177C 

*UEFM8K 

0699 

UEMA8K 

0692 

U8RPC 

17IA 

U8RST 

17EC 

U8RMP 

17E8 

U8RMSP 

17CI 

♦WTASC 

0008* 

tIRO 

16F3 
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MODUUE 

NAME 

LENGTH 

PROGRAM 

ORIGIN 

DATE 

TIME 

MODULE 

SOURCE 

PX91AL 

06A0 

195A 






0 E P I N 

I T I 0 N S 



NAME 

VALUE 

NAME VALUE 

NAME VALUE 

NAME 

VALUE 


•lALCSR 1A18 
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SOStiO 949279 * t 

GtiRTiei • 




RAGE 4 

TRACf 

length 069C PROGRAM 

ORIGIN 

199A 



HOOUiE 


PROGRAM 




MODULE 

NAME 

LENGTH 

origin 

DATE 


TIME 

SOURCE 

TRAC EM 

0598 

199A 





SETREG 

i0A6 

1EB2 





SETRAC 

R09E 

IP 98 







0 E P I N I 

T I 0 N 

8 



NAME 

VALUE 

NAME VALUE 

NAME 

VALUE 

NAME 

VALUE 

SR 

lEBS 

8TRACE 1P74 

TRACER 

1A9R 
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SDSteO S4S275 * * 00187126 * 


AB8 

length 

0456 PPOOPAH 

ORIGIN 

195A 


MODULE 

NAME 

LENGTH 

PROGRAM 

ORIGIN 

DATE 


TIME 

A88DMP 

ABSLD 

0242 

0214 

195A 

1B9C 






0 E P 1 N 

1 T I 0 

N 8 


NAME 

VALUE 

NAME VALUE 

NAME 

VALUE 

NAME 

*AB8BUT 

1B9C 

ABSLOR 1BB2 

*DPRG 

19CC 



PA6E S 


HODUU 

soufice 


VAUUf 
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S09ii0 949879 *t 99197128 • 

PRm LENGTH 9899 PROGRAH ORIGIN 199A 

MODULE PROGRAM 

NAME LENGTH ORIGIN DATE 

PRQMP6 9699 195A 

DEPINITI0N8 

NAME value name VALUE NAME VALUE 

P68IA8 19AA *PPC8I lA6f PR0G81 I9AC 


C 


o 
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SN07 UEN6TH 0988 0RO69AH 0RI6IN 195A 


MODULE 

NAME 

LENGTH 

PROGRAM 

ORIGIN DATE 


TIME 

MODULE 

SOURCE 

DHBNPF 

0388 

108A 






0 E f I N I T I 0 

N 8 



NAME 

VALUE 

name value name 

VALUE 

NAME 

value 


*OHBNPF t9EA 
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SOSLIO 9459fB * ♦ ii 107 126 * PA6f • 


HILO 

length 

0200 PROGRAM 

ORIGIN 

19SA 



MODULC 

NAME 

LENGTH 

PROGRAM 

ORIGIN 

DATE 


TIME 

MODULI 

SQURei 

DMHL 

0206 

195A 







D E E I N I 

T I 0 

N a 



NAME 

VALUE name value 

NAME 

VALUE 

name 

VALUE 


•DHHL 19CA 


UNKING COMPUTfO 




SHEET 


REV STATUS 
OF SHEETS 


SHEET 


UNLESS oTHCNwisc SPcciricol\yv^< 
DIMENSIONS APIE IN INCHES | X 
TOtESANCES 
ANGLES -r i* 

1 ^LACE decimals OlO 

2 PUkCt DECIMAL ± 02 


iDENTimriNO NUMSEfVS 
SHOWN IN l»Af9ENTHESES 
EON NEEENENCE ONLY 


INTENNNET OWQ IN 
ACCONDANCE WITH 

milstoioo 




Texas Instruments 

INCONPON AfCD 

Cguipmmtt Group MIm, Toxm 


AL, INITIP, INITIALIZATION, PR0T0TYPE-PX990 


SIZE I CODE lOENT NO I ORAWING NO 


A 96214 


943519-9901 


1 of 4 























♦♦INITIATE MONITOR PROTD 


943519 * 99(11 •♦ 


PAGE 00«g 


Bsm 


♦ 


lOT 

'INITIPI 




* TITLE* 

INITIP 

0045 



* REVISION* 


0006 



# 


original 

0007 



* COHPUTEP* 

990»ASM 

000M 



* ARSTRACTI 

INITIALIZES the monitor WHENEVER IT IS 

0009 



# 


LnAOFO OR restarted, BRANCHES TO 

001 M 



♦ 


COMMAND STRING PROCESSOR. 

0011 



* CALL 

ING SEQUENCE* 

0012 



t 


LOAD OP restart MONITOR 

0013 





OR 

0014 



t ■ 


a 8INIT 

0015 



♦ 



0016 




UIE 

init 

0017 




Pir 

CMDTBL 

0016 




REF 

0C7331 

6019 




REF 

CSP 

0020 




REF 

SVCSR 

0021 




REF 

SVCWP 

8022 




REF 

El 

0023 




REF 

fremem 

0024 




REF 

GETBUF 

0025 





I NIHEH 

0026 




R£F 

FPmP 

0027 




REF 

FP8TRT 

0026 




REF 

CRUPRT 

8029 



♦ 



0030 


0088 

WRTPRT 

FQU 

0 

8031 



♦ 



8032 


8801 

R1 

FOIJ 

1 

0033 


0802 

R? 

FQU 

2 

0034 


0003 

R3 

FOU 

3 

8035 


08,04 

R4 

FQU 

4 

8036 


800C 

R12 

FOU 

12 

0037 


0088 * 

INIT 

EOU 

* 

8038 

8880 

0260 


LWPI 

FREMEM 


0082 

0800 




0039 

8804 

830« 


LIMI 

>2 


0886 

0882 




W040 



♦ 



8041 



# 

rUFAR 

f PARITY ERRORS 

8042 



Hr 



8043 

8886 

0360 


RSFT 


8044 






1045 



# 

FRONT 

' PANEL INTERRUPT VECTOR 

8046 



♦ 



8047 

088 A 

0201 


LI 

RlfEI 


008C 

0800 




8048 

8801 

C801 


MOV 

R1 ,8>A 


8818 

080A 




0849 



♦ 



0858 



t 

TURN 

OFF protect VIOLATION FLAG ANO CLEAR PROTECT RE 

0051 



* 



0852 

0812 

020C 


LI 

R12»CRUPRT 




♦•INITIATE 1 

MONITOR 

PROTO 
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0014 

0000 




0«53 

0016 

ID00 


880 

WRTPRT 

0094 



* 



005S 



4r 

INITlAtI7E 733 

00S« 



* 



00S7 


0019» 

INI733 

ECU 

8 

0098 

0018 

C320 


MOV 

0DC7331,R12 MOD CPU BAS 


001A 

0000 




0099 

001C 

1000 


sen 

>9 

0090 

00 IP 

1O0A 


S80 

>A 

0061 

0020 

1000 


S80 

>B 

0062 

0022 

ID0C 


SBO 

>C 

0063 






0064 



* 

INITIALIZE MCHORV CHAINS 

0065 

0024 

0420 


BLWP 

ilNlMEH 


0026 

0000 




0066 

0028 

0420 


8LWP 

0GETBUF 


P02A 

0000 




0067 

002f: 

0460 


8 

fCSP 


002P 

0000 




006« 




END , 

INIT 
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960 « 

980 concordance 


1 


0037 

0fS7 

CMOTil. 


0017 


C9UPRT 


0028 

0052 

CSP 


0019 

0067 

DC 7 331 


0018 

0088 

€I 


002? 

0047 

FP5TST 


0027 


FPNP 


0026 


FREMgM 


0023 

0038 

SETBUP 


0024 

0066 

INJ733 

0MS7 



INlMgM 


0026 

0068 

INIT 

0037 

0018 

0068 

R1 

003? 

0047 

0048 

R18 

0030 

005? 

0088 


0033 



RS 

0«34 



R4 

0036 



SVCSH 


0020 


avcwp 


0021 


WPTPRT 

0030 

0083 


TWIRE 

ARE 00S1 

SVMSOLS 




O 





















FRONT PANEL OEFS PRQTO 
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0003 



IDT 

’FPOEFP • 



0004 



OEF 

FPSTRT 



0005 



DEF 

ROMLOR 



0005 



OFF 

CRUOFF 



0007 



DEF 

CRUPRT 



0008 



DEF 

FPNP 



0009 

FE00 

FPSTRT 

EOU 

>FE00 



0010 

FFFA 

ROMLOR 

EOU 

>FFFA 



0011 

1FE0 

CRUOFF 

EUU 

>IFE0 



0012 

1FA0 

CRUPRT 

IQU 

MFA0 

CRU PROTECT 

REGION REG 

0013 

F803 

FPWP 

EQU 

>F800 

front panel 

WORKSPACE 

0014 

0000 EP$ 



END 
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9«B « 

9B0 CONCORDANCf 

CRUOPF 


0006 

CRUPHT 


0007 

PPSTRT 

000P 

0004 

PPMP 

0013 

0008 

ROMLOk 

0010 

0005 


THtWfe A»t nee'? SYMBOLS 

















** WRITI PROTECT 




PAGE Pf0g 


tig 3 


♦ 

PROCEDURE CLEAR RE6I0R 

iiss4. 


« 

DECLARE 

0’3«5 


* 

1 CLEAR REGION BIT IS C»»800il) 

Bftas 


♦ 

call SET REGION (CLEAR REGION) 

i007 


* 

end 

eaaR 


♦ 

PROCEDURE SET PROTECTED REGION(CPL POINTER) 

00a» 


♦ 

DECLARE 



♦ 

1 CPL 8IT 48 (COWHAND PARAMETER LIST) 

00U 


n 

2 FARM COUNT PIT 8 

0aia 


♦ 

2 PRESENCE BIT 8 

0W13 



2 FARM 1 ilT IS 

0014 


♦ 

2 FARM 2 BIT 16 

i0is 



! BASE BIT 16 C»200') 

0016 


* 

1 REGION BIT 16 

0017 


♦ 

2 LOW BOUND BIT 8 

0018 



2 UPPER BOUND BIT 8 

001R 


t 

IE PRESENCE (1) * 0 THEN CALL ERROR! 

0020 



ELSE 

0«21 


# 

IE PRESENCE!?) ■ 0 THEN CALL ERROR! 

0022 


♦ 

ELSE 

0023 



LOW BOUND « PARMl HOD BASE! 

0024 


♦ 

UPPER BOUND ■ PARM2 HOD BASE! 

002S 


* 

IF LOWER BOUNn ,GE, UPPER BOUND THEN CALL ERROR! 

0026 


♦ 

ELSE 

0027 


♦ 

CALL SET REGION(REGION) ! 

0028 


t 

end 

0029 


t 

PROCEOURE SET REGION (REGION) 

0030 


* 

CRU (PROTECT REGISTER) ■ REGION! 

0031 


♦ 

END 

0032 



lOT »WRTPRT» 

■0033 


♦ 

TITLE! WRTPRT 

0034 


# 

WRITE PROTECT 

0035 


♦ 

REVISION! 

0036 


# 

original 

0037 


♦ 

COHPUTERI 990, ash 

0038 


♦ 

ABSTRACT! 

0039 


♦ 

1) THIS ROUTINE WILL STORE THE BOUNDS FOR 

0040 


# 

THE WRITE PROTECT IN THE CRU REGISTER, 

0041 


t 

ANY BOUND NOT ON A 256 WORD BOUNDARY 

0042 


♦ 

WILL BE TRUNCATED TO THE NEXT LOWER 

0043 



256 WORD BOUNDARY, 

0044 


t 

2) clear the PROTECT REGISTER, 

0045 


♦ 

CALLING SEQUENCE! 

0046 


♦ 

CALLED FROM COMMAND STRING PROCESSOR, 

0047 


* 

ENTRY • R10 POINTS TO PARAMETER LIST 

0048 


if 


0049 


if 


0050 


•WORKSPACE REGISTER DPEINITIONS 

0051 


• 


0052 

0000 

R0 

EOU 0 

0053 

0001 

R1 

EQU 1 

0054 

0002 

R2 

EQU 2 

0055 

0003 

R3 

EQU 3 

0056 

0004 

R4 

EQU 4 



** WRITE PROTECT 
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0057 


0005 

R5 

EOU 

5 


0058 


0006 

R6 

EQU 

6 


0059 


0007 

R7 

EOl* 

7 


0«6W 


0006 

RB 

EQU 

8 


0061 


0009 

R9 

EQU 

9 


0062 


000A 

R10 

EQU 

10 


0063 


000B 

Rll 

EQU 

n 


0064 


B00C 

R12 

EQU 

12 


0065 


0000 

R13 

EQU 

13 


0066 


000E 

R14 

EQU 

14 


0067 


000F 

R15 

EQU 

15 


0068 



* 




0069 



♦ 




0070 




REF 

ACL 


0071 




REF 

RR 


0072 




REF 

STRPRT 


0073 




OEF 

LOPRT 


0074 




OEF 

CL.E4RP 


0075 




REF 

CRUPRT 


0076 




REF 

ERROR 


0077 


0200 

BASE 

EQU 

>200 

256 WORDS 

0078 


8000 

CLRRBT 

EQU 

>8000 

SET HIGH BIT IN CPU TO CLEAR 

0079 


0205 

MS05 

EQU 

>0205 

ERROR HESSAGE 

0080 



♦ 




0081 



♦ 



♦•PROCEDURE CLEAR REGION 

0082 



♦ 



1*DECLAR| 

0083 






2»l CLEAR REGION BIT 16 (»>800 

0084 


0000' 

CtKARP 

EQU 

$ 


008S 

0002 

0420 


8UWP 

♦ ACL 



0002 

0000 





0086 






1»CALL SET REGIONtCLEAR REGION 

0087 

0004 

0204 


U 

R4,CLRPRT 



0006 

8000 





0088 

0008 

1013 


JHP 

LDPRTl 


0089 



★ 



♦ •END 

0090 



♦ 



♦•PROCEDURE SET PROTECTED RE6I 

0091 



♦ 



l*OECLARf 

0092 



* 



2»1 CPL BIT 40 CCOHMANO PARA 

0093 



♦ 



3»2 PARM COUNT BIT 8 

0094 



* 



3^2 PRESENCE BIT 8 

0095 



♦ 



3.9 PARM 1 BIT 16 

0096 



♦ 



3»9 PARM 2 BIT 16 

0097 



# 



2*1 BASE BIT 16 (»>200») 

0098 



♦ 



2ml region bit 16 

0099 



« 



3*2 LOW BOUND BIT 8 

0100 



Hf 



3*2 UPPER BOUND BIT 8 

0101 


000A » 

tOPRT 

EQU 

S 


0102 

000A 

0420 


8LWP 

♦ ACL 



000C 

0002’ 





0103 

0008 

C27A 


HOV 

*R10*,R9 


0104 



* 



1*TP PRESENCE(l) • 1 THEN CALL 

0105 

0010 

0499 


SLA 

R9f 9 


0106 

0012 

1714 


JNC 

LDPRT2 


0107 



# 



1*EL5E 

0108 



♦ 



2*IF PRESENCE(2) • 0 THEN CALL 



** .IRITP PROTECT 
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0109 

0014 

0A19 


SLA 

R9» 1 


0U0 

0016 

1712 


JNC 

L0PPT2 


01 U 



♦ 



2*ELSE 

0112 



♦ 



3*L0W WOUND « PARMl MOD BASEl 

0113 

0018 

C0FA 


MOV 

*R10+,R3 


0114 

001A 

04C2 


CLP 

R2 


0U5 

001C 

0201 


LI 

R1 ,6ASE 



00 IE 

0200 





0116 

opai" 

3Cdl 


niv 

RJ »P2 


0UT 



# 



3*UPPER bound 4 PARM2 MOD BASE 

0U8 

0022 

C17A 


MOV 

*Rl0*fR5 


0119 

0024 

04C4 


CLP 

R 4 


0120 

0026 

3P01 


Div 

PI ,R4 


0121 



♦ 



3»IF LOWER BOUND ,GC, UPPER BO 

0122 

B9^2B 

6102 


c 

R2, R4 


0123 

002A 

I40i 


JHE 

LDPRT2 


0124 



♦ 



3»EL8I 

0129 



* 



4-CALL SET REG10N(REGI0N5 1 

0126 

002C 

0A82 


SLA 

R2,8 


0127 

0028 

0102 


HOVB 

R2,P4 


0126 



♦ 



0*END 

0129 



# 



t-PROCEDURI SET REGION fREGIONl 

0130 


003ej' 

LOP^^Tl 

EQU 

* 


0131 



* 



2-CRU (PROTECT REGISTER! • REGI 

0132 

0030 

C804 


MOV 

R4,#8TRPRT 

SAVE PROTECT REGION 


0032 

0000 





0133 

@034 

020C 


LI 

R12.CPUPRT 



0036 

0000 





0134 

0038 

3004 


LDCP 

R4,0 


01 3S 

003A 

1004 


JMP 

L0P«T3 


0136 



* 



0-fNP 

0137 


003C' 

LDPRT0 

EOtl 

$ 


0138 

003C 

020 A 


L I 

R10,HS05 



003E 

@205 





0139 

0040 

@«A0 


8L 

PERROP 



0042 

0000 





0140 


0044 < 

LDPPT3 

EQU 

$ 


0141 

0044 

0420 


8LWP 

PRR 



0046 

@000 





0142 

0046 

0469 


«T 



0143 




END 




0000 ERS 




943524-9901** PAGE 0005 of 0005 
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C S 0084 0101 0130 0137 0140 

\CL 0070 0085 010!> 

BASE 0077 0115 

CLEAHP 0084 0074 

CLRPRT 0078 . 0087 

CRUPRT 0075 0133 

ERROR 0076 0139 

LDFRT 0101 0073 

LOPRTI 013M 0088 

UORWra 0137 0106 0110 0123 

L0PRT3 0140 0135 

MS05 0079 0138 

R0 0052 

R1 0055 0115 0116 0120 

R10 0062 0103 0113 0118 0138 

Rll 0063 

Rli< 0064 0133 

»13 0065 

R14 0068 

R15 0067 

R2 0054 0114 0116 0122 0126 0|27 

R3 0055 0113 

R4 0056 0087 0119 0120 0122 0127 8132 0134 

R5 0057 0118 

R6 0068 

R7 0059 

R8 0060 

C R9 0061 0103 0105 0109 

RR 0071 0141 

8TRPRT 0072 0132 

THERE ARE 0030 SYMBOLS 






SHEET 


REV STATUS 
OF SHEETS 


SHEET 


UNLESS OTMCftWlSE SPCCiriCO 
DIMENSIONS AltE IN INCHES 
TOLERANCES 
ANGLES -ri* 

1 RLACE decimal ± 010 

2 RLACE DECIMAL ± 02 


IDENTIFYING NUMSEftS 
SHOWN IN FARENTHESES 
FOR REFERENCE ONLY 


INTERPRET DWG IN 
ACCORDANCE WITH 
MIL STD lOO 





Texas Instruments 

INCORPORATED 

Equipfmnt Group DoUm. 7>x«t 


;AL, DMHL, dump HI/LO, PR0T0TYPE-PX990 


COC3E lOENT NO 


X I A 96214 


DRAWING NO 

945325-9901 


SHOET 1 of 20 




SCAUE 




























DUMP HX6H/10W FORMAT 


R453a5..99il ** 


PAGF iSIFe 


iP03 




IDT 

•DMHL ' 





* TITLEI 

DMHL 


%m5 



# 


DUMP HIGH/LDW 

FORMAT AND DESCR 

0006 



* REVISIONS 

03/15/76 


0007 





ORIGINAL 


000S 



* abstracts 



0009 



# 


DUMP 256 4»BIT 

PATTERNS FROM MEMORY TO CASSETTE 

00 1» 



t 


TAPE IN TI»8 4 

BY 256 HIGH/LOW FORMAT 

MU 



* COMPUTERS 

990, ASSEMBLY 


Mi2. 



*** EXTERNAL REFERENCES 


0013 



t 




0014 




DEF 

DMHL 


0015 




REF 

ERROR 


0010 




REF 

RR 


0017 




REF 

ACL 


0010 




REF 

PRCRLF 


0019 




REF 

PRNTC 


0020 




REF 

PRNTHN 


0021 




REF 

eosign 


0022 




REF 

PRNTHX 


0023 




REF 

8VCALT 


0024 




REF 

PRTPRD 


0025 



ft 




0026 

0000 

40 


TEXT 

»HL* 


0027 

0002 

0070! 


data 

DMHL 


0020 

0004 

0000 


DATA 

0 


0020 



♦ 




0030 



*** ERROR MESSAGE EQUATES 


0031 



A 




0032 


0205 

MS0S 

EQU 

>0205 

REQUIRED FARM MISSING 

0033 ' 


0001 

MX01 

EOU 

>0001 

unrecoverable I/O ERROR 

0034 


1103 

DP03 

EQU 

>1103 

OUT OF BOUNDS 

0035 


0100 

MP00 

EQU 

>0100 

INVALID parameter 

0036 



* 




0037 



*** 5VC/PRB 

EQUATES 


0036 



* 




0039 


0005 

WRITA 

EQU 

11 

WRITE ASCII 

0040 


0009 

READA 

EQU 

9 

READ ASCII 

0041 


000i 

OPEN 

EQU 

00 

OPEN FILE 

0042 


0000 

WEOF 

EQU 

13 

WRITE END»0FpFILI 

0043 



* 




0044 



**• PR5, DEFINITIONS 


0045 



* 




0046 


0006* 

PRB 

EOU 

$ 


0047 

0006 

0000 

PRB8C 

DATA 

0 

SERVICE TYPE 

0046 

0006 

00 

PRBOP 

BYTE 

0 

I/O COMMAND 

0049 

0009 

07 

PRBLU 

BYTE 

7 

LOGICAL UNIT NUMBER 

0050 

000 A 

00 

PR88F 

BYTE 

0 

SYSTEM COMPLETION FLAGS 

0051 

000B 

00 

PRBUF 

BYTE 

0 

USER FLAGS 

0052 

000C 

001 A! 

PRB8F 

DATA 

BFR 

OUTPUT buffer address 

0053 

000E 

0056 

PRBLN 

data 

as 

OUTPUT BUFFER LENGTH 

0054 

0010 

0050 

PRBCC 

DATA 

60 

character count 

0055 



* 




0056 



*** MISCELLANEOUS DATA 
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PAGf 0PR3 


0097 



* 




0068 

0012 

0000 

8AVFR6 

DATA 

0 


0099 


2D00 

HYPHON 

IQU 

>2000 


0060 


0014» 

ENDADD 

FQU 

$ 


0061 

0014 

0000 


DATA 

0 


0062 


0016’ 

charct 

EQU 

$ 


0069 

0016 

0050 


DATA 

>0090 

CHARACTER COUNT FOR WRITE 

0064 


0140 

MPRT 

EQU 

>1004-'M» 

memory word type 

0069 


0154 

TPRT 

EQU 

»100+»T« 

TAPE WORD TYPE 

0066 


0020 

blank 

IQU 

1 1 

BLANK** * 

0067 


0018' 

AHU 

EQU 

S 


0068 

0016 

464C 


DATA 

»HL» 


0069 

001 A 

0000 

BFR 

DATA 

0»0»0*0»0»0>0« 

0,0,0 EIGHTY* 


001C 

0000 






001E 

0000 






0020 

0000 






0022 

0000 






0024 

0000 






0026 

0000 






0028 

0«00 






002A 

0000 






002t 

0000 





0070 

002F 

0000 


DATA 

0,0,0,0,0,0.01 

0,0,0 SIX 


0030 

0000 






0032 

0000 






0034 

0000 






0036 

0000 






0036 

0000 






003A 

0000 






003C 

0000 






0036 

0000 






0040 

0000 





0071 

0042 

0000 


DATA 

0.0, 0.0, 0,0,0, 

0,0,0 BYTES 


0044 

0000 






0046 

0000 






0046 

0000 






004A 

0000 






004t: 

0000 






0046 

0000 






0090 

0000 






0092 

0000 






0094 

0000 





0072 

0056 

0000 


DATA 

0,0, 0,0, 0,0,0, 

0,0,0 OF 


0096 

0000 






005A 

0000 






009C 

0000 






0096 

0000 






0060 

0000 






0062 

0000 






0064 

0000 






0066 

0000 






0066 

0000 





0073 

006A 

0000 


DATA 

0,0,0 

ZEROES 


006C 

0000 






006E 

0000 






OUHP HIGH/LOW format 9483a5»9901 •* 

B074 *** RIGISTfR DEFINITIONS *♦* 





DUMP HIGH/LDW FOPHAT 945325-9901 ** PAGE 000S 


0076 


* 

ALU 

REG. 

REFERENCES IN BNPF DUMP ARE VIA SYMBOLIC 

0077 



ACRONYMS 

INDICATIVE OF THE CURRENT USE OF THE REGIS- 

0078 


♦ 

TER. 

THESE acronyms are DEFINED BELOW. ANY TIME 

0079 


* 

A REGISTER FREES UP, OR IS RE-ASSIGNED, ONE OF THE 

0080 


* 

following 

comment cards WILL APPEAR IN THE LISTING 

0081 






0082 


*•* REGISTER 

' REASSIGNMENT! OLD WPYt'PTRl’, NEW WPX»»FREE» 

0083 


*** REGISTER 

t REASSIGNMENT! OLD WPY«»PTRH, N|W WPX«»PTR«’ 

0084 


* 




0085 

0000 

R0 

EQU 

0 

SCRATCH 

0086 

0001 

Rl 

EQU 

1 

SCRATCH 

0087 

0002 

CPRM 

EQU 

2 

PTR TO command farm LIST 

008R 

0003 

HDR 

EQU 

3 

HEADER FROM CMO. FARM, LIST 

0089 

0004 

ACT 

EQU 

4 

DUMP OR COMPARE TOGGLE 

0090 

0005 

8TRT 

EQU 

5 

DUMP OR CMpR start ADDRESS 

0091 

0005 

MEM 

EQU 

5 

DUMP OR CMRR STRT+CURRENT IND 

0092 

0006 

END 

EQU 

6 

DUMP OR CMPR end address 

0093 

0006 

RDMADO 

EQU 

6 

RDM WORD ADDRESS 

0094 

0007 

BIT 

EQU 

7 

BIT DISPLACEMENT WITHIN WORD 

0095 

0008 

8FRA 

IQU 

B 

OUT BFR BASE ♦ CURR INDEX 

0096 

0009 

BFRE 

EQU 

9 

PTR TO MX data AOOR IN BUFFER 

0097 

000A 

PRBA 

EQU 

10 

ADDRESS OF PRB 

0096 

000A 

R10 

EQU 

10 

SCRATCH 

0099 

000B 

Rll 

EQU 

11 

RETURN address 

010M 

0000 

R13 

EQU 

13 

PTR TO PREVIOUS WORKSPACE 

0101 

000E 

R14 

EQU 

14 

SCRATCH 

0102 

000f 

R15 

EQU 

15 

SCRATCH 


DUMP 1 

61GH/L0W FORMAT 


94S328-9901 ** 
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f91J4 


0070* 

DMMU 

EQU 

S 



0105 

0070 

C08A 


MOV 

R10#CPRM 


c 

0105 

0072 

0420 


BLWP 

FACL 

LINK A NEW workspace 



0674 

0000 






0107 

0076 

C60O 


MOV 

R13*#8AVERS 

SAVE OLD WKSP POINTER 



0076 

001S* 






0105 

007A 

C0F2 


MOV 

*CPRM+,HOR 

HEADER WORD 


0109 



*** PARAMETER VAUIDATION 



011H 



*1 IFCSTRTB. AND, ENDS, EO, 

05 CALL ABORT CM808) 


0111 

007C 

0A93 


SLA 

HDR,9 

SHIFT ACT PRESENT BIT INTO 


0112 

007E 

1722 


JNC 

DMH01 

CARRY 


0113 

0080 

020A 


11 

R10,MP00 




0082 

0100 






0114 

0084 

0032 


MOVB 

*CPRM4,R0 

CHAR COUNT TO R0 


0115 

0086 

0990 


8RL 

R0,9 

truncate to EVEN NUM 


0116 

0088 

0A10 


SLA 

R0,1 



0117 

008A 

0132 


MOVi 

♦CPRM#, ACT 

TOGGLE 


§115 

008C 

0984 


SRL 

ACT, 8 



0119 

008K 

0090 

0284 

0044 


Cl 

ACT, *0* 

IF TOGGLE NE 


0120 

0092 

1303 


JE0 

OMH00 

*D* OR *C* 


0121 

0094 

0284 


Cl 

ACT,*C* 

THEN CALL ERROR(MP00) 



0096 

0043 






0122 

0098 

1617 


JNf 

ABORT 



0123 


009A* 

OMH00 

EQU 

s 



0124 

009A 

A080 


A 

R0,CPRM 

INCREMENT CPL POINTER TO 8TRT 


^ 0125 

009C 

0A13 


SLA 

HDR,l 

SHIFT STRT PRESENT BIT INTO 


0126 

009E 

1712 


JNC 

DMH01 

CARRY 

C 

0127 

00A0 

C172 


MOV 

♦CPRM*,8TRT 

DUMP STARTING AODR 

0126 

00A2 

0915 


SRL 

8TRT,1 

IF STRT NOT EVEN THEN 


0129 

00A4 

1811 


JOC 

AiORT 

CALL ERROR(MP00) 


0130 

00A6 

0A15 


SLA 

STRT.l 



0131 

00A6 

0A13 


SLA 

HDR,1 

START OK, CHECK FOR END 


0132 

00AA 

170C 


JNC 

DMH01 



0133 

00AC 

C182 


MOV 

♦cprm+,eno 

DUMP END A00RE8S 


0134 

00AP 

0816 


SRA 

EN0,1 

IF END not even THEN 


0135 

00i0 

I8i8 


JOC 

ABORT 

THEN CALL ERROR 


0136 

0082 

0A16 


SLA 

END,1 



0137 

0084 

04C7 


CLR 

BIT 

DEFAULT TO P 


0138 

0086 

0A13 


SLA 

HOR, 1 

END OK, CHECK FOR BIT 


0139 

0086 

170A 


JNC 

DMH01A 

JUMP IF NOT PRESENT 


0140 

00BA 

01F2 


MOV 

♦CPRM#, BIT 

BIT DISPLACEMENT IN WORD 


0141 

008C 

0287 


Cl 

BIT, 12 

IF BIT VALUF OUT OF RANGE 



0086 

000C 






0142 

00C0 

1803 


JH 

ABORT 

ABORT 


0143 

00C2 

1005 


JMP 

DMH01A 



0144 


00C4' 

DMH01 

EQU 

$ 



0145 

00C4 

020A 


H 

R10,MS05 

ABOPT-REGUIREO FARM MISSING 



00C6 

0205 






0146 


00C8* 

ABORT 

tou 

$ 



0147 

00C6 

06A0 


BL 

FERROP 




00CA 

0000 






0146 

0149 

00CC 

104A 

* 

JMP 

DMMTRM 


o 


DUMP HIGH/LOW FORMAT 


945325-9901 ** 


page 0007 


IA1S0 


00CE» 

DMH01* 

EOU 

$ 


0151 



•1 X-END-8TART 


0152 

0PCF 

C006 


MOV 

ENO»R0 


0153 

00DK 

020A 


LI 

R10fDP03 

JUMP IP start is GREATER 


0002 

1103 





0154 

08D4 

6005 


S 

8TRT,P0 


0155 



*1 IF(X,LE. 

0)CALL A80RTCMP06) 


015«i 



*1 IF(X,GT, 

256)CALL ABDRT(OP03) 

0157 

0006 

0280 


Cl 

R0,»1FE 

THAN END OR LEN * 256 WORDS 


0008 

0IFE 





0158 

00OA 

IRFS 


JH 

ABORT 


0159 



♦ 




0151^ 



** PARAMETER 

t validation complete 

0161 



* *♦ 


OLD 

R2«CPRM# NEW R2»FREE 

0162 



* ** 


OLD 

R3iH0R NEW R3-FREE 

0163 



* 




0164 


0002 

R2 

FOU 

2 


0165 


0003 

R3 

FQU 

3 


0168 



« 




0167 



*!• call OPEN(PRBA) 


0168 



* 

(IN LINE EXPANSION) 


0169 



* 




017M 


00DC 

DMH02 

EQU 

$ 


0171 

00or 

0201 


LI 

RliOPEN^aSe+WRITA 

OPEN LUNO 7 


00DF 

000B 





0172 

0010 

C820 . 


MOV 

#CHARCT,0PRBCC 

SET CHAR. CT, FOR WRITE 


00E2 

0016’ 






00E4 

0010 < 





0173 

00E6 

0284 


Cl 

ACT# »Ct 

IF TOGGLE SET TO COMPARE 


00E8 

0043 





0174 

00EA 

1602 


JNE 

DMH02A 

PREPARE TO READ 

0175 

00EC 

0201 


LI 

R1,OPEN^256+RIAOA 

OPEN LUNO 7 


00EE 

0009 





0176 


00F0' 

DMH02A 

EQU 

$ 


0177 

00F0 

0801 


M'OVB 

R1 ,0PRBOP 



00F2 

0008' 





0178 

00F4 

020A 


LI 

PRBAfPRB 



00F6 

0006' 





0170 

00F8 

0420 


PLWP 

8SVCALT 



00FA 

0000 





0180 

00FC: 

06CI 


SWPB 

R1 

SET THE PRB TO FUNCTION 

0181 

00FE 

0801 


M0V8 

RlrfPRBOP 

CODE TO WRITI/REAO ASCII 


0100 

0009' 





0182 

0102 

0209 


LI 

BFRE,BFR448 

SET UP END OF OUTPUT BUFFERS 


0104 

004A' 





0183 

0106 

C806 


MOV 

ENO»#ENDAOO 



0108 

0014' 





0184 

010* 

04C6 


CLP 

ROMADO 

SFT beginning ROM ADDRESS 

0185 

010C 

04CO 


CLR 

R13 


0186 

010F 

0284 


Cl 

ACT# »C» 

IF TOGGLE SET TO COMPARE 


0110 

0043 





0187 

0112 

1319 


JEQ 

DMH04 

BRANCH TO COMPARE SEQUENCE 

0188 



♦1» MEM«STRT 


0180 



♦ ♦♦REGISTER 

' REASSIGNMENTlOLD 

R5«8TRT# NW RS*MEM 

§190 



♦ 1« 00 

MHILEfMEM.LT.ENO) 




DUMP HlGH/t OW FORMAT 


94S326-9901 ** 


PAGE P0ie 





*2 CALL BLNK(BFRA»BF9i5 


iai9p 


0114' 

OMH03 fOU 

$ 


0193 

0114 

0209 

LI 

BFRA,BFR 

SET UP START OF OUTPUT BUFFER 


0115 

00U» 




il94 

0115 

06A0 

BL 

PBLNK 

blank.fill the buffer 


011 A 

0204* 




0199 



* 



0196 



*!•* CALL FILL(BFPA,E,MEM,END) 

0197 

0UC 

06A0 

BL 

• FILL 

FILL BFR W/BNPF DATA 


01 IE 

016C* 




il9fl 



*2 call WRTRD(PPB) 


0199 

0 120 

06A0 

BL 

•WRTRD 



0122 

02C4* 




0200 

0124 

1601 

JNE 

ABORT 


0201 



*l CONTINUE 


0202 

0125 

0226 

AI 

ROMAOD#8 



0125 

0006 




0203 

012A 

0286 

Cl 

romaod,>ff 



012C 

iPFF 




0204 

012F 

12F2 

JLE 

OMH03 


0205 

0130 

0206 

LI 

0FRA,8FR 



0132 

001A? 




0205 



*!• CALL WRTROCPRBA) 


0207 

0134 

0200 

LI 

R0,WEOF*2S6 

write an end»of»file 


0136 

0000 




0205 

0135 

0800 

H0V8 

R0,4PRBOP 

set opcode 


01 3A 

0008* 




0209 



•1 CALL WBTROCWEOF) 


0210 

013C 

06A0 

BL 

•WRTRD 



013E 

02C4* 




0211 

0145 

16C3 

JNI 

ABORT 

abort if weqp failed 

0212 

0142 

100F 

JMP 

dmhtrm 


0213 


0144* 

DMH04 FOU 

$ 


0214 



* **REGI8TER 

! REA88ISNMBNTI 

OLD R4»ACT» NEW R4iFREE 

0215 


0004 

R4 EQU 

4 


0215 

0144 

0206 

LI 

BFRAfiFR 

SET UP STRT OF OUTPUT BUFFER 


0146 

001A* 




0217 



*1"CALL WPTRD(PRB) 


0215 

0145 

06A0 

BL 

•WRTRD 

READ A RECORD 


014A 

02C4* 




0219 

0140 

C040 

MOV 

R0*RI 

SYSTEM flags 

0220 

014F 

0240 

AND I 

R0,>4000 



01S0 

4000 




0221 

0152 

16BA 

JNE 

ABORT 

ABORT IF 10 ERROR 

0222 

0154 

0241 

ANDI 

Rl,*2000 



0156 

2000 




0223 

0158 

1604 

JNE 

dmhtrm 

IF EOF THIN EXIT 

0224 



♦2 CALL UNFILL(8FRA,E,MEM, 

END) 

0225 

015A 

06A0 

BL 

•UNFILL 

COMPARE BUFFER AND MEMORY 


015C 

01OE* 




0225 

015E 

1001 

JMP 

dmhtrm 

ISC RETURN 

0227 



Al CONTINUE 



0225 

0160 

10F1 

JMP 

OMM04 


0229 



*1 end omhl 


023M 


0162* 

OMHTRm equ 

S 



DUMP HIGH/L-OW FOPMAT 


0231 

0162 

C360 


0164 

0012’ 

0232 

0166 

0420 


0166 

0000 

0233 

016A 

0496 


94S325-990I ** 
HQV #8AVERG,R13 
BLWP PRR 
RT 


PAGE P0P9 

RETURN WH8P POINTER 



rlLU THE OUTPUT BUFFER 945326«»eP01 ♦* P ASI if IP 


i236 



# 

TITLE 

IFILL 


0237 



♦ 


FILL THE OUTPUT BUFFER WITH HIGH/LOW FORHAT 

023R 







0239 



♦ 

REVISION! 

03/15/76 


0240 



♦ 


ORIGINAL 


0241 



♦ 

ABSTRACT! 



0242 



* 


FILL BUFFER WITH 

TI 4 X 256 HIGH/LOW FORMAT, 

0243 




COMPUTERI 

9i0|AS8EHBLV 


0244 



♦ 

CALLING SEQUENCE! 


0245 



* 


ENTRYI 


0246 





RSbNIM •A00RE88 

OF memory data 

0247 





R8iBFRA«A00RES8 

OF OUTPUT BUFFER 

024B 



* 


R9i8FRE«A0DP, OF END OF OUTPUT BUFFER 

0249 



♦ 


RBtEND ■ENDING 

AOOR, OF memory DATA 

0250 





ft6»ROMAOO«AOORE8S OF ROM WORD 

0251 



♦ 


R7t8IT "BIT DISPLACEMENT IN MEMORY WORD 

0252 







0253 



# 


EXIT! 


0254 



* 


R0i*NR4 


0255 



t 


MEM PADORESS OF 

NEXT BYTE TO BE CONVERTED 

0256 



♦ 


BFRAiAOOR+1 OF 

LAST BYTE IN OUTPUT BUFFER 

0257 



♦ 


THE BNPF RECORD 

IS formatted in *BFR», 

0258 


0J6C' 

FIU EQU 

i ****fNTRY POINT**** 

0259 



# 




0260 




call »IN0ECCMEM,8FRA) 


0261 



# 

IN line EXPANSION 


0262 

016C 

04CC 


CLP 

R14 

first OP LAST LINE AOOR COUNT 

0263 

0161 

C046 


HOV 

ROMADOiRI 

INITI VALUE TO BE CONVERTED 

0264 

il7P 

0204 


LI 

R4,10 

CONVERSION BASE 


0172 

000A 





0265 

0174 

0203 


LI r 

R3, 100 

MAX # OF 0GT8 IN CNVTO 


017« 

0064 





0266 


0178* 

FLLl EOU 

S 


0267 

0178 

04C0 


CLP 

R0 


0268 

017A 

3C03 


DIV 

R3,R0 

FIND DIGIT 

0269 

017C 

0220 


AI 

R0,»30 

CONVERT THE DIGIT TO DECIMAL 


017E 

0030 





027P 

0180 

06C0 


SMP8 

R0 

ASCII ANO 

0271 

0182 

DE00 


H0V8 

R0,*BFRA# 

STORE IN THE OUTPUT BFR, 

0272 

0184 

04C2 


CLP 

R2 

REDUCE NUMBER OF 

0273 

0186 

3C84 


DIV 

R4,R2 

DIGITS REMAINING BY 1, AND 

0274 

0188 

A0C2 


A 

R2,R3 

WHEN # OF DIGITS REMAINING IS 

0275 

01 8A 

C082 


NOV 

R2,R2 


0276 

018C 

16F5 


JNI 

FLLl 

NOT ZERO, REPEAT 

0277 

018E 

091E 


8RL 

R14,1 

ELSE, IF COUNTP0 

0278 

0190 

180A 


JOC 

FLL2 


0279 

0192 

0201 


LI 

RlrHVPHON 

MOVE HVPHON TO BUFFER, SET UP 


0194 

2000 





026P 

0196 

OE01 


wove 

R1,*8FRA* 

TO CONVERT ENRiiOF-LlNE AOOR 

0261 

0198 

C046 


NOV 

R0MADD,R1 

TO decimal and REPEAT CONVERw 

0212 

019A 

0221 


AI 

Rl,7 

SION 


019C 

0007 





0263 

019E 

0203 


LI 

R3|100 



01A0 

0064 







mi. THE OUTPUT fSUfFER 
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PAGE PBU 


0284 

01A2 

058E 


JNC 

R14 

INCR CT TO indicate LAST ADOR 

0285 

01 A4 

10E9 


JMP 

FLLl 


0288 


01A6» 

FL12 

fOU 

$ 


0287 

01A6 

0583 


INC 

BFRA 

PUTS A blank in buffer 

028A 


0} A8» 

FU3 

EOU 

$ 


0289 

01A8 

0588 


INC 

BFRA 

PUTS A BLANK IN BUFFER 

0290 

01AA 

0201 


LI 

Rl,4 

BIT COUNTER IN Rl 


01AC 

0004 





0291 

01AE 

8805 


C 

MEM,PENOADO 



0180 

0014' 





0292 

0182 

IR0D 


JH 

FLL6 


0293 

0184 

C0F5 


HOV 

*MEM+,R3 

SHIFT WORD TO BIT 

0294 

0185 

C007 


MOV 

BIT,R0 

IF BIT WITHIN WORD NOT ZERO, 

0295 

0188 

1301 


JEe 

FLL4 


0295 

01BA 

0A03 


SLA 

R3,R0 


0297 


01BC 

FU.4 

EQU 

$ 


029« 

018C 

0202 


LI 

R2|AHL 

ADOR, OF 'HL' IN R2 


01BE 

0018' 





0299 

01C0 

0A13 


SLA 

R3»l 

BIT TO BE STORED IN ARRT STAT 

0300 

01C2 

1801 


JOC 

FLL5 

JUMP FOR POSITIVE BIT 

0301 

01C4 

0582 


INC 

R2 

INC TO 'L' FOR NEG. BIT 

0302 

01C6 

DEI 2 

FLL5 

MOVB 

*R2»*PFRA+ 

STORE 'HI OR »L' 

0303 

01C8 

0601 


DEC 

R1 

DECREMENT BIT COUNT, AND 

0304 

01CA 

16E8 


JNE 

FLL4 

LOOP BACK IF BYTE NOT DONE 

0305 

01CC 

1005 


JMP 

FLL7 


0305 


01CE» 

FL16 

EOU 

S 


0307 

01CE 

0202 


LI 

R2f AHL 

GET »HL' 


0100 

0018' 





0308 

0102 

DEIP 


MOVB 

*R2r*iFRA4 

FILL BYTE WITH H'S.MfM » ENO 

0309 

0104 

0601 


DEC 

R1 

DEC COUNTER UNTIL ENO OF BYTE 

0310 

0106 

16FB 


JNE 

FLL6 


0311 


0108' 

FU7 

EOU 

S 


0312 

01D8 

8243 


C 

BFRA,BFRE 

BYTE OONE, CHECK END OF BFR, 

0313 

01DA 

IAE6 


JL 

FLL3 

AND JUMP back if not 

0314 

01DC 

045B 


RT 





UNPtl-l»»Rf AD AND COMPARE 


94B326»9Sil *♦ 


PA6f P012 


(0317 

isis 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 
0333 

0336 

0337 
0336 
0339 
034li< 

0341 

0342 

0343 

0344 
0343 

0346 

0347 
0346 
0349 

0380 

0381 

0352 

0383 

0384 

0358 

0386 

0387 
0386 
0389 

0360 

0361 

0362 

0363 

0364 
0369 
0366 


TITLE* 

REVISION! 


UNEILL 

COMPARE BUFFER AND MEMORY 

03/18/76 

ORISINAL 


0ior 


* 

* 

* 

* 

* ABSTRACT! 

* 

* 

* 

* 

* 

* 

* COMPUTER! 

* CALLINS SEQUENCE! 

* ENTRY! 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

UNFILL IQU 

♦ 

#1 call BINDEC(MEM,BFRA) 

♦ 

* save RETURN ADDRESS 


GENERATE THE SAMI format AS IN SUBROUTINE FILL, 
INSTEAD OF STORING CONVERTED VALUES IN THE 
BUFFER, COMPARE THEM TO THE VALUES ALREADY 
THERE, IF THE ADDRESSES DO NOT MATCH RETURN TO 
READ another RECORD, IF STRINGS DO NOT MATCH 
BRANCH TO A DISPLAY ROUTINE WHICH DISPLAYS EACH 
STRING, 

990, ASSEMBLY 


R94HEM «AD0RfS8 OP m|M0RY DATA 

rbubfrabadoriss of output buffer 
R9«BFRE*ADDR, of end dp output buffer 
R6«R0MAD0«AP0RESS of ROM WORD 
R7-BIT iBlT DISPLACEMENT IN MEMORY WORD 

EXIT! 

R0»>R4 

MEM pADORESS of next BYTE TO RE CONVERTED 

bfrapaddr+1 of last byte in output buffer 

THE BNPF RECORD IS FORMATTED IN IBFR'. 

S **#*ENTRY POINT**** 


01OE 

C3C8 


MOV 

Rll,R15 

01E0 

0228 


AI 

BFRA.8 

01E2 

000S 

01E4* 

UNFU4 

EQU 

S 

01E4 

8805 


C 

mem,penoado 

01E6 

01E6 

0014' 

1B3D 


JH 

UNFU13 

01|A 

0988 


INC 

BFRA 

ilEC 

0201 


LI 

Rl,4 

01EE 

01FW 

0004 

C0F5 


MOV 

*M|M+,R3 

01F2 

C007 


MOV 

BIT,R0 

01F4 

1301 


JEQ 

UNFLL5 

01F6 

0A03 


SLA 

R3,R0 


01FS» 

UNFLL5 

EOU 

S 

01F8 

0202 


LI 

R2,AHL 

01FA 

ilFC 

0018* 

0A13 


SLA 

R3, 1 

01FE 

1801 


JOC 

UNFLUS 

0200 

0582 


INC 

R2 


0202’ 

UNFU6 

EQU 

S 

0202 

9E12 


CB 

*R2, *BFRA4 

0204 

132 A 


JEQ 

UNFLll 


SKIP addresses 


IF MEM P end ADDR then EXIT 
SKIP A BLANK IN BUFFER 
BIT COUNTER IN Rl 

SHIFT WORD TO BIT 

IF BIT WITHIN WORD NOT lERO, 


ADDR. OF »HL» IN R2 

BIT TO BE STORED IN ARRY STAT 

INC TO »H» FOR NEG, BIT 

COHPARE »Hi OR 'L' 

IF EQUAL CONTINUE COMPARISON 



UNFRU-READ and compare 


945325-9R01 ♦* 
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0367 

0206 

0645 


DECT 

MEM 

GET PREVIOUS WORD ADDRESS 


036B 

0208 

C045 
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IF USER PC * LOW LIMIT ,0R. USER PC > 

HIGH LIMIT THEN DOI 

INSTRUCTION COUNT s INSTRTUCTION COUNT -U 
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0005 

R5 

EQU 

8 



0089 


0006 

R6 

FOU 

6 



0090 


0007 

R7 

EQU 

7 



0091 


0008 

R8 

EQU 

8 



0092 


000D 

R9 

EQU 

9 



0093 


000A 

R10 

EQU 

10 



0094 


0008 

Rll 

EQU 

11 



0095 


000C 

R12 

EQU 

12 



0096 


000D 

R13 

EQU 

13 



0097 


000E 

R14 

EQU 

14 



0098 


000F 

RlS 

EQU 

16 



0099 



* 





0100 



* 





0101 


000 4 

HX04 

EQU 

>0004 

TRY TO EK TRACE WHEN NOT 

IN 0 

0102 


0007 

MX07 

EQU 

>0007 

WRITE PROTECT VIOtATION 


0103 


0001 

PRTV 

10 EQU 

1 



0104 



• 





0105 



* 



1*-PR0CF.DURE RUNtCPUf 


0106 


0000 ' 

RUN 

FOU 

$ 



0107 



* 

• AULOC 

, COPY, LINK 



0108 

0001^ 

0420 


0UWP 

PACE 




0002 

0000 






0109 



* 



2#/* RUN controls the executio 

0110 



* 



2- A USER PROGRAM UNDER 

EITH 


C 


OlfSUG 

SUN COMMAND 

PROTp 


94S326*99il ** 
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01 1 1 



* 



2» OR TRACE MODI, IT PROVIOE 

0112 



# 



2* USER»S KlViOARO LEVEL CON 

0113 



t 



2* OF the SYSTEM, 

0114 



t 




0U5 



t 



2»1F CPL.PARMl ,Nf, NULL THEN 

0lie 

0004 

C27A 


MOV 

*R10A,R9 


0117 

0006 

0A99 


SLA 

R9,9 


011B 

0«08 

1702 


JNC 

RUN010 


0119 



♦ 



S*IN8TRUCTI0N count * CPLiPARM 

0120 

000A 

C81A 


MOV 

•H10,#INSCNT 



000C 

0000 





0121 



♦ 



2»ENDf 

0122 


000C' 

RUNJli 

EQU 



0123 



* 



2 »-no unitl return to operatori 

0124 



at 



3*CALL SCAN TASLE(TRACE,USER P 

0125 

0008 

020A 


LI 

R 10, trace 



0010 

0000 





0125 

0012 

C260 


MOV 

41ISRPC,R9 



0014 

mm 





0127 

0016 

06A0 


BL 

RSCT8 



0018 

0000 





il28 






3*IF .NOT, FOUND THEN DO^ 

0129 

0®1A 

C26A 


MOV 

R10,R10 

0 ■> FOUND 

0130 

00 IC 

1303 


J6Q 

RUN020 


0131 


001E’ 

RUNilS 

EQU 

$ 


0132 



♦ 



4»CALL SIECUSIR PC, USER WP,U8I 

0133 

00 IE 

06A0 


BL 

#sie 



0020 

0000 





il34 



♦ 



3*END|IL8E 001 

0135 

0022 

1008 


JMP 

RUN030 


0136 


0024' 

RUNi20 

EQU 

S 


0137 



#**********CHECK that trace 

OVIRLAV IS PRESENT 

0138 



♦ 



4*IF TRACE NE RfSlOENT THEN ER 

0139 

0024 

eRA0 


MOV 

#SREGN,R10 



0026 

0000 





0140 

0028 

1330 


JEO 

HUN055 


»14l 



# 



4*CALL TRACERCUSER PC,USER WP* 

0142 

002 A 

06A0 


0L 

8TRACER 



002C 

0000 





0143 



* 



3*EN0| 

0144 

0021 

1031 


JMP 

RUN060 


0145 

0030 

06A0 


BL 

• PCOUT 

OUTPUT USRPC TO PANEL 


0032 

0000 





0146 


0034' 

RUN03® 

6QU 

s 


0147 



* 



3»1F WRITE PROTECT ERROR • 1 T 

0148 

0034 

020A 


LI 

R10,MV07 



0036 

0007 





0149 

0038 

020C 


LI 

R12,CRUPRT 



003A 

0000 





0150 

003C 

JF01 


T8 

PRTVIO 


0 15 1 

0036 

1603 


JNE 

RUN032 


01S2 

0040 

3020 


LOCR 

#8TRPRT,0 

RESET VIO FLA5 AND RESTORE PR 


0042 

0000 





1153 

0044 

1024 


4MP 

RUN057 

ERROR EXIT 

0154 


0046' 

RUNfSig 

EQU 

* 
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DEBUG BUN CQMHAND PROTO 


0155 

00 46 

C260 


MOV 

PUS«PC*R9 



:iP4ft 

0014' 





0155 



★ 



3-IF USER PC « LOW LIWIT ,0R, 

0157 






4»HIGW limit thin 001 

015ft 

004A 

8809 


c 

R9,fLaWLIM 



004C 

0000 





0159 

0PI4E 

IA03 


JL 

RUN035 



0050 

8809 


C 

R9,iMIHM 



0052 

0000 





0161 

afi84 

1 ADC 


Jt 

RUN010 


0162 


0058' 

RUNPtas 

EQU 

S 


0163 



* 



4wINSTROCTION COUNT • INSTRTUC 

0164 

0056 

0620 


DEC 

PINSCNT 



110 56 

000C ' 





0165 






4i-CALL SCAN TABLE(BREAKP0INT,U 

0166 

005A 

020A 


LI 

R10f0KPT 



00 bc 

0000 





0167 

00 56 

06 A0 


PL 

PSCTB 



00 60 

0018' 





0168 



Hr 



4»IF FOUND THEN 001 

0166 

0062 

C28A 


MOV 

R10,R10 


0170 

0064 

1604 


JNF 

RUN040 


0171 



Hr 



5»CALL breakpoint PR0CE8S(USER 

0172 



Hr 



6«*BREAK ENTRVrTERM)f 

0173 

0 066 

06A0 


PL 

48KPTPR 



0066 

0000 





®174 



Hr 



4*1F TERM then SIGNAL RETURN T 

0175 

006 A 

t;28A 


MOV 

R10,R10 


0176 

006C 

1612 


JNF 

RUN060 


0177 



# 



4i«ENI)| 

017« 


006E' 

RUN040 

EOU 

S 


0176 



♦ 



4»IF INSTRUCTION COUNT ,E0, 0 

0180 



* 



5»SIGNAL RETURN TO OPERATOR! 

0181 

y06E 

C029 


MOV 

#INSCNT,R0 



0070 

0058 ' 





0182 

M0 72 

130F 


JEO 

RUN060 


0183 



Hr 



4*IF INSTRUCTION COUNT ,E0, *1 

0184 



Hr 



5«*INSTRUCTI0N COUNT ■ INSTRUCT 

0185 

,;|0 7 4 

028 0 


Cl 

R0»-1 

NO INSTRUCTION LIMIT 


vl0 76 

6TFF 





0106 

:107« 

1602 


JNF 

RUN050 


0187 

007 A 

05A0 


INC 

f INSCNT 



00 7 C 

0070 ' 





0188 


007E' 

RUNei50 

EQU 

S 


0186 



Hr 



4*CALL MONITOR CHAR(CHAR,N0 WA 

0190 

00 7 e 

06A0 


BL 

PMONCHR 



1080 

0000 





0191 



# 



4. IF char ,EQ, escape then 816 

@192 



♦ 



5*»RETURN to OPERATORl 

0193 

U0 62 

9809 


ce 

HP.PESC 

V 


0064 

0009 





0194 

0086 

16C3 


JNF 

RUNOIO 


0195 

0086 

1004 


JMP 

RUN060 



01R6 

0197 


* 

* 


3»IN0| 

2*EN0l 


OfeSUG iUN command PROTO 94S3a6»990l *• PAGE P0tfi 


0T9B 


008A ' 

RUN055 

6QU 

S 


0199 

008A 

020A 


LI 

R10|MX04 



00 8 C 

000 4 





0300 


008E » 

RUN0S7 

6QU 

$ 


020} 

0086 

06 AO 


0U 

PERROR 



P,090 

0000 





0302 



* 



goRETURN TO OPERATOR! 

0203 


0092' 

RUN060 

EOU 

$ 


0204 



* 



}»END RUNI 

0205 



* *i!NK 

TO PREV WRSP, 

RET CURR WKSP 

0806 

0098 

0480 


6LWP 

PRR 



0094 

0000 





0207 

0096 

04SS 


«T 



0803 




END 




0004 EPS 
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960 • 980 COMCOROAMCE 

f 


0186 

0198 

ACt 


0061 

8KRT 


0066 

8KFTPR 


0067 

CRUPRT 


0079 

ERROR 


0065 

ESC 


0071 

GETBUF 


0057 

HIUIM 


00 7 0 

IN3CNT 


0063 

LORUIM 


0069 

LWR 


0059 

MORCHR 


0075 

M¥04 

0101 

0199 

MX07 

0102 

0148 

PC'HIT 


0068 

PR TV in 

ni03 

0150 

R0 

0083 

0181 

R1 

00 84 


R10 

0 093 

0116 

0169 

RU 

v1094 



no95 

0149 

Rl3 

0096 


R14 

00 97 


R15 

0098 


R2 

0085 


R3 

tf!086 


R4 

0087 


R5 

0088 


R6 

0089 


R7 

0090 


R8 

n091 


R9 

0 0 92 

0116 

RET6UF 


0058 

RR 


0062 

RUN 

0106 ' 

0056 

RUN01O 

'H22 

0118 

RUN015 

ni3i 


RUN020 

0136 

0130 

RUN03O 

0146 

0135 

RUNH32 

0154 

0151 

RUNW35 

0162 

0159 

RUN040 

0178 

0170 

RUM050 

iH88 

0186 

RUN0S5 

0198 

0140 

RUN0S7 

1;1200 

0153 

RUN060 

0203 

0144 

RWP 


0060 

sets 


0077 

Sit 


0072 

SREGN 


0074 

8TRPRT 


0078 

TRACE 


0064 

TRACER 


0073 

USRPC 


0076 


0122 0131 0136 0148 

020 (" 0203 

0108 
0168 
0173 
0149 
0201 
0193 

01651 

012 »' 0164 0181 0107 

0158 

019t'i 


0145 

0185 

0120 0125 0129 0129 

0175 0175 0199 


0117 0126 0155 0158 

0206 

0161 0194 


0176 0182 0195 

0127 0167 

0133 
0139 
0152 

0125 
0142 

0126 0155 


0154 0162 0178 0188 


0139 0148 0168 0169 


0160 0193 


THlRg ARK 


0055 


SYMBOLS 
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0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 
0013 
0 01 4 

0015 

0016 

0017 

0018 
'0019 

0020 
'0021 
0022 
0023 
0 0 2 4 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 
0 0 5 3 

0054 

0055 

0056 


t 

t 

t 

t 

t 

% 

% 

t 

t 

t 

% 

t 

t 

t 

* 

t 

* 

t 

t. 

t 

* 

* 

* 

t 

t 

t 

T 

* 

t 

t 

t 

* 

t 

* 

* 

t 

t 

t 

* 

t 

* 

t 

t 

t 

* 

4 

% 

t 

t 


PROCEDURE COMMAND STRING PROCESSOR 
DECLARE 

1 BUFFER CONTROL PTR, 

2 CHARCNT FIMEDCS) , 

2 TERMCHAR CHARd), 

2 CSTRING(30:i CHAR C 1 ) ; 

DECLARE CHAR CHAR(l); 

DO FOREVER; 

IF WRITEPROTECTERROR THEN CALL ERROR; 

CALL PR I NT (PROMPT) ; 

CALL GETFIELD(PTR) ; • 

DO 1=0 UNTIL CMDFOUND OR CMDNOTFOUND 
IF PTR. CHARCNT <2 THEN SIGNAL CMDNOTFOUND; 
IF COMMhMDThBLEC I )=PTR . CMD THEN 


SIGNAL CMDFOUND ; 

1 = 1 + 1 ; 

IF DMAXCOMMAND THEN SIGNAL CMDNOTFOUND; 
END; 

CMDNOTFOUND DO; 

CALL RETBUF(PTR); 

CALL ERROR(CMDERROR) ; 

END; 

CMDFOUND: DO; 

CALL RETBUFC PTR ) ; 

CALL GETBUFCCPLPTR) ; 

CPLPARMCOUNT = 0; 

CPLBITS = 0; 

CPLCURRPTR = CPLPTR +2; 

PARMINDEX=0; 

DO UNTIL ENDOFRECORD OR PARMERROR; 

IF TERMCHAR = 'EOR' THEN SIGNAL 
ENDOFRECORD; 

IF TERMCHAR = 'ESC' THEN SIGNAL ESCAPE 
FARM = COMMANDTABLEPARM(PARMINDEX) i 
PARM=HAB: DO; 

CALL GETHEXVALUE (VALUE, TERMCHAR) ; 

CC CPLCURRPTR) = VALUE; 

CPLCURRPTR = CPLCURRPTR +2; 

CALL CPLPARMMARK ( CPLPTR , FARM I N 
END; 

PARM=STR: DO; 

CALL GETFIELD(PTR) ; 

IF PTR.CHARCOUNT+2 + CPLCURRP 
- CPLPTR > 30 THEN SIGNAL PARME 
CCNT = PTR . CHARCOUNT 
IF CCNT > 0 THEN DO; 

Pi = PTR; 

CPLCURRPTR . CHAR = PI. CHARCNT; 

PI = Pl+2; /t SKIP TERM C 

CPLCURRPTR = CPLCURRPTR + 1; 

D0 WHILE CCNT >= 0; 

PI . CHAR=CPLCURRPTR . CHAR; 
P1=P1+1; 

CPLCURRPTR = CPLCURRPTR+li 
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0057 


CCNT = CCNT -1; 

0058 

4: 

END 

0059 


CPLCURRPTR ■- SLA(SRL(CPLCURRPT 

0060 

4: 

) 1 ) , 1 ) 

0061 

.4; 

CALL C P L P A R M M A R K ( C P L P T R , P A R i>1 [ N 

0062 


END; 

0063 


CALL RETEUF(PTR) ; 

0064 


END, 

0065 


PARM-OTHER^ DO; 

0 0 6 6 


/*DON'T PUSH INDEX PAST END OF 

0 0 6 7 

4: 

PARM INDEX = FARM INDEX -1, 

0068 


TERMCHAR ~ 'EOR"; 

0 & 6 9 


END, 

0070 

4; 

END CASE; 

0071 


P A R M I N D E X = P A R M I H D E X + 1 , 

0072 

4: 

END 

0073 

4: 

ENDRECORD: IF PTR ME. © THEN DO, 

0074 

4; 

CALL COMMANDSERV I CEROUT I NE ( CPL ) 

0075 

:t: 

END; 

0076 


ELSE MiSSINGOVLY: DO; 

0077 

4; 

CALL ERROR(MISSOU) ; 

0078 


END 

0079 


PARMERROR: DO; 

0080 

t 

CALL ERROR CPARAMETERERROR) ; 

0081 

% 

END; 

0082 

t 

ESCAPE : 

0083 

% 

CALL RETE:UF(CPL) 

0 0 8 4 

t 

END; 

0085 

t 

END; 

0086 

t 

END; 

0087 

t 

PROCEDURE CPLPARMMARKCCPLPTR, PARM INDEX) ; 

0 0 8 S 

t 

/t CPLPARM WILL INCREMENT 

0 © 8 9 

t 

THE PARAMETER COUNT AND SET 

00.90 

4: 

THE PARAMETER PRESENCE BIT 

0091 

4 

FOR THE PARAMETER CORRESPONDING 

0 0 9 2 

4: 

TO PARM INDEX. 

0 0 'E^ 3 


X/ 

0094 


TEMP = SRLC '■SO'’ , PARM) INDEX) ; 

0095 

t 

CPLPTR.BITS = CPLPTR.BITS .PR. TEMP; 

0 0 9 6 

t 

CPLPTR . PARMCOUNT = CPLPTR . PARMCOUNT+1 ; 

0097 


END CPLPARMMARK; 

0 0 9 8 


END CMDSTRPROCESSOR ; 

0099 


IDT 'CMSTPP' 

0100 

4 

TITLE: CMSTPP 

0101 

% 

COMMAND STRING; PROCESSOR 

0102 

t 

REV I S I ON : 

0103 

4; 

ORIGINAL 

0 1 0 4 


COMPUTER: 990, ASM 

0105 

.4; 

ABSTRACT: THE COMMAND STRING PROCESSOR PROVIDES 

0106 

:4 

THE SYSTEM KEYBOARD INTERFACE. THE 

0107 


PROCESSOR ACCEPTS STRINGS FROM THE 

0108 


KEYBOARD WHICH ARE PARSED IN ACCORDANCE 

0109 

4; 

WITH THE COMMAND DEFINITION TABLE. WHEN 

0110 


A VALID COMMAND STRING IS INPUT, A COMMAND 

0111 

4: 

PARAMETER TAE;LE IS BUILT WHICH CONTAINS 
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0112 




THE INPUT 

PARAMETERS SUITABLY TRANSLATED. 

011 3 


t CALLING 

SEQUENCE: 


0114 


)i( 

■'t' 


BL @ CS 

P 

k:-' 1 1 b 

01 1 6 

1 1 


:*:WORK 

SPACE 

REGISTER DEFINITIONS 

1 i / 

011 s 

0000 

•T- 

R0 

EQU 

0 


0 1 1 9 

0001 

R1 

EQU 

1 


0120 

0002 

R2 

EQU 

2 


0121 

0003 

R3 

EQU 

O 


0122 

0004 

R4 

EQU 

4 


012 3 

0005 

R5 

EQU 

5 


0124- 

0006 

RG 

EQU 

6 


012B 

0007 

R7 

EQU 

7 


0126 

000S 

R8 

EQU 

g 


0127 

0009 

R9 

EQU 

9 


0128 

0 0 0 A 

R10 

EQU 

10 


0129 

000 E: 

Rll 

EQU 

1 1 


0130 

000C 

R12 

EQU 

12 


0131 

00 0D 

R13 

EQU 

13 


0132 

000E 

R14 

EQU 

14 


0133 

000F 

R15 

EQU 

15 


0134 


* 




013E 


* 

REF 

'S AND DEF': 

S 

0136 



REF 

PROMPT 

MONITOR PROMPT STR-ING 

0137 



REF 

CRUOFF 


0138 



REF 

USRPC 


0139 



REF- 

PRINT 


0140 



REF 

GETFLD 


0141 



REF 

PRNTC 


0142 



REF 

CMDTBL 

COMMAND PARAMETER LIST 

0143 



REF 

NOCMDS 

NUMBER COMMANDS 

0144 



REF 

PCOUT 


0145 



REF 

GETHEX 


0146 



REF- 

ERROR 

PRINT ERROR SUBROUTINE 

014? 



REF 

TERMCR 


0148 



REF- 

EOR 

CHARS 

0149 



REF 

BLANK 


0150 



REF 

COMMA 


©151 



REF 

PLUS 


0152 



REF- 

MINUS 


0153 



REF 

ESC 


0154 



REF 

GETCHR 


0155 



REF- 

CPLSAV 


0 1 5 B 



REF 

CRUPRT 


0157 



REF 

STRPRT 


0158 



DEF 

CSP 


0153 



REF 

GETBUF 


0 1 6 0 



REF- 

RETBUF 


0161 



REF 

LLIP 


0162 



REF 

RLIP 


0163 



REF 

ACL 


0164 



REF 

RR 


0165 





3-DECLARE 

0 1 6 6 


t 



4-1 BUFFER CONTil^ PTR 
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0167 

0163 

0169 

0170 


5-2 CHARCNT FIXED(S), 

5 - 2 T' E: R t'1 C H A R C H A R ( 1 < 

5-2 C S T R I N G ( 3 0 ) C H A R ( 1 ) ; 
3 - D E C L A R E C H A R C H A R ( 1 ) ; 


0 1 7 i 
0 1 7 2 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 
0 1 S 3 

0184 

0185 
0 1 8 6 

0187 

0188 
0189 
0 1 9 0 

0191 

0192 
0 1 9 3 

0194 

0195 

0196 

0197 

0198 
0199 - 
0 2 0 0 


0000 

0004 

0006 

0201 

0100 

0003 

0 0 0 7 
0 0 0 1 

0001 
0002 
0 0 0 1 
0 0 0 0 
0001 
0002 
0 0 0 3 
00 0D 
00 0B 


4 


4 


CMDCDE 

EQU 

0 

CMDRTN 

EQU 

4 

CMDLEN 

EQU 

6 

CMDERR 

EQU 

>0201 

PRMERR 

EQU 

>0100 

M I SSOV 

EQU 

>0003 

MX07 

EQU 

>0007 

PRTVIO 

EQU 

1 

TRMCHR 

EQU 

1 

STRNG 

EQU 

2 

SCERR 

EQU 

1 

PDSTR 

EQU 

0 

PHSTR 

EQU 

1 

PCSTR 

EQU 

2 

PNULL 

EQU 

o 

HAB 

EQU 

>D 


WRITE PROTECT ERROR 
P R 0 T E C T V I 0 L A T I 0 N FLAG 


DAB 

X 

t 

t 

4 

4 

4 

4 

4 

4 


EQU >B 
REGISTER 
R2 
R5 


R6 

R8 

R10 


R12 


iSSIGNMENTS 

PARAMETER TYPE ^,,ootrl,T 

:.OMMANDTABLE ~ POINTER TO CURRENT 
ENTRY IN COMMAND TAE^LE 
^ARM index' INDEX IN PARAMETER LIST FOR 


COMMAND 

PTR 


PARAMETER LIST POINTER 
POINTER TO STRING RETURNED 
BY GET FIELD 


COMMAND FARM LIST CURRENT LOC 
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0202 


0000' CSP 

EQU 

f 

NO PROLOGUE REQ' 

0203 


t 



2-DO FOREVER; 

02 0 4 

0000 

06A0 

BL 

@PCOUT 

OUTPUT USRPC TO PANEL 


0002 

0000 




0205 





3- IF WRITEPROTECTERROR THEN 

0206 

0004 

0 2 0 A 

LI 

R10, MX07 



0006 

0007 




0207 

000 8 

C'i 

02 0C 

L I 

R12. CRUPRT 


020S 

'<,■» U V M 

000C 

kJ U 

1F01 

TB 

PRTVIO 


0209 

0 0 0 E 

1603 

JNE 

CSP005 


0210 

0010 

3020 

LDCR 

SSTRPRT. 0 



0012 

0000 




0211 

0014 

101F 

JMP 

CSP022 


0212 


0016' CSP005 

EQU 

$ 


0213 


t 



3-CALL PR I NT ( PROMPT ) ; 

0214 

0016 

0 2 0 A 

LI 

R10, PROMPT 



00 1 8 

0 0 0 0 




0215 

0 0 1 A 

06 A 0 

BL 

gPRNTC 



00 1C 

0000 




02 1.6 

00 IE 

1000 

MOP 



0217 


t 



3-CALL GETFIELD(PTR) ; 

0218 

0020 

06A0 

BL 

©GETFLD 



0022 

0000 




0219 

0024 

D82A 

MOVE 

@TRMCHR(R10) 

.(STERMCR 


0020 

0001 





0028 

0000 




0220 





4-DO 1=0 UNTIL CMDFOUND OR CM 

0221 

002A 

04C4 

CLR 

R4 


0222 

002C 

0205 

LI 

R5, CMDTBL 



002E 

0000 




0223 


0030' CSP010 

EQU 

i 


0224 


f 



4-IF PTR.CHARCNT <2 THEN SIGN 

0225 

0030 

D05A 

MOVE 

TR10, R1 

R10, POINTS TO STRING BUFFER 

0226 

0032 

0981 

SRL 

R1 , 8 

RYTE 0 = @ CHARS 

0227 

0034 

0641 

DECT 

R1 


0228 

0036 

110A 

■JLT 

CSP020 


0229 


T 



5- I F COMMANDTABLE ( I ) =PTR , CMD 

0230 


5^: 



6-SIGNAL CMDFOUND ; 

0231 

0033 

8A95 

c 

*R5,@2(R10) 



003A 

0002 




0 2 3 2 

0030 

130E 

JEQ 

CSP02S 


0233 


t 



5-1 =1+1; 

0234 

003E 

0584 

I NC 

R4 


0235 


t 



5-IF DMAXCOMMAND THEN SIGNAL 

0236 

0040 

8804 

C 

R4,@N0CMDS 



0042 

0000 




0237 

0044 

1403 

JHE 

CSP020 


0233 


t 



4-END; 

0239 

0046 

0225 

AI 

R5- CMDLEN 



0048 

0 0 0 6 




0240 

004A 

10F2 

JMP 

CSP010 


0241 





4-CMDNOTFOUND: DO; 

0242 


004C' CSP020 

EQU 

S 




^ i_n «jj rx 00 (j) G> ’th c\j ro ^ m w F'. ao m >s? ^ oj pi ^ lo < n r... do ft? ^ oj ro ^ m w rx oo cd s> ^ ro oi in ?Xi r-.. 

^ ^ xF ^ xf- ^ LD m m LTi LT* U1 LO Ifi m UO f O (D m CO CO fr\ f n (X? Tx Fx Tx Px Fx Fx Px Fx Fx Px CO m m CO CO 00 DO CO 
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COMMAND STR PROCESSOR PROTO 


945330-9901 tt 


PAGE 0007 


0243 


02S8 


* 

:i; JKRETBUF 

004C 0420 BLIaIP ©RETBUF 

004E 0000 

t 

0050 V320A LI R10,CMDERR 

0052 0201 



0054' 

CSP022 

0054 

06 A0 


0056 

0000 

■. 1 / 

0 0 5 S 

10D3 

■T-. 

'i' 


005 A' 

>r- 

CSP025 

0 0 5 A 

C20A 

t 

005C 

04DS 


005E 

C308 

■T' 

0060 

05CC 


0062 

0 4 C 6 

•T- 

’4' 


0064 ' 

■p. 

CSP030 

t 

0064 

9820 

% 

0066 

0028' 


0068 

0000 


006A 

134E 

t 

006C 

9820 


0 0 6 E 

0 0 G 6 ' 


0 0 7 0 

0000 


0072 

135B 

S/* 

0074 

C045 


0076 

05C1 


007 8 

C006 


007A 

0240 


007C 

0007 


007E 

C 0 9 1 


0030 

0A10 


0082 

1301 


0084 

0A02 



0086' 

C2 

0086 

09E2 



0088' 

CSP060 

0088 

0282 


0 0 8 A 

0001 


00 SC 

1 61 1 



EQU f 


BL 

TERROR 

JMP 

CSP 

EQU 

$ 

MOV 

R10, R8 

CLR 

:«R8 

MOV 

R8, R12 

INCT 

R12 

CLR 

R6 

EQU 

$ 

CB 

@TERMCR,@EOR 

JEQ 

CSP090 

CB 

STERMCR, @ESC 

JEQ 

CSP105 

MOV 

R5, R1 

INCT 

R1 

MOV 

R6,R0 

AND I 

R0, 7 

MOV 

:KR1 . R2 

SLA 

RO. 1 

JEQ 

C2 

SLA 

R2, R0 

EQU 

f 

SRL 

R2, 14 

EQU 

S 

Cl 

R2, PHSTR 


JNE 


5-CALL RETBUFCPTR); 


5-CALL ERRORCCMDERROR) ; 


4-END; 

4- CMDFOUND: DO; 

5- CALL RETBUF(PTR), 

5-CALL GETEUFCCPLPTR) ; 

RE-USE EXISTING BUFFER 
5-CPLPARMCOUNT = 0; 
5-CPLBITS - 0; 

5-CPLCURRPTR = CPLPTR + 2; 


5-PARM INDEX-0; 

5- DO UNTIL ENDOFRECORD OR PA 

6- IF TERMCHAR = 'EOR' THEN SI 

7- EN DOF RECORD; 


S-IF TERMCHAR = 'ESC' THEN SI 


6-PARM = COMMANDTABLEPARMCPA 
ISOLATE 2 BIT FIELD 
BITS OF R2 


7-PARM=HAB; DO; 


CSP065 


COMMAND STR PROCESSOR PROTO 945330-9301 tt PAGE 0008 


0289 


t 




7-CALL GETHEXVALUE(VALUE, TER 

0290 

008E 

06A0 


BL 

iGETHEX 



0090 

0000 





0291 

0092 

104B 


JMP 

CSP105 

IF INPUT ERROR -o; 

0292 

0094 

1001 


JMP 

CSP06 1 

IF VALUE INPUT 

0293 

0096 

1009 


JMP 

CSP062 

IF NO VALUE INPUT 

0294 


0098" CSP0G1 

EQU 

« 


0295 

0098 

C04C 


M 0 V 

R12, R1 


029G 

009A 

6048 


'C 

R8/R1 


0297 

009C 

0221 


hI 

R1 . -30 



009E 

FFE2 





0298 

00A0 

1540 


JGT 

CSP100 


0299 


t 




S-C(CPLCURRPTR) = VALUE; 

0300 

00A2 

C70A 


MOV 

R10,^R12 


0301 


t 




8-CPLCURRPTR = CPLCURRPTR 

0302 

00A4 

05CC 


INCT 

R12 


0303 


* 




S-CALL CPLPARMMARK ( CPLPTR , P 

0304 

00A6 

06A0 


BL 

@CPLPM 



00A8 

0134' 





0305 


00AA' CSP062 

EQU 

$ 

SAVE USER INPUT TERM CHAR 

0306 

00AA 

D809 


MOVE 

R9,@TERMCR 



00AC 

006E' 





0307 


* 




7-END; 

0308 

00AE 

102A 


JMP 

CSP080 


0309 


* 




7-PARM=STR.- DO; 

0310 


00B0' CSP065 

EQU 

S 


0311 

00B0 

0282 ■ 


Cl 

R2.PCSTR 



00B2 

0002 





0312 

00B4 

1623 


JNE 

CSP075 


0313 


t 




8-CALL GETFIELD(PTR) ; 

0314 

00B6 

06A0 


BL 

iGETFLD 



00B8 

0022' ■ 





0315 

00BA 

DS2A 


MOVE 

@TRMCHR(R10) ,@TERMCR SAVE TERMINATING CHAR 


00BC 

0001 






00BE 

00AC' 





0316 


t 




8- IF PTR. CHARCOUNT+2 +' CPL 

0317 


t 




8- - CPLPTR > 30 THEN SIGNAL 

0318 

00C0 

D05A 


MOVE 

:f(R10,Rl 


0319 

00C2 

0981 


SRL 

R1.8 


0320 

00 C 4 

05C1 


INCT 

R1 


0321 

00C6 

0911 


SRL 

R1 - 1 


■0322 

00C8 

0A1 1 


SLA 

Ri ;i 


0323 

00CA 

A04C 


A 

R12, R1 


0324 

00CC 

b048 


S 

R8, Rl 


0325 

0 0 C E 

0221 


AI 

Rl , -29 



0 0 D 0 

FFE3 





0326 

00D2 

1103 


JLT 

CSP068 


0327 


% 

:t:RETBUF 


0328 

00D4 

0420 


BLUIP 

@RETBUF 



00D6 

004E' 





0329 

00D8 

1024 


JMP 

CSP100 


0330 


00DA' CSP068 

EQU 

$ 


0331 


t 




8-CCNT = PTR.CHARCOUNT 

0332 

00DA 

D0DA 


MOVE 

*R10. R3 


0333 

00DC 

0983 


SRL 

R3,8 
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0334 



t 



8- IF CCNT > 0 THEN DO; 

0335 

00DE 

130B 


JEQ 

CSP073 


033G 



t 



8-Pl = PTR; 

0337 

00E0 

C08A 


MOV 

R10.. R2 


0333 



t 



8-CPLCURRPTR.CHAR = PI . 

0339 



t 



S-Pl = Pl+2; /* SKIP 

0340 



t 



S-CPLCURRPTR = CPLCURRPTR. 

0341 

00E2 

DF12 


MOVB 

^.R2.3|iR12+ 


0342 

00E4 

05C2 


INCT 

R2 


0343 



t 



8-D0 WHILE CCNT >= 0; 

0344 


00E6' 

CSP070 

EQU 

$ 


0345 



% 



9-Pl . CHAR=CPLCURRPTR . CHAR; 

0346 



% 



9-Pl=Pl+l ; 

0347 



t 



9-CPLCURRPTR = CPLCURRPTR+ 

0348 

00E6 

DF32 


MOVB 

*R2+. ;tcR12+ 


0349 



t 



9-CCNT = CCNT -1; 

0350 

00E8 

0603 


DEC 

R3 


0351 



t 



S-END 

0352 

00EA 

13FD 


JEQ 

CSP070 


0353 

00EC 

15FC 


JGT 

CSP070 


0354 



t 



8-CPLCURRPTR = SLACSRLICPLC 

0355 



t 



9- ) ,1) , 1 ) 

0356 

00EE 

09 1C 


SRL 

R12, 1 


0357 

00F0 

0A1C 


SLA 

R12, 1 


0353 



t 



8-CALL CPLPARMMARKCCPLPTR, P 

0359 

00F2 

06A0 


BL 

SCPLPM 



00F4 

0134' 





0360 






8-END; 

0361 






^ 8-CALL RETBUF(PTR) ; 

0362 


00F6' 

CSP073 

EQU 

$ 


0363 



t )KRETBUF 


0364 

00F6 

0420 


BLWP 

SRETBUF 



00F8 

00D6' 





0365 



:*■ 



7-END; 

036b 

00FA 

1004 


JMP 

CSP080 


0367 



t 



7-PARM-OTHER: DO; 

0368 



t 



8-/4D0N'T PUSH INDEX PAST END 

0369 



t 



S-PARM INDEX = PARM INDEX -1; 

0370 


00FC' 

CSP075 

EQU 

S 


0371 

00FC 

0606 


DEC 

R6 


0372 



t 



8-TERMCHAR = 'EOR'; 

0373 

00FE 

D820 


MOVB 

®EOR, STERMCR 



0100 

0068' 






0102 

00BE' 





0374 


0104' 

CSP0S0 

EQU 

% 


0375 



t 



7-END; 

0376 



t 



6-END CASE; 

0377 



% 



6-PARMINDEX=PARMINDEX+l ; 

0378 

0104 

0586 


INC 

R6 


0379 



t 



5-END 

0380 

0106 

10AE 


JMP 

CSP030 


0381 



t 



5- ENDRECORD: IF PTR ,NE. 0 T 

0382 


0108' 

CSP090 

EQU 

$ 


0383 






6-CALL COMMANDSERVICEROUTINE 

@384 

0108 

C1A5 


MOV 

@CMDRTN(R5) , R6 
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010A 

0004 



0385 

010G 

1307 

JEQ 

CSP095 

038G 

010E 

C288 

MOV 

RS. R10 

0387 

0110 

C808 

MOV 

R8,®CPLSAV 


0112 

0000 



0388 

0 1 1 4 

0696 

BL 

*R6 

0389 

0116 

C2A0 

MOV 

@CPLSAV,R10 


0118 

0112' 



0390 


* 



0391 

011 A 

1008 

JMP 

CSPl 10 

0392 


t 



0393 


011C' CSP095 

EQU 

$ 

0394 


t 



0395 

011C 

020A 

LI 

R10, MISSOV 


011E 

0003 



0396 

0120 

1002 

JMP 

CSP102 

0397 


* 



0398 





0399 


0122' CSP100 

EQU 

S 

0400 


* 



0401 

0122 

020A 

LI 

R10<PRMERR 


0124 

0100 



0402 


0126' CSP102 

EQU 

i 

0403 

0126 

06A0 

BL 

©ERROR 


0128 

0056' 



0404. 


t 



0405 


t 



0406 


012A' CSP105 

EQU 

S 

0407 

012A 

C288 

MOV 

RS,R10 

0408 


012C' CSP110 

EQU 

S 

0409 


t 



0410 


% YRETBUF 

0411 

012C 

0420 

BLLIP 

©RETBUF 


012E 

00F8' 



0412 


t 



0413 


t 



0414 


t 



0415 

' 0130 

0460 

B 

@CSP 


0132 

0000' 





5-END; 

5-ELSE MISSINGOVLY: DO; • 
G-CALL ERROR(MISSOV) ; 

5-END 

5- PARMERROR: DO; 

6- CALL ERROR ( PARAMETERERROR ) ; 


5-END; 

5-ESCAPE: 

c 


5-CALL RETBUFCCPL) 


4-END; 

3-END; 

2-END; 
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0417 






2-PROCEDURE CPLPARMMARK C CPL 

0418 



t 



3~/t CPLPARM WILL INCREMENT 

0419 






3- THE PARAMETER COUNT AND S 

0420 






3- THE PARAMETER PRESENCElS.BI 

0421 



't 



3- FOR THE PARAMETER CORRESP 

0422 






3- TO PARM INDEX. 

0423 



t 



3-:i^/ 

0424 





REGISTER 

ASSIGNMENTS 

0425 




R8 

- POINTER 

TO COMMAND PARAMETER LIST 

042S 



t 

R6 

- PARM INDEX 

0427 



t 

R0,R1 

SCRATCH 

REG 

0423 



t 




0429 


0134' 

CPLPM 

EQU 

$ 


0430 



t 



3-TEMP = SRL( '30' , PARM) INDEX) 

0431 

0134 

0201 


LI 

Rl. >80 



0136 

0080 





0432 

0133 

C006 


MOV 

R6,R0 


0433 

013A 

1301 


•JEQ 

C4 


0434 

013C 

0901 


SRL 

R1 , R0 


0435 


013E' 

C4 

EQU 

f 


0436 



t 



3-CPLPTR.BITS = CPLPTR.BITS 

0437 

013E 

E601 


SOC 

R1,*R8 


0433 



t 



3-CPLPTR. PARMCOUNT = CPLPTR 

0439 

0140 

06D8 


SWPB 

XR8 


0440 

0142 

0538 


INC 

:t:R8 


0441 

0144 

06D8 


SWPB 

*RS 


0442 






2-END CPLPARMMARK; 

0443 

0146 

045B 


RT 



0444 






1-END CMDSTRPROCESSOR; 

0445 




END 



0000 ERS 
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960 - 

980 CONCORDANCE 

S 


0202 



0294 



0393 

ACL 


0163 

BLANK 


0149 

C2 

0283 

0281 

C4 

0435 

0433 

CMDCDE 

0174 


CMDERR 

0177 

0247 

CMDLEN 

0176 

0239 

GMDRTN 

0175 

0384 

CMDTBL 


0142 

COMMA 


0150 

CPLPM 

0429 

0304 

CPLSAV 


0155 

CRUOFF 


0137 

CRUPRT 


0156 

CSP 

0202 

0158 

CSP005 

0212 

0209 

CSP010 

0223 

0240 

CSP020 

0242 

0228 

CSP 02 2 

0248 

0211 

CSP025 

0253 

0232 

CSP 030 

0266 

0380 

GSP060 

0285 


CSP061 

0294 

0292 

CSP062: 

0305 

0293 

CSP065 

0310 

0288 

CSP068 

0330 

0326 

CSP070 

0344 

0352 

CSP073 

0362 

0335 

CSP075 

0370 

0312 

CSP080 

0374 

0308 

CSP090 

r' c D i/!i Q c; 

0382 

O Q Q 

0270 

, o Q c: 

o r y c? b 

CSP100 

y o 3 j 

0399 

y J iS b 

0298 

CSP 102 

0402 

0396 

CSP105 

0406 

0273 

CSP 110 

0408 

0391 

DAB 

0190 


EOR 


0148 

ERROR 


0146 

ESC 


0153 

GETBUF 


0159 

GETCHR 


0154 

GETFLD 


0140 

GETHEX 


0145 

HAB 

0189 


LWP 


0161 

MINUS 


0152 

MISSOV 

0179 

0395 

MX07 

0180 

0206 

NOCMDS 


0143 

PCOWT 


0144 

PCSTR 

0187 

0311 

PDSTR 

0185 


PHSTR 

0186 

0287 

PLUS 


0151 


0212 0223 0242 0248 

0305 0310 0330 0344 

0399 0402 0406 040S 


0222 

©359 

0387 0389 

0207 

0251 0415 


0237 


0353 


0366 


0329 

0291 


0269 0373 
0249 0403 
0272 


0218 0314 

0290 


0236 

0204 


0253 0266 0283 0285 

0362 0370 0374 0382 

0429 0435 
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PNULL 

PRINT 

0188 

0139 









PRMERR 

017S 

0401 









PRNTC 


0141 

0215 








PROMPT 


0136 

0214 








PRTVIO 

0181 

0208 









R0 

0118 

0277 

0278 

0280 

0282 

0432 

0434 




R1 

0119 

0225 

0226 

0227 

0275 

0276 

0279 

0295 

0296 

0297 



0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0431 



0434 

0437 








R10 

0128 

0206 

0214 

0219 

0225 

0231 

0247 

0256, 

0300 

0315 



0318 

0332 

0337 

0386 

0389 

0395 

0401 

0407 


Rll 

0129 










R12 

0130 

0207 

0261 

0262 

0295 

0300 

0302 

0323 

0341 

0348 



0356 

0357 








R13 

0131 










R14 

0132 










R15 

0133 










R2 

0120 

0279 

0282 

0284 

0287 

0311 

0337 

0341 

0342 

0348 

R3 

0121 

0332 

0333 

0350 







R4 

0122 

0221 

0234 

0236 







R5 

0123 

0222 

0231 

0239 

0275 

0384 





RG 

0124 

0264 

0277 

0371 

0378 

0384 

0388 

0432 



R7 

0125 










R8 

012G 

0256 

0259 

0261 

0296 

0324 

0386 

0387 

0407 

0437 



0439 

0440 

0441 







R9 

0127 

0306 









RETBUF 


0160 

0245 

0328 

0364 

0411 





RR 


0164 









RUP 

SCERR 

0184 

0162 









STRNG 

STRPRT 

0183 

0157 

0210 








TERMCR 


0147 

0219 

0269 

0272 

0306 

0315 

0373 



TRMCHR 

0182 

0219 

0315 








USRPC 


0138 










THERE ARE 0087 


SYMBOLS 




APPLICATION 


REVISIONS 


NEXT ASSY 

USED ON 

LTR 

DgSCWiPTlON 

DATE 

approved 


750S 

• 
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- 






• 












- 






. 




REV 













■ 

















SHEET 













■ 

















REV STATUS 
OF SHEETS 

REV 







■ 

















SH 

EET 







■ 

















UNLESS OTHCRWISC SPCCIFICO 
DIMENSIONS APE IN INCHES 
TOLEPANCES 
ANGLES Tl* 

3 PLACE OECIMAi± 010 

'qWN DATE^ 

QSn Texas Instruments 

STjr) INCOPPOPATtD 

Bquipmant Group Dottm, Tomom 

IDENTIFYING NUMSBPS 
SHOWN IN PAPENTHESES 
FOP PCFCPENCE ONLY 

INTEPPPET DWG IN 
ACCOPDANCE WITH 
MIL STD lOO 

ENGR 

;AL, ASGLUN, assign LUN0-PX990 I 

CONTP NO/^ X 

OESIGF^ ACTIVITY RELEASE X. 

SIZE 

A 

CODE IDENT NO 

96214 

DRAWINQ NO 

* ■ I 

945346-9901 


1 SCALE 

REV. 

of 5 1 


Tl-»ttS.C 






t* AS816N LUNO ♦* 


94534a«99il** 


PAGE 


9003 


t 

DO UNTII. ERROR OR DONff 

i0i4 


* 

IF CPL FARM COUNT ,NE, 2 THEN 

0P05 



SIGNAl ERRORl 



♦ 

IF CPL RARWaCCHR COUNT) ,NE, 3 THIN 

GJ07 


* 

SIGNAL ERRORf 



t 

CALL CONOTCDEV NAHE,DEV TYPE, DEV NUM) 1 



« 

IF DEV TYPf«0 THEN SIGNAL ERRORl 



♦ 

CALL SfTLUNfLUNO.OIV TYP|,OEV NUM,ERRC)| 

08U 


* 

IF ERRC ,EQ, 0 then SIGNAL DONEI 

001S 



SIGNAL ERRORl 

0013 


♦ 

ENOi 

0014 


♦ 

ERRORl DOI 

00 IS 


# 

CALL ERROR(MK01) 

0016 


♦ 

ENDI 

0017 


# 

OONfl DOIENDI 

0016 


ll 

RETURNI 

0019 



lOT USGLUN* 

0020 


* 

titlei ASGLUN 

8021 



ASSIGN LUNO 

0022 


# 

REVISIONI 

8023 


# 

ORIGINAL 

8024 


* 

COHPUTERI 990,ASH 

0025 



ABSTRACTI accepts AN INPUT COMMAND OF THE FORMI 

0026 


♦ 

AL,4LUN0»»40EVICE NAMEw 

0027 


t 

WHERE 

8026 


. # 

«LUNO* lit log 

0029 


* 

C81 

1030 


* 

C82 

0031 


* 

OUH 

8032 


* 

AFTER VALIDATING THE CORRECT NUMBER OF 

0033 


* 

PARAMETERS, CALLS ARE MADE TO A SUBROUTINE TO 

8034 


t 

A DEVICE TYPE AND UNIT NUMBER, THE 

8035 


# 

INPUT IS ASSIGNED TO THAT DEVICE, 

0036 


♦ 

CALLING SEQUENCEI 

8037 



CALLED BY THE MONITOR 

8030 


# 


8039 


t 

REF»S AND OEP»8 

8040 

8041 



DEF ASLUN 

8042 



REF GETiUF 

8043 



REF RET9UF 

8044 



REF LWP 

8045 



REF RWP 

8046 



REF ACL 

8047 



REF RR 

8046 



REF CONOT CONVERT DIV NM •» OEV TYPE 

8049 



REF 8ETLUN SET LOGICAL UNIT 

8050 

§051 


« 

REF ERROR 

8052 


♦WORKSPACE REGISTER DEFINITIONS 

8053 


♦ 


8054 

8080 

R0 

EQII 8 

0055 

8001 

Rl 

EQU 1 

8066 

0002 

RS 

EQU 2 




I 



** ASSIGN LUNO 


945346«990!I** 


PAGt 0093 


0087 


0003 

R3 

lou 

3 


(60Sa 


0004 

R4 

EQU 

4 


0059 


0005 

R5 

EQU 

5 


0060 


0006 

R6 

EQU 

6 


0061 


0007 

R7 

EQU 

7 


0062 


0008 

R8 

EQU 

8 


0063 


0009 

R9 

EQU 

9 


0064 


800A 

R10 

EQU 

10 


0065 


000B 

Rll 

EQU 

11 


0066 


000C 

R12 

EQU 

12 


0067 


0000 

Rl3 

EQU 

13 


0066 


000E 

R14 

EQU 

14 


0069 


000F 

Rl5 

EQU 

15 


0070 



* 




0071 



# 




0072 



* 

CONMAND 0A9AMETIR U8T 


0073 


0000 

CPLPC 

EQU 

0 

farm count 

0074 


0001 

CPIBIT 

EQU 

1 

parameter PRESENCE BITS 

0075 


0002 

CPIPRH 

EQU 

2 

FIRST parameter 

0076 


0002 

NX08 

EQU 

2 

INVALID LUNO 

0077 



* 




0076 



# 

REGISTER A8IQNHENT8 


0079 




Rll 

SUBROUTINE LINK REG 

0080 




R10»R7 PARH REGS 


0081 



if 

R6 

command parm list 

♦ 

0082 



H 

R5 

RETURN ADDRESS 


0083 



# 




0084 



if 




008S 



if 




0086 


0000* 

ASUJN 

EQU 

S 


0087 



♦ 



2»D0 UNTIL ERROR OR DONEl 

0088 



♦ 



3»IF CPL FARM COUNT ,NE. * THE 

0089 



# 



4»8I6NAL ERRORI 

0090 

0000 

C14B 


NOV 

RlliRS 

SAVE RETURN 

0091 

0002 

C16A 


MOV 

R10,R6 


0092 

0004 

0116 


MQVB 

*R6»R4 


0093 

0006 

0964 


SRL 

R4,8 


0094 

0008 

0644 


DECT 

R4 


0095 

000A 

1612 


4NE 

ASL010 


0096 



it 



3f*IF CPL PARM2fCHR COUNT) ,NE, 

0097 



* 



4*SIGNAL ERRORI 

0096 

000C 

0126 


HOVB 

#CPLPRM+afR6)»R4 



0001 

0004 





0099 

0010 

0984 


SRL 

R4,8 


0100 

0012 

0284 


Cl 

R4»3 



0014 

0003 





0101 

0016 

160C 


JNE 

ASL010 


0102 



♦ 



3*-CALL CDNOTCOEV NAME.OEV TYPE 

0103 

0016 

022A 


AI 

R10*8 

8TH byte of CPL 


001 A 

0005 





0104 

001C 

06A0 


BL 

•CONDT 



001f 

0000 





0105 



* 



3»IE DEV TYPE40 THEN SIGNAL ER 

0106 

0020 

C249 


MOV 

R9fR9 


0107 

0022 

1106 


JLT 

ASL010 



♦•ASSIGN LUNO ♦* 


94S346«»GSC!lt# 


PAGE PG§4 



0IJ0 

UV69 

0B24 

C2A6 


MOV 

PCPIPPH(P6),R10 

3*CAU. SETLUNCiUNOfDEV TYPE, Of 


B026 

BB02 





sues 

0B29 

B6A0 


8L 

P8ETUUN 



B02A 

0000 





01U 

S1I2 

BB2C 

CIC7 

!lr 

MOV 

H7,P7 

3»IF IRRC *EQt 0 THEN SIGNAL D 

ilia 

SU4 

0i2E 

1304 

♦ 

JEO 

A8L020 

3*SISNAL IRRORf 

tus 



♦ 



a»ENDf 

BUS 


0030 » 

ASlfUf 

EQU 

S 


BU7 






a»IRPORl DOI 

BUS 

BUG 

0B3B 

020A 

if 

II 

R10,MX02 

3.CALL ERReRtMXBU 


BP32 

0002 





BjaB 

BB34 

86A0 


Bi 

•ERROR 



0B3S 

0000 





etai 



♦ 



a*ENOf 

Biae 



# 



2.00NEI OOMNOf 

mas 


B03SI 

kBinM 

EQU 

S 


Bta4 

Bias 

BB3S 

C28S 

if 

HOV 

R6,Rlf 

2«»RETURNf 

Bias 

BB3A 

0485 


B 

♦ R9 


8127 




ENO 




fiia0 EPS 




945346-9901 


PAGE 0005 


96K • 9»0 rONCOROANCe 


• 


0086 

0116 

0123 



ACU 


0046 





ASL«ie^ 

0116 

0095 

0101 

0107 



ASL«2i'’ 

0123 

0113 





ASUJN 

0086 

0041 





CDNDT 


0048 

0104 




CPLHIT 

0074 






CPLPC 

0073 






CPLPRM 

0076 

0098 

0109 




ERROR 


0050 

0120 




GETBUF 


004? 





LWP 


004 4 





HX02 

0076 

0119 





«P 

0034 






R1 

0055 






R10 

0064 

0091 

0103 

0109 

0119 

0125 

RU 

0066 

0090 





Rl2 

0066 






R13 

0067 






R14 

0068 






Rl5 

0066 






»? 

0056 






R3 

0057 






R4 

0058 

009? 

0093 

0094 

0098 

0099 0100 

RS 

0059 

0090 

0126 




R6 

0060 

0091 

0092 

0098 

0109 

0125 

R7 

0061 

011? 

0112 




R8 

006? 






R9 

0063 

0106 

0106 




retbuf 


0043 





RR 


0047 





RWP 


0045 





SETLlJH 


0049 

0110 





THERE ARE 0i33 SVHBOLS 


c 



APPLICATION 


NEXT ASSY I USED ON I LTH 











*• BRfAKPOINT PROCeSSQR ** 


945347h9901** 


PA5G PBP2 


0i«v1 

# 

PROCEDURE BREAKPOINT PROCESSOR (BREAK PWAS, 


* 

BREAK entry «, BREAK ENTRY PTR)f 


# 

BREAK ENTRY PTR.REE COUNT ■ 


# 

BREAK ENTRY PTR.REE COUNT ♦ If 

0007 

♦ 

clear breakelag 

0t^0M 

# 

jF break entry ptr.ref count ★ 

0009 


BREAK ENTRY PTR.LOOP COUNT THEN OOf 

0010 

* 

BREAK ENTRY PTR.REE COUNT ■ •If 

0011 

* 

CALL PRINT(8READK ENTRY Nil 

00 I P 


CALL INSPECT REGISTERS! 

0013 

♦ 

IF(0REAK ENTRY PTR. FLAGS .ANO, 

0014 

# 

SSOEF) ,NE, 0 THEN DO; 

0013 


CALL PRINT 8NAPSH0T(BREAK ENTRY PTR.SSR) 

0013 


BREAK FLAG ■ §r 

0017 

* 

ENOIELSE BREAK FLAG 

0010 

♦ 

END! 

0019 

# 

end BREAKPOINT PROCESSOR! 

0020 


IDT »BKPPR» 

0021 

# 

TITLEI BKPTPP 

§022 

♦ 

BREAKPOINT PROCESSOR 

0023 

♦ 

REVISION! 

0024 

« 

ORIGINAL 

002» 

# 

COMPUTER! 990»ASM 

§026 

t 

ABSTRACT! BKPTPR CHCK8 A BREAKPOINT TO SEE IF 

0027 

♦ 

ITS REFERENCE COUNT HAS BEEN EXHAUSTED 

0028 

# 

AND PRINTS TH breakpoint INFORMATION 

0029 

i! 

IF necessary 

0030 

# 

CALLING SEQUENCE! 

0031 

# 

BL F8KPTPR 

0032 

# 

«9 • BREAKPOINT ENTRY NUMBER 

0033 

# 

R8 • BREAKPOINT ENTRY POINTER 

0034 


RETURN 

0036 

# 

R10 ■ 0 •» DO NOT break 

0036 



0037 

★ 

REFfS AND DEF!8 

0038 

♦ 


0039 


DEF BKPTPR 

0040 


REF IRP 

0041 


REF PRNTC 

0042 


REF PRT8S 

§043 


REF CLST 

0044 


REF SNAPS 

§045 


REF SNPTAB 

0046 


REF BK8TR 

0047 


REF BKSTRB 

§048 


REF GETBUF 

it49 


REF RET0UF 

00S0 


REF LWP 

0091 


R£F RWP 

0082 


REF ACL 

§083 


REF HR 

§094 

ir 


009S 

★WORKSPACE RgGISTER OPPINITIONS 

§096 




** BREAKPOINT PROCESSOR ** 


945S47*99PI** 


PAGE P!0f3 


0»57 


0000 

R0 

EQU 

0 


lePiSR 


0001 

Ri 

lOU 

1 


0059 


0009 

R9 

EOU 

2 


0w6m 


0003 

R3 

EQU 

3 


0061 


0004 

R4 

EQU 

4 


0069 


0005 

R5 

EOU 

5 


0063 


0006 

R6 

EQH 

6 


0064 


0007 

R7 

EQU 

7 


006S 


0008 

R8 

EQU 

8 


0066 


0000 

R9 

EQU 

9 


0067 


000A 

R10 

EQU 

10 


006R 


000B 

Rll 

EQU 

U 


0060 


000C 

R12 

EQU 

19 


007« 


0000 

R13 

EQU 

IS 


0071 


000E 

R14 

EQU 

14 


0079 


000F 

R15 

EOU 

15 


0073 



* 




0074 


0100 

L8TTE 

EQU 

256 


0075 



* 




0076 



* 

BREAKPOINT ENTRY 


0077 



* 




0074 


0000 

BPDEF 

EQU 

0 

1 BYTE 

0070 


4000 

SSDEF 

EQU 

»40*LPYTE 


00H0 


0001 

8PSSN8 

EQU 

1 


0081 


0009 

BPPC 

EQU 

2 


0089 


0006 

CURREF 

EQU 

6 


0083 


0009 

LOOPCT 

EQU 

6 


0084 


8000 

PRESEN 

EQU 

>S0*LBVTE 


0086 



* 




0086 



* 



li*PRQCEDURg BREAKPOINT PROCESS 

0087 



* 



2.PREAK entry «, break ENTRY PT 

0088 


0000 ' 

BKPTPR 

EQU 

$ 


0080 



• *ALLOC 

, COPY, LINK 


0090 

0000 

0420 


BLWP 

• ACL 



0009 

0000 





0091 



* 



9«-BREAK entry PTR.REF count m 

0099 



♦ 



3*BREAK FNTRY PTR.REF COUNT ♦ 

0093 

0004 

09A9 


INC 

•CURREFCR8) 



0006 

0006 





0094 



♦ 



9-CLEAR BREAKFUAG 

0095 

0008 

04C7 


CLR 

R7 


0096 



* 



9-If BREAK ENTRY PTR.REF COUNT 

0097 



★ 



3»BREAK ENTRY PTR.LOOP COUNT T 

8098 

000A 

8A99 


C 

• CURREF(R8) , 

•LOOPCTCRB) 


000C 

0006 






000F 

0008 





0090 

0010 

1624 


JNE 

BKP020 


0100 



♦ 



SwRREAK ENTRY PTR.REF COUNT « 

0101 

001? 

0729 


8ETQ 

• CURREF fRI) 



0014 

0006 





0109 



n 



3-CALl PRiNTfBREADK ENTRY R) » 

0103 

0016 

0906 


LI 

R8,CL8T 



0018 

0000 





0104 

001 A 

A189 


A 

R0,«6 


0105 

00 It 

D816 


80VB 

*R6»FBKSTRe 



c 


** iWEAKPOiNT PROCESSOR ** 9453<47«99cU** PASE ?l0t4 



0811 

0000 






6510fi 

0020 

020A 


LI 

R10,BiSTR 




0822 

0000 






0tt7 

0824 

06A3 


BL 

fPRNTC 




082ft 

0000 






010« 

0028 

1000 


NOP 










3i.CALt INSPECT REGISTERS! 


0HM 

082A 

06 A 0 


BL 

iIRP 




082C 

0000 






0 m 






3I-IPC8REAK ENTRY PTR, FLAGS .AN 


ilia 






4i»SSDEF) ,N|, 0 THEN DO! 


ills 

002F 

C199 


MOV 

♦R8.R6 



0114 

0030 

0246 


ANHI 

R6,SSDEf 




0032 

4000 






0U5 

0034 

1311 


4EO 

8KP010 



BilB 



t 



4*CALL PRINT SnAPSHOTCBREAK EN 


iU7 

0036 

C298 


MOV 

*R8,R10 



ills 

0036 

024A 


ANDI 

Rl0f>FF 

BYTE 1, ONLY 



00 3 A 

00FF 






iUR 

003C 

C18A 


MOV 

R10»R6 



012M 

0036 

0207 


LI 

R7iSNAPS 




0040 

0^00 






0121 

0042 

39A7 


MPY 

4»4(R7) ,fli 




0044 

0004 






0122 

0046 

01E7 


MOVB 

08NPTA8(R7) ,R7 




0046 

0000 






0123 

004A 

0247 


ANDI 

R7»PRESEN 




00 4C- 

8000 





m 

0124 

0046 

1304 


JEO 

0KP010 



il2§ 






4*BREAK flag « 0! 


il2« 

0050 

04C7 


riP 

R7 



0127 

0052 

06A0 


BU 

0PRTSS 




0054 

0000 






012« 



* 



3rEND!EL8l BREAK FLAG ■-! 


0129 

0056 

1001 


JMP 

0KP020 



0130 


005a» 

8KP010 EQU 

$ 



il3l 

0056 

0707 


8ET0 

R7 



0132 



♦ 



2-ENO! 


0133 


005A» 

8KP020 IQU 

S 



0134 






1-END BREAKPOINT PROCESSOR! 


0139 

009A 

C747 


MOV 

R7,*R13 RETURN BREAOK FLAG IN CALLER’S R10 


013« 



# 

★ link 

TO PREV WK8P, RET 

CURR WKSP 


0137 

005C 

0420 



#RR 




00SE 

0000 






0138 

0060 

C280 


MOV 

R0,R10 



0139 

0062 

0450 


RT 




0140 




END 




§000 1 

ER8 









9453^7-9901 ** 


PAGE 0005 


950 • ! 

980 rONCORDANCE 


S 


0088 

0130 

ACU 


005? 

0090 

BKPrnw 

0130 

0115 

0124 

0KR020 

0133 

0099 

0129 

BKPTPW 

0088 

0039 


8K5TR 


0046 

0106 

QKSTRR 


0047 

0106 

9PDEF 

0078 



8PPC 

0081 



8PSSNM 

0080 



CLST 


0043 

0103 

CUR REF 

008? 

0093 

0098 

getbuf 


0048 


IRP 


0040 

0110 

L81TE 

0074 

0079 

0084 

UOUPCT 

0083 

0098 


LWP 


0050 


PPfcSEN 

0084 

0123 


PRNTC 


00 41 

0107 

prtss 


0042 

0127 

R0 

0067 

0138 


R1 

0058 



R10 

0067 

0106 

0117 

Rll 

0068 



Rl2 

0069 



Rl3 

00 70 

0135 


Rl4 

0071 



Rl5 

0072 



R2 

0059 



R3 

0060 



R4 

0061 



R5 

006? 



R6 

0063 

0103 

01 04 

R7 

0064 

0095 

0120 

R8 

0065 

0093 

0098 

R9 

0066 

0104 


RETBUF 


0049 


RR 


0053 

0137 

RWP 


0051 


SNAPS 


0044 

0120 

snptar 


0045 

0122 

SSOEF 

0079 

0114 



0133 


0101 


01l« 0119 013« 


010« 0113 0114 0119 0121 

012? 012? 0123 012« 0131 

009« 0101 0113 0117 


0135 


THfRe are 0042 SYRROUS 




APPLICATION 


REVISIONS 


NCXT ASSY 


AfxmOVEO 



SHEET 


REV STATUS 
OF SHEETS 


SHEET 


UNLESS OTHCNWISC SPECIFIED 
DIMENSIONS APE IN INCHES I \ 
TOLEPANCES > ■■■■ 

ANGLES -!rl* I CMK\ 

3 PLACE DECIMAL ± 0i0 I 

2 PLACE DECIMAL ± 02 


IDENTIFYING NUMSEPS 
SHOWN IN PAPENTHESES 
FOP PEFEPENCE ONLY 



INTEPPPET DWG IN 
ACCOPDANCE WITH 
MIL STD lOO 



Texas Instruments 

INCOPPOPATCD 

Bquipfrmft Group Do/tm, Twxot 


; AL, CHARIN, CHARACTER INPUT-PX99Q 


SIZE CCX3E II3ENT NO I ONAWING NO 


A 96214 


945348-9901 


of. 10 

























1 ERROR OUTPUT 

0003 

♦ 

945348»9901«* PACE 8002 

PROCEOURE SETCHR(CHAR) 


I 0004 

# 

/ * 

o 

0003 


INPUT A CHAR PROM THE 733 


0000 

# 

*/ 


0f0T 

t 

CHAR ■ »CR» /* TREAT NO CHAR AS »CR» */ 


0008 

« 

CALL 8VCC8WC CALL BLOCH, CHAR)| 


0iiR 

t 

IP UNRECOVERABLE ERROR THEN RETURN C » ESC ' 3 1 


0010 

t 

RETURN! 


0011 

t 

pnd getchr 


0012 

« 

PROCEOURE PRINT(8THINS,CHAR COUNT) 


0013 

« 

/t 


0014 


OUTPUT CHARACTER STRIPS 


001S 

# 

*/ 


0010 

t 

PROCEDURE PRINT CRLPf 


0017 

* 

7<rPRINT «L1NE FE|O>0CARR J A8E RETURN*- */ 


0018 

t 

CALL PRINT(LaCtCRLP5)» 


001S 

t 

END PRINT CRLP! 


0020 

♦ 

CHAR COUNT f STRlNSfl) 


0021 

t 

PRB BUFFER PTR i STRINSI 


8022 

♦ 

PRB CHAR COUNT • CHAR COUNT! 


0023 

# 

CALL SVCC8VC CALL BLOCK)! 


0024 

t 

IF unrecoverable error then DO! 


0085 

♦ 

RETURN(ERROR)! 


0088 

t 

END! 


0027 

♦ 

PROCEOURE ERRORCfRR CODE)! 


0028 

t 

1* 


0089 

t 

ERROR ACCEPTS AN ERROR CODE, 


0030 

♦ 

CONVERTS IT TO AN ASCII 8TR1NS 

c 

0031 

t 

AND prints it. 

0032 

« 

*/ 


0033 

t 

ERRPTR - LOC (ERROR OUTPUT BUPFtR)! 


0034 

# 

CHAR ■ CL8T1 (ANOCSRCCERR CODE , 12) , » F ' ) ) I 


0035 

# 

ERR CODE • SRC (ERR CODE, 12)! 


0038 

# 

ERRPTR t ERRPTR ♦!! 


0037 

# 

ERR CODE • SRC (ERR CODE, 12)! 


0038 

t 

ERRPTR, CHAR ■ CL8T2 ( AND (ERR C00i,»F»))! 


0039 

« 

ERRPTR i ERRPTR ♦!! 


0040 

* 

ERR CODE P SRC (Err C0DE,l2)! 


0041 


ERRPTR, CHAR P CL8T(AND(ERR COOI,»F»))1 


0042 

♦ 

ERRPTR f ERRPTR 4l! 


0043 

* 

ERR CODE • 8RC(ERR CODE, 12)! 


0044 

# 

ERRPTR, CHAR ■ CL8T(AND(ERR COOE,»F»))! 


0045 

t 

CALL PRINT(ER8UF,0WCHAR8) ! 


0046 

t 

END ERROR! 


0047 

0048 

# 

IDT *CHARIN» 
TITLEI CHARIN 


0049 


INPUT 8IN8LE CHAR IN CHARACTER MODE, 


0080 

« 

REVISION! 


0051 


ORIGINAL 


0052 

« 

COMPUTER! 990, ASM 


0053 


ABSTRACT! CHARIN INPUTS A SINGLE CHAR FROM 


0054 

# 

THE 733 USING CHARACTER MODE 118, 


0055 

« 

CALLING SEQUENCE! 


0056 


BL FGETCMR 








** character input ** 


945S4S-R9I31 REV ** 


PAGE 0003 


0087 

0050 

0059 

0060 
0061 


* 

♦WORKSPACE 

♦ 

CHARACTER RETURNED IN RfSISTIR 10 
REGISTER OEPINITIONS 

0062 

0000 

R0 

EQU 

0 

0063 

0001 

Rl 

EQU 

1 

0064 

0002 

R2 

EG 11 

2 

0065 

0003 

R3 

EQU 

3 

0066 

0004 

R4 

EQU 

4 

0067 

0005 

R5 

EQU 

5 

0060 

0006 

R6 

EQU 

6 

0069 

0007 

R7 

EQU 

7 

0070 

0006 

R8 

EQU 

6 

0071 

0000 

R9 

EQU 

9 

0072 

000A 

R10 

EQU 

10 

0073 

000B 

Rll 

EQU 

11 

0074 

000C 

R12 

EQU 

12 

0079 

0000 

R13 

EQU 

13 

0076 

000E 

R14 

EQU 

14 

0077 

0070 

000P 

R15 

* 

EQU 

IS 



*♦ character INPUT ** 04S34S-9901 REV ** PAGE P«I4 


BB8B 



t 



0081 



# 



0080 






0083 



* 



0084 






008S 



♦ 

REFfS ANO OEF'8 

0088 



t 



0087 




OEF 

GETCHR 

0088 




RIF 

8VCPRB 

0089 




REF 

INCHAR 

0090 




REF 

8VCALT 

0091 




REF 

CR 

0098 




RIF 

SVCSFB 

0093 




REF 

ESC 

0094 




REF 

GET9UF 

0095 




REF 

RET8UF 

0098 




REF 

LWP 

0097 




REF 

RWP 

0098 




REF 

ACL 

0099 




REF 

RR 

0100 


0000 t 

GITCHi 

EQU 

S 

0101 



t 



0108 

0000 

0820 


HOVB 

PCR,#INCMAR 


0000 

0000 





0004 

0000 




0103 






0104 

0008 

020A 


LI 

R10,8VCPR8 


0008 

0000 




0105 

000A 

0480 


8LWP 

•8VCALT 


000C 

0000 




0108 






0107 

000E 

O2A0 


MOVB 

P8VeSF6,R10 


0010 

0000 




0108 

0012 

1603 


JNE 

GET01i 

0109 

0014 

O2A0 


MOVB 

•INCHAR, R10 


0018 

0004* 




0110 






0111 

0018 

046B 


RT 


0119 


001A* 

eCTiJi 

EQU 

8 

0113 

001A 

O2A0 


MOVB 

•E8C,R10 


0ilC 

0000 




0114 

00 IE 

0455 


RT 


ills 



t 




i»PROCEOURf SETCMRtCHAR) 

8m/* 

8m INPUT A CHAR PiQH THE T33 
Sm*/ 


a»CHAR P »CR' /* TREAT NO CM 
R-CALL 8VC(8VC CAUL BLOCK, CHAR 

g»XF UNRECOVERABLE ERROR THEN 

RvRETURNI 

1»PND SfTCHR 



string print routine 


S4934f«09St«* 


PAGE P095 


0U8 

* TITLE! 

PRNTR 

0U9 

* 

OUTPUT CHARACTER STRING 

0180 

* REVISION! 


0121 

* 

original 

0122 

• COMPUTER! 

990* ASH 

0123 

* ABSTRACT! 

PRNTR accepts A POINTER TO A STRING 

0124 

* 

AND A CHARACTER COUNT AS INPUT ANO 

0189 

* 

PRINTS THE STRING TO LOG, 

0126 

* calling SEQUENCE! 

0127 


BL PPRINT 

0128 

* 

R10 POINTS TO STRING 

0189 

* 

R9 character count 

0130 

t 

Rll • ERROR RETURN 

0131 

♦ 

R1U2 • NORMAL RETURN 
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0133 



t 



0134 






0139 



# 



0136 






0137 



n 



0138 



* 

REF*8 AND DEF*8 

0139 




OEF 

prntc 

0140 



# 



0141 




OEF 

PRINT 

0142 




REF 

PRB0UF 

0143 




REF 

PRBUER 

0144 




REF 

PRBCC 

0149 




REF 

SVCWRT 

0146 




OEF 

PRCRLF 

0147 




REF 

CRLF 

0148 




EVEN 


0149 



* 



0190 



# 



0191 



# 



0192 


0020* 

mcnif 

EQU 

S 

0153 

0020 

020A 


LI 

R10fCRLF 


0022 

0000 




0194 



* 



0199 






0196 


0024 * 

P«NTC 

EQU 

S 

0167 

0024 

027A 


MOVB 

*R104iR9 

0196 

0026 

0969 


8RL 

R9,6 

0199 


0026* 

PRINT 

ECU 

S 

0160 



♦ 



0191 

0028 

C60A 


HOV 

Rl0,6PRi8UF 


002A 

0000 




0162 






0163 

002C 

C809 


MOV 

R9,#PR8CC 


002E 

0000 




0164 



# 



0169 

0030 

020A 


LI 

R10, SVCWRT 


0032 

0000 




0166 

0034 

0420 


8LWP 

•8VCALT 


0036 

000C * 




§187 



* 



0166 



♦ 



0169 

0038 

0260 


MOVB 

fPR6UER,R9 


003A 

0000 




017i 

003C 

1601 


JNE 

PI 

0171 

003E 

05CB 


INCT 

Rll 

0172 


0040* 

PI 

EQU 

t 

0173 

0040 

049B 


RT 


0174 
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Z»/* 

Zw OUTPUT CHARACTER STRING 
Z»*/ 


2»PR0CE0URE PRINT CRIFI 
S*/*PRINT 4UNE PEED»4CARRIAGE 
S»CAU PRINTaoCfCRLPm 


01.ENO PRINT CRLPi 
8»CHAR COUNT l STRING (15 


2-PRB SUFFER PTR i 8TRINQI 
g*PRB CHAR COUNT i CHAR COUNTl 
9-CALU SVC (SVC CALL BLOCK)! 

Zmtf unricovirable error then 

3#RETURN(ERR0R) I 


2»EN0> 
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TITLEI 

PRNTHX 


0170 



# 


PRINT VALUE IN HEX 


0179 



♦ 

RIVISIONI 



0180 





ORIGINAL 


0181 



♦ 

COMPUTER! 

990»ASM 


0182 



* 

A88TRACTI 

PRNTHX PRINTS THE 

HEX ASCII equivalent 

0183 



♦ 


OP IT8 INPUT PaRM 

POLLOWED BY TWO BLANKS 

0184 



n 


PRNTHB PRINTS TWO 

ASCII characters 

0189 



* 

CALLING SEQUENCE! 


0180 



* 


BL PPRNTHX 


0187 



• 


R10 1 VALUE TO BE 

PRINTED 

0188 




OEP 

PRNTHB 


0189 




DEP 

PRNTHX 


0190 




DEP 

PRNTHN 


0191 




REP 

CBH 


0192 




REP 

CBH0 


0183 


0042> 

PRNTHB EOU 

S 


0194 

0042 

0200 


L I 

R0,2 

U OP CHARS TO PRINT 


0044 

0002 





0195 

0046 

1005 


JMP 

PRN00B 


0196 


00481 

PRNTHN EOU 

S 


0197 

0048 

0200 


LI 

R0f 4 

p chars to print 


004A 

0004 





0196 

004C 

1002 


JMP 

PRN00B 


0199 


004E' 

PRNTHX EQU 

S 


0200 

004E 

0200 


LI 

R0,e 



0050 

0006 





0201 


0052’ 

PRN005 EQU 

s 


0202 



♦ 

♦ALLOC 

, COPY, LINK 


0203 

0052 

0420 


9LWP 

8ACL 



0054 

0000 





0204 

0056 

C240 


MOV 

R0,R9 


0209 

0058 

C00A 


MOV 

R10,R0 
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009A 

020A 


LI 

Rl0iCBH 



005C 

0000 





0207 

005E 

0420 


8LWP 

P8VCALT 



0060 

0036' 





0208 

0062 

020A 


LI 

R10,CBH0 



0064 

0000 





0209 

0066 

06A0 


BL 

PPRINT 



0068 

0028* 





0210 

006A 

1002 


JMP 

PRN010 


0211 

006C 

05CD 


INCT 

PR1H2(R13) 



006E 

0016 





0212 


0070* 

PRN010 EQU 

s 


0213 



* 

♦link 

TO PREV WKSP, RET CURR WKSP 

0214 
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0420 


BLWP 

PRR 



0072 

0000 
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0074 

0456 
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ERROR CODE PRINT 
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8220 



# 

REVISIONI 



8221 





orisinal 


8222 



t 

COMPUTEPI 

990IA8M 


822S 



♦ 

A88TRACTI 

ERRPR ACCEPTS AS 

INPUT AN ERROR CODE 

8224 





AND CONVERTS IT 

TO A STRING REPRESENTING 

8228 



t 


THE ERROR CODE. 

THE FIRST TWO HEX DIGITS 

822i 



* 


ARE USED TO INDEX INTO A TABLE OF CHARACTERS 

822T 



* 


THE LAST TWO ARE 

CONVERTED DIRECTLY AS HEX 

8228 





CHARS 


0229 




CAUIN6 SEQUENCEI 


0238 



* 

BU 

•ERROR 


0231 




R18 

CONTAINS ERROR CODE 

8232 



# 




8233 




REF'S 

t AND DEF'S 


0234 







8238 




OEF 

ERROR 


8236 




REF 

ERBUF 


8237 




REF 

ER8TR 


8238 




RIF 

CLST 


0239 

0876 

40 

CUaTl TEXT 

»MOLP' 


8248 

087A 

98 

CL8T2 TEXT 

'XPSLO » 


8241 
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0242 


08801 
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f 
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★ 

*AIL0C f 

COPY, LINK 


0244 

8888 

8420 


8LWP 

• ACL 



8882 

8894* 





024S 
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0246 



# 



2* ERROR ACCEPTS AN ERROR COO 

0247 



« 



2m CONVERTS IT TO AN ASCII ST 

0248 
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2m AND PRINTS IT, 

0249 






2f */ 

0298 



# 



2*ERRPTR«L0C (ERROR OUTPUT 8U 

0291 

8884 

8206 


LI 

R6, ERBUF 



8886 

0800 





8292 



t 



2-CMAR • CLST1CAND(SRC(ERR CO 

8293 



t 



2*ERR CODE ■ SRCCERR CODE, 12)1 

0294 

0888 

0BCA 


SRC 

R18,12 


8299 

088A 

C24A 


MOV 

R10,R9 


0296 

888C 

0249 


ANDI 

R9,WF 



088C 

008P 





0297 

8888 

8229 


AI 

R9,CL8T1 



0882 

8876» 





8298 

0894 

D099 


MOVB 
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8299 
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8BCA 
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0264 
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C24A 
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8269 

889E 
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0287 

00A2 
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*R9i*R6* 

0288 






026R 
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0270 



♦ 



0271 

00A4 

0BCA 


SRC 

R10tl2 

0272 

00A6 

C24A 


hOV 

R10fR9 

0273 

00A8 

0249 


anoi 

R9«»P 


00AA 

000P 




0274 

00AC 

0229 


AI 

R9,CL8T 


00AE 

0000 




0275 

00B0 

0D99 


MOVB 

*R9» *R6* 

0278 






0277 



t 



0278 

00B2 

0BCA 


SRC 

R10»12 

0279 

00B4 

C24A 


MOV 

R10»R9 

0280 

00B8 

0249 


ANOI 

R9i»E 


00B8 

000P 




0281 

00BA 

0229 


A I 

R9.CLST 


0iBC 

00AE' 




0282 

008E 

0599 


MOVB 

*R9r*R6 

0283 



« 



0284 

00C0 

020A 


LI 

R10fER8TR 


00C2 

0000 




0285 

00C4 

08A0 


8L 

•PRNTC 


00C6 

0024' 




0288 

00C8 

1000 


NOP 


0287 






0288 



♦ 

•LINK 

TO PREV WKi 

0289 

00CA 

0420 


BLWP 

• RR 


00CC 

0072' 




0290 

00CE 

049S 


RT 


0291 




END 
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2*ERR CODE ■ SRC (ERR CODE»ie)f 
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0100 

0112 

0192 



0201 

0212 

0242 

ACl 


0096 

0203 

0244 

CBH 


0191 

0200 


C6H0 


0192 

0208 


CL ST 


0236 

0274 

0261 

CLSTl 

0239 

0297 



C1.8T2 

0240 

0266 



CR 


0091 

0102 


CRUF 


0147 

0193 


ERBUF 


0236 

0251 


ERROR 

0242 

0238 



ER8TR 


0237 

0264 


ESC 


0093 

0113 


OET010 

0112 

0106 



SIT8UF 


0094 



getchr 

0100 

0067 



INCHAR 


0069 

0102 

0109 

LWP 


0096 



PI 

0172 

0170 



PR8BUF 


0142 

0191 


PR8CC 


0144 

0103 


PRBUER 


0143 

0109 


PRCRLF 

0192 

0146 
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0159 

0141 

0209 


PRN009 

0201 

0199 

0198 


PRN010 

0212 

0210 



PRNTC 

0190 

0139 

0285 


PRNTH8 

0193 

0166 



PRNTMN 

0190 

0190 



PRNTHX 

0199 

0169 



R0 

0062 

0194 

0197 

0200 

R1 

0063 




R10 

0072 

0104 

0107 

0109 



0206 

0206 

0294 



0279 

0284 
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0073 

0171 

0211 


R18 

0074 




Rl3 

0075 

0211 



RIA 

0070 




Rl6 

0077 




R2 

0064 




R3 

0065 




R4 

0060 




R9 

0067 




R6 

0066 

0291 

0296 

0267 

R7 

0069 




R8 

0070 




R9 

0071 

0197 

0186 

0163 



0264 

0269 

0266 



0280 

0281 

0282 

RETBUF 


0095 



RR 


0099 

0214 

0269 

RWP 


0097 



8 VC ALT 


0090 

0105 

0166 

8VCPRB 


0086 

0104 


SVCSFG 


0092 

0107 


SVCRRT 


0148 

0169 



01Sff 0159 0178 0193 01B8 0199 


0804 0f05 

0113 0183 0187 0161 0169 0209 

0299 0263 0264 8271 0272 0276 


0279 0282 

0169 0204 0259 0286 0297 0296 

0267 0272 0273 0274 0279 0279 

0207 


THIRE ARE 0093 SYHBOtS 


APPLICATION 


REVISIONS 


INJEXT ASSY 


APPROVED 



SHEET 


REV STATUS 
OF SHEETS 


SHEET 


UNLESS OTNEPWISE SPECIFIED 
DIMENSIONS APE IN INCHES 
TOLEPANCES 
ANGLES irl* 

J PLACE DECIMAL ± 010 
2 PLACE DECIMAL ± 02 


IDENTIFYING NUMSEPS 
SHOWN IN PAPENTHCSES 
FOP PEFEPENCE ONLY 


INTEPPPET DWG IN 
ACCOPOANCE WITH 
mil STO lOO 



A 96214 



APVD 


CONTP fsiO 


DESIGN activity release 


Texas Instruments 

incop POPATCD 

Equiprmnt Group D&llm, Toxm 


AL, CLEAR, CLEAR COMMAND PR0CESS0R-PX990 


SIZE CCXXIOENTNO DRAWING NO 


945349-9901 


SHEET 1 of 6 





























**CUEA« COHMANP PROCESSOR ** 
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PA6E Mi2 


0B03 

M04 

8006 

m^7 

8^508 

0010 

8iil 

0012 

0013 

0014 
8015 
0016 
0017 
00i« 

0019 

0020 
0021 
0022 

0023 

0024 
0026 
8026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 
#036 

0037 

0038 

0039 
01440 

0041 

0042 

0043 

0044 
8046 

0046 

0047 

0046 

0049 

8050 

8051 

8052 
8033 

8054 

8055 

0056 


* 

* 

* 

* 

* 

4 

* 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


DEBUG 

SNAPSHOT) 


PROCEDURE CUEARtTABLE TYPE, CPU f 
/4 CLEAR HILL CLEAR A RANGE OF 
ENTRIES (TRACE, BREAKPOINT, 

IN A standard format TABLE. 

* / 

TBLPTR i table TVPE(l), 

NUMENTRIES ■ table TYPEC2)f 
ENTRY SIZE ■ TABLE TYPE(3)l 
CALL range (LOW, high, NUMENTR Its, ERROR) I 
IF .NOT, ERROR THEN DO» 

TBLPTR • TBLPTR ♦ ENTRY SIZE 4 LOWI 
00 while low ,LE. HIGH! 

TBLPTR. OEF ■ 8| 

TBLPTR ■ TBLPTR 4 ENTRY SIZEl 
LOW ■ LOW +11 
ENOl 

end; 
clear I . 


END 


IDT 

* TITUS 

4 

4 REVISIONS 

4 

4 COMPUTERS 

4 abstracts 

4 

4 

4 

4 CALLING 

4 


’CLEAR* 

CLEAR 

clear STANDARD TABLE ENTRY 


4 

4 

4 


ORIGINAL 
990, ASM 

CLEAR PROCESSES THE CLEAR BREAKPOINT, SNAPSHOT, 
TRACE, PROTECTED REGION COMMANDS. IT IS ENTERED 
WITH A table definition LIST AND A COMMAND 
PARAHETER list and clears a RANGE.OF ENTRIES 
SEQUENCES 
BL PXKXY 

WHERE YXXX IS A TABLE SPECIFIC ENTRY NAME 
R10 POINTS TO COMMAND PARAMETER LIST 



♦ 

ref» 

S AND DE 


t 





DEF 

CBP 



DEF 

CSS 



REF 

8KPT 



REF 

SNAPS 



DEF 

CRR 



REF 

TRACE 



REF 

RANGEK 



REF 

GETBUF 



REF 

RETBUF 



REF 

LWP 



R£F 

RWP 



REF 

ACL 



REF 

RR 






4W0RKSPACE 

REGISTER 


4 



0800 

R0 

EOU 

8 

0081 

R1 

E9LI 

1 

0002 

R2 

EQU 

2 


definitions 
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0P0 3 

R3 

FOU 

3 


0P0J5 

R4 

EQU 

4 


iijpiaa 

R5 

EQIl 

5 


9><d\d€> 

pa 

EQU 

a 

PW61 

0(?H^7 

R7 

FQli 

7 


0Pl^S 

PR 

EQU 

a 


PP09 

RQ 

EQU 

9 

|gi/6A 

00 a A 

R10 

EQU 

10 

0t^ea 


Rll 

FOU 

u 


000C 

R12 

EQU 

i? 

(a(?-67 

000D 

R13 

Eon 

13 

(?P6B 

0P0E 

R1 4 

EQU 

14 

g«69 

(ap7y! 

000F 

Rl5 

♦ 

EQU 

IS 
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l*PROCEOURE CLEAR (Table ttpe.c^. 

0P73 



* 



2-/* CLEAR WILL clear A RANGE %J 

8074 



if 



?• ENTRIES (TRACE, BREAKPOIN 

00 75 



it 



2» IN A STANDARD FORMAT TA8L 

0076 



it 



2»*/ 

0077 


0000 • 

CBP 

E«li 

8 


0076 

0008 

0209 


LI 

R9,8KPT 



0PB? 

0000 





0079 

000 4 

1005 


JMP 

clear 


0080 


0006 » 

CSS 

EOU 

S 


0001 

0006 

0209 


LI 

R9, SNAPS 



0008 

0000 





008? 

000 A 

1002 


JMP 

clear 


0083 


000C ' 

CPR 

EQU 

$ 


0084 

000C 

0209 


LI 

R9. TRACE 



0001 

0000 





0085 


0010 » 

CLEAR 

EOl.l 

$ 


0086 



# # A 

LLOC 

i copy, LINK 


0087 

0010 

f?« < O 

0420 

& fft ijS ♦■'^8 


BLWP 

PACL 


1088 

P A C 

P P P 

« 



g^TBiPTR « table TYPE(l), 

0089 

0014 

C1B9 


MOV 

*R94,R6 


009M 



it 



2»*NUMENTRIES « TABLE TyPE(25r 

0091 

0016 

C239 


MOV 

*R9'»,Re 


009? 



♦ 



2-ENTRY SHE ■ TABLE TYPEOJl 

0093 

0018 

C1D9 


MOV 

*R9,R7 


0094 



# 



2»-CALL RANGE (LOW, high, NUMENTRI 

0095 

001 A 

06A0 


PL 

PRANGEK 

R9* LOW RIB « HIGH i ■ 


00 IC 

0000 





0096 



t 



2-TF .NOT, error then D0» 

0097 

00 IE 

100A 


JMP 

CLR020 


0098 



t 
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0099 

0020 
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MOV 

R7,P4 


0100 

002? 

04C5 


CLP 

R5 
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0024 

3909 
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010? 

0026 

A185 
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R5,R8 


0103 
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EOU 

$ 
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8289 


C 
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0106 

002A 

1B04 


JH 

CLR020 


0107 



* 



4f.TBLPTR,0EF ■ 0| 

0108 

002C 

0406 


CLP 

*R6 


0109 



it 



4-TBLPTR ■ TBLPTR ♦ ENTRY SUE 

0110 

002E 

A187 


A 

R7,R6 


0111 



t 



4-LOW ■ LOW ♦!! 

0112 

0030 

0589 


INC 

R9 


0113 



It 



3-ENDl 

0114 

003? 

10FA 


JMP 

CLR^IM 


0115 



it 



2-ENDI 

0116 


0034» 

CLR^a^ 

lOU 

S 


0117 



# 



1-END CLEAR! 

0118 




.INK 

TO PREV WK8P, 

RET CURR WK8P 

0119 

0034 

0420 


8LWP 

#RR 



0036 

0000 
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TITLE* 

CMODIP 




# 


COMMAND oeeinition table 


»00« 


# 

REVISIONi 

2/1/76 


mm 


♦ 


original 


000fl 



CDMPUTERI 

99if ASM 


0009 


t 

AS8TRACT* 

CONTAINS A LIST OF THE COMM AN08, THEIR 

0013 


♦ 


ALLOWASLE PARAMETERS# ANO 

THE ENTRY POINT 

mil 


# 


for the command PRCCE88ER 

ROUTINE, 

0012 


t 

CALLINS SEQUENCE* 


00i3 


t 


NON EXECUTABLE 


0014 


# 




mis 


# 

COMMAND STRUCTURE 


001M 






0017 


« 




00ia 




# COWHAND ♦ 


0019 






0020 




* Pi • P8 ♦ 


0021 




********************* 


0022 




* SERVICE ROUTINE * 


0023 


♦ 


*********«*******'*«** 


0024 


t 




0025 


t 

parameter oeeinitions 


002M 


# 




0027 

0001 

PH 

IQU 

1 HEX STRING 


0020 

0002 

PC 

EQU 

2 CHARACTER STRING 

0029 

0003 

PN 

EQU 

3 NULL 


0030 


♦ 






** command definitions ** 


94538»««9C»1«* 


PACE 


003? 



♦ 



0033 



# 

OFF »a 

1 AND REF«8 

0034 



tl* 



003S 




DEF 

CI^OTBL 

0030 




DEF 

NOCMDS 

0037 




DEF 

SREON 

0030 



♦ 



0039 



t 



0040 


0000 ' 

CM0T9L 

EQLI 

S 

0041 



Hr 



0042 



* 

ASSIGN LUNO 

0043 



Hr 



0044 




PEF 

ASLUN 

004S 

000F 

41 


TEXT 

«AL» 

0046 

0002 

6FFF 


DATA 

PH*4 + PC*4 + PN*44PN#4+PN*4aPN*4*PN*4#'PN 

0047 

0004 

0000 


DATA 

ASLUN 

004R 



Hr 



0040 



Hr 

DUMP 

IN absolute format 

00S0 



Hr 



0091 

0006 

44 


TEXT 

»DP' 

0092 

0006 

96BF 


DATA 

PH*4+PH*4+PH*4+PC*4+PC*4+PN*4+PN*4*PN 

0093 

000A 

0000 


DATA 

0 

0054 



Hr 



0055 



Hr 

DUMP 

IN BNPF FORMAT 

0095 



Hr 



0097 

000C 

44 


TEXT 

'0B» 

0098 

epof 

97FF 


DATA 

PC*44-PH*4#PH*4+PN*4*PN*4*PN*4+PN*4+PN 

0099 

0010 

0000 


DATA 

0 

0060 



Hr 



0061 



Hr 

DUMP 

IN HIGH/LOM FORMAT 

0062 



* 



0063 

0012 

48 


TEXT 

•HI' 

0064 

0014 

95FF 


DATA 

PC*4tPH*4'APH*44-PH#4 + PN*4*PN*4 + PN*44-PN 

0065 

0016 

0000 


DATA 

0 

0066 






0067 



Hr 

EXECUTE USER PROGRAM 

0068 



* 



0069 




REF 

EXCT 

0070 

0018 

45 


TEXT 

•EX' 

0071 

001 A 

FFFF 


DATA 

PN*4+PN*4+PN*4*PN*4+PN*4+PN*4+PN*4*PN 

0072 

00ir 

0000 


DATA 

EXCT 

0073 



Hr 



0074 



Hr 

LINK 

AND LOAD 

0075 



Hr 



0076 

0011 

4C 


TEXT 

»LL' 

0077 

0020 

FFFF 


DATA 

PN*4A'PN*4*PN*44PN*4 + PN*4+PN*4+PN*4*PN 

0078 

0022 

0000 


DATA 

0 

0079 



Hr 



0080 



Hr 

STANDARD loader 

0081 



Hr 



0082 




REF 

LOAD 

0083 

0024 

4C 


TEXT 

»LP' 

0084 

0026 

9FFF 


DATA 

PH*44PH*44PN*44PN*44PN*44PNt44PN*44PN 

0085 

0026 

0000 


data 

LOAD 


** CONMaND OEPINITIONS ** 


94535«-99it** 


PAGE P0P4 


i080 






««87 



# 

absolute ldaoep 







9089 

002A 

4C 


TEXT 

'LA» 

i090 

0P2C 

7FPr 


DATA 

PH^A^PNtA+PNtA+PNtA+PNtAA-PNtA^PNtAAPN 

8?!9l 

002E 

0000 


DATA 

0 

00 90 



# 



0095 



# 



0094 



t 

LOAD 

UP FRONT LOADER AND PROGRAM 

0i00 



# 



iP9« 




PEF 

loufl 

0097 

0030 

4C 


TEXT 

«LU» 

0098 

0P32 

8FPP 


DATA 

PH*44PH*4*PN*44PN*4+PN*44PN*4+PN44*PN 

0099 

0034 

0000 


DATA 

LDUFL 

0100 



♦ 



0101 





LOAD PROM Programmer 

ilia 



It 



0103 




RIF 

PL 

0104 

0038 

50 


TEXT 

»RL' 

0108 

0038 

SFFP 


DATA 

PH*44PH*4<fPN*4«PN*44PN«44PN*4APN«44PN 

0108 

003A 

0000 


DATA 

PL 

0107 



# 

overlay supervisor 

0100 



t 



0189 




REF 

OVLY 

0110 

003C 

4F 


TEXT 

»OV * 

0111 

003E 

7FFP 


DATA 

PHm44PN*4 + PN*44PN*44PN«4«PN*44>PN*44PN 

0 iia 

0040 

0000 


DATA 

OVLY 

0113 



♦ 



0114 



t 

PROM 

programmer 

0US 



t 



0116 

0042 

50 


TEXT 

1 PR f 

0117 

0044 

9S5S 


DATA 

pe*44PH*44PH*44PH*44PH«44PH«A+PH*44PH 

0118 

0048 

0000 


DATA 

0 

0119 



t 



0120 



t 

STANDARD PROM PROGRAMMER 

0121 



« 



0122 

0048 

80 


TEXT 

•P8» 

0123 

004A 

AFFF 


DATA 

PC*44PC*44PN*44PN*44PN*44PN*44PN*44PN 

0124 

004C 

0000 


DATA 

0 

0128 



t 



0128 



# 



0127 



t 



0128 




RIF 

RUN 

0129 

00 4E 

52 


TEXT 

IRU’ 


008^ 

7FFF 


DATA 

PH*44PN*4+PN*44PN«44PN*44PN*44PN«4#PN 

0131 

0B52 

0000 


DATA 

RUN 

0132 



* 



0133 



t 

INSPECT CRU 

0134 






0135 




REF 

ICP 

013« 

0054 

49 


TEXT 

»IC’ 

0137 

■ 0066 

8FFF 


DATA 

PH*44PH*4^PN*44PN*44PN*4*PN*44'PN*44PN 

0138 

0050 

0000 


DATA 

ICP 

0139 



# 



014fl 




INSPECT memory 


** COMMAND OeFINlTIONS ** 945S5a!«99^1** PAGE f0P5 


0141 



4r 


0142 




PEF IMP 

0143 

005A 

49 


TEXT »IM» 

0144 

005C 

8FFF 


data PH*4i»PH*44>PN*44PN*44>PN*4APN*4APN*44PN 

014S 

005F 

0000 


DATA IMP 

014H 





0147 




INSPECT REGISTERS 

0148 



* 


0149 




REF IRP 

019C*! 

0060 

49 


TEXT »IR' 

01&1 

0062 

FFFF 


RATA PNtA + PNtA + Pw^A^PNtAA-PN^rA^PNtA^PN^A + PN 

0152 

0t^64 

0000 


data IRP 

0153 



♦ 


0154 



♦ 

INSPECT SNAPSHOT 

0155 



* 


0156 




REF ISS 

0157 

0066 

49 


text »IS' 

0156 

0068 

5FFF 


DATA PH*4*PH*4 + PN*4^PN*44'PN*4*PN*4*PNt4*PN 

0159 

006A 

0000 


DATA 188 

016W 





0161 




inspect workspace 

0162 



♦ 


0163 




REF IWP 

0164 

006f 

49 


TEXT 'IW 

0165 

006F 

5FFF 


DATA PH*4tPH*44>PN*4<»PN*44pKi*4«PN*4APN*44>PN 

0166 

0070 

0000 


DATA IWP 

0167 



♦ 


016R 




MODIFY CRU 

0169 



* 


il7H 




REF MODCRU 

0171 

0072 

4D 


TEXT «MC» 

0172 

0074 

SFFF 


DATA PH*4+PH*4+PN*4*PN*4<*-PN*4+PN*4+PN*4*PN 

0173 

0076 

0000 


DATA MODCRU 

0174 





0175 



♦ 

MODIFY MEMORY 

0176 



# 


0177 




REF MODMEM 

017R 

0078 

40 


TEXT ’MM' 

0179 

007A 

7FFF 


DATA PH*44PN*46PN*4+PN*4 + PN*4+PN*4 + PN*44-PN 

0180 

007t: 

0000 


DATA MOD«EM 

0181 





0182 



« 

MODIFY REGISTERS 

0183 



# 


0184 




REF MRP 

0185 

007E 

4D 


TEXT »MR« 

0186 

0080 

FFFF 


DATA PN*4^PN*4^PN*44PN*44’PN*4 + PN*4'4>PN*4<aPN 

0187 

0062 

0000 


DATA MRP 

0188 



♦ 


0189 



♦ 

MODIFY workspace REGISTERS 

0190 



t 


0191 




REF MODWSP 

0192 

0084 

40 


TEXT ’MW 

0193 

0086 

7FFF 


DATA PH*4«PN*44PN*4<fPN«44-PN*46PN*4«PN*4*PN 

0194 

0088 

0000 


DATA MODWSP 

0195 



# 



** comh/»nd definitions ** 


9453Si«.9»0i** 


PAGE ®0g!S 


ej96 



♦ 


\tn97 



« 

SET BREAKPOINT 

198 



♦ 


il9» 




RIF SBP 

i20M 

00BA 

53 


TEXT 'Si' 

i?0l 

008C 

55FF 


DATA PH*4 + PH*44'PH*4*PH*4*PN*4#PN*4 + PN*4^PN 


0081 

0000 


DATA SBP 

i5>03 



★ 


0204 



t 

SET snapshot 

0208 



* 


0906 




REF SSS 

0207 

0090 

53 


TEXT '8S» 

0208 

0092 

557F 


DATA PH*4 + PH*4 + PH*44PM*44'PH*4 + PNi»4*PN*4*PN 

0209 

0094 

0000 


DATA SSS 

itl« 



♦ 


0211 



♦ 

SET REGION 

0212 



♦ 


0213 

0096 

53 


TEXT 'SR* 

0214 

0PI98 

5595 


data PH*4+PH*44PH*44PH*4*PC*4+PH*4+PH*4aPH 

0215 

009A 

0000 


DATA 0 

0216 



♦ 


0217 



# 

SET trace 

0218 



# 


0219 

0»9C 

53 


TEXT »ST' 

022W 

009E 

6FFF 


DATA PH*4+PC*4+PN*44PN*4+PN*4+PN*4*PN*4*PN 

0221 

00A0 

§000 


Data § 

0222 



# 


0223 



# 

SIT PROTECT REGION 

0224 



♦ 


0225 




REF LDPRT 

0228 

00A2 

53 


TEXT 'SP* 

0227 

00 A4 

5FFF 


DATA PH«44PH*4<4>PN*4<»PN#4<»>PN*4<»PN*4APN*4«PN 

0228 

00A6 

0000 


DATA LDPRT 

0229 





023« 



♦ 

CLEAR BREAKPOINT 

0231 



t 


0232 




REF CBP 

0233 

00A8 

43 


TEXT »C0' 

0234 

i0AA 

5FPF 


DATA PH*4*PH*4*PNt4*PN*4+PN*4#PN*4APN*4*PN 

0235 

00AC 

0000 


DATA CBP 

0236 





0237 



« 

CLEAR SNAPSHOTS 

0238 



if 


0239 




REF CSS 

0240 

00AF 

43 


TEXT »CS» 

0241 

00B0 

6FFF 


data PH*4#PH*4+PN*44PN*4*PN*4+PN*4+PN*4*PN 

0242 

0002 

0000 


DATA CSS 

0243 



♦ 


0244 



* 

CLEAR REGION 

0245 



♦ 


0246 




REF CRR 

0247 

0004 

43 


TEXT »CR' 

0246 

0006 

5FFF 


data PH*44PM*44PN*44PN*44PN*44PN*44PN*44PN 

0249 

0008 

0000 


DATA CRR 

0280 



t 
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tepai 




CLEAR PROTECT REGION 

(C2S? 






0253 




REF 

clearp 

kii?d4 

00BA 

43 


TEXT 

’CP' 

0255 

00BC 

FFFF 


DATA 

PN*4 + PN*4 + Pn*4*PN*44-PN*4 + PN*4 + PN*4 + PN 

0255 

009F 

000!?' 


DATA 

clearp 

0257 






0258 



* 

find 

WORD 

0259 



♦ 



0250 




REF 

FWD 

0261 

00CP 

46 


TEXT 

»FW ' 

0262 

M0C2 

55FF 


OATA 

PH*4+PH*4*Ph*4*PH*4+PN*4*PN*4+PN*4*PN 

0263 

00C4 

0000 


DATA 

FWD 

B264 



* 



0265 




find 

BYTE 

0265 






0267 




REF 

FBT 

0268 

00C6 

46 


TEXT 

’F8’ 

0269 

0WC8 

55FF 


DATA 

PH*44PH*44>PH*44PH*4<«>PN*44>PN*44>PN*4<fPN 

0270 

02CA 

0000 


DATA 

FBT 

0271 



♦ 



0272 



# 

HEX . 

ARITHMETIC 

0273 



t 



0274 




REF 

HXAR 

0275 

00Ct 

40 


TEXT 

•HA’ 

0276 

P0CF 

5FFF 


DATA 

PH*4+PH*4+PN*4*PN*4+PN*44PN*4+PN*4+PN 

0277 

00D0 

0000 


DATA 

HXAR 

0270 



Ilf 



0279 



* 



028PI 



♦ 



0281 


0002’ 

NOCN08 

SOU 

S 

0282 

00D2 

0023 


DATA 

35 

0283 




END 



0(0««! EPS 


945350-9901** PAGE 0008 


960 • 

980 concordance 

• 


00417! 

ASLUN 


0044 

C8P 


0232 

CLfe ARP 


0253 

cmltbl 

00 4 f* 

0035 

CPP 


0246 

CSS 


0239 

EKCT 


3069 

P8T 


0267 

PWfc 


0260 

hkar 


0274 

ICP 


0135 

IMP 


0142 

IRP 


0149 

I8S 


0156 

IWP 


0163 

ldprt 


0225 

LOUPL 


0096 

LOAD 


0082 

MOOCRU 


0170 

MOOMEM 


0177 

MODWSP 


0191 

RPP 


0184 

NOCMOS 

0281 

0036 

OVLV 


0109 

PC 

0028 

0046 



0220 

PH 

0027 

0046 


0§04l 

0U7 

0144 

0193 

020» 

0227 

0262 

PL iliS 

PN 0029 0046 

0058 

0071 

0077 

0084 

0090 

0105 

0111 

0130 

0137 

0144 

0158 

0165 

0179 

0186 

0193 

0208 

0227 

0234 

0248 

0255 

0269 

PUN 0128 

3BP 0199 


0281 

0047 

0235 

0256 

0249 

0242 

007 ? 

0270 

0263 

0277 

0138 

0145 

0152 

0159 

0166 

0228 

0099 

0085 

0173 

0180 

0194 

0187 

0112 


0052 

0052 

0058 

0064 

0052 

0052 

0052 

0058 

0084 

0090 

0098 

0098 

0117 

0117 

0117 

0117 

0144 

0158 

0158 

0165 

0201 

0201 

0201 

0201 

0214 

0214 

0214 

0214 

0227 

0234 

0234 

0241 

0262 

0262 

0269 

0269 

0106 




0046 

0046 

0046 

0046 

0058 

0058 

0058 

0058 

0071 

0071 

0071 

0071 

0077 

0077 

0077 

0077 

0084 

0084 

0084 

0090 

0090 

0098 

0098 

0098 

0105 

0105 

0105 

0105 

0111 

0111 

0123 

0123 

0130 

0130 

0130 

0130 

0137 

0137 

0137 

0144 

0151 

0151 

0151 

0151 

0158 

0158 

0158 

0158 

0165 

0165 

0172 

0172 

0179 

0179 
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0179 
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0186 

0186 

0186 

0193 

0193 

0193 

0201 

0208 

0220 

0220 

0220 

0227 

0227 

0227 

0227 

0234 

0241 

0241 

0241 

0248 

0248 

0248 

0248 

0255 

0255 

0255 

0262 

0269 

0269 

0976 

0276 


0131 

0202 


0117 

0123 

0123 

0214 

0058 

0064 

0064 

0064 

0105 

0105 

0111 

0117 

0117 

0130 

0137 

0137 

0165 

0172 

0172 

0179 

0208 

0208 

0208 

0208 

0214 

0214 

0214 

0220 

0241 

0248 

0248 

0262 

0269 

0269 

0276 

0276 

0046 

0052 

0052 

0052 

0064 

0064 

0064 

0064 

0071 

0071 
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0077 
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0090 

0090 
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0111 
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0165 
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0186 

0193 

0193 
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0201 

020} 

0201 

0208 

0220 

0220 

0220 

0227 

0234 

0234 

0234 

0234 

0241 

0241 

0241 

0248 

0265 

0255 

0255 

0255 

0262 

0262 

0262 

0269 

0276 

0276 

0276 

0276 



945350-9901** 


PAGE 0009 


SR£(SN 0215 0037 

3SS 0206 


0209 


THERE ARE 0033 SYMBOLS 





SHEET 


REV STATUS 
OF SHEETS 


SHEET 


unless otherwise specified 
DIMENSIONS AWE IN INCHES 
TOLEWANCES 
ANGLES 

a PLACE DECIMAL ± 010 
2 PLACE DECIMAL ± 0a 


IDENTIFYING NUMSEfIS 
SHOWN IN PAPENTHESES 
FOP PEFEPENCE ONLY 


INTEPPPET DWG IN 
ACCOPDANCE WITH 
MIL STD lOO 



Texas Instruments 

INCOP POP ATCD 

Equipmmt Group Dtiim, Toxm 


• AL, CONVRT, ASCII/BINARY C0NVERSI0N-PX990 



CODE lOENT NO 


DRAWING NO 


X I A 96214 


945352-9901 


of 13 




























#* ascii/binary eONVfRSIONS ** 94535a»99P!l** 


PA8E P002 


0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 
0012 

0013 

0014 
0013 
0010 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 
0023 
0028 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 
.0032 
0053 

0034 

0035 

0036 


i; 


« 

t 

t 

t 

# 

♦ 

t 

t 

♦ 

♦ 

♦ 

* 

♦ 

# 

# 

« 

t 

t 

t 

t 

# 

# 

# 

# 

# 

t 

# 

# 

t 

t 

t 

t 

« 

# 

# 

t 

# 

♦ 

♦ 

# 

♦ 

# 

« 

# 

♦ 

t 


PROCEDURE CNVRTCSCifVALUE)| 

/♦ CNVRT USES SEnERaUIED BASE CONVERSION 
ROUTINES TO PERFORH ASCII TO/FROM SINARV 
CONVERSIONS* CONVERSION IS PERFORMED 
BY uaiNS A TABtE TO PROVIDE THE ORDiRED 
SET OF NUMERIC CHARACTERS WITH MODULUS 
arithmetic IN THE SPECIFIED BASE ON THE 
ASCII STRIN6 TO DO THE CONVERSION, ♦/ 
DECLARE 

( I SCB, /# SUPV CALL BLOCK t/ 

8 8CCM0 FUiO(8)i 

2 SCERR FiXEDtS), 

2 SCDATA, 

3 8TRIN5(6) CNARCim 

DECLARE 
( I VALf 

2 value FIKEPtl65^ 

2 DUM FIYEOriim 

DECLARE 

(OAe,iOA,HA0pBHA) FIKEOCS)! 

DECLARE /♦ CONVERSION TABLE t/ 

CLSTC16) CHAR(1) 

INIT («i«f Ut0**,,tit,fAt,,,,tF»)| 

CALL SET WKSPCVAtUEfRi) 

ERRiO 

SCSAfViLOCCSCB) 

DO CASE UNTIL error OCCURSI 
Cll SC8C8CCN0)iDAB| 

/# 1ST CHAR IN 8TRINS IS SI6N #/ 

CALL CNVF(L0CfSTRINSf8) f SfVALf liiERR) I 
IF VALUE>32«78 THEN SIGNAL 
ERROR OCCURSI 
IP STRINGd) NE »tit OR 
OR f t OR 101 THEN 
ERROR OCCURS 
IF STRINGUJpt^f THIN 
value i «»VALUEl 
C2I 8CB(8CCN05*WAB| 

CALL CNVFaOC(8TRlNGmf4,VALf iSilRR) I 
C3I 8CB(8CCM05«80A| 

IF VALllE>iP THEN OOf 
8TRIN§(n«t#t| 

ENOIELSE 

value»*valuei 

STRlNS(l)it»tf 

CALL CNVR (LOC (STRING can I S# VALf 10)1 
C4I SCB(8CCH05 pBHA| 

CALL CNVR (LOC (STRING Cn ,4, VALf 18) I 
C5I SIGNAL ERROR OCCURSI 
END CASei 

ERROR OCCURSI ERR» ERR^U 
CALL SET WKSPCVALUEfR0)l 
SCBCSCERR) i ERRI 
RETURN 
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B»0S7 

0058 

0099 

0050 

0061 

0069 

0063 

0064 

0065 

0066 
0067 
0066 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 
0060 
0081 

0083 
0063 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0103 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
iiu 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

« 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

« 

* 

* 

* 

* 


PROCEDURE CNVF(STR,NUM, VAL»RA01X,ERR) 

/* CNVF CONVERTS AN ASCII STRiNf, WHICH 
REPRESENTS A BINARY VALUE TO BINARY 

conversion takes place in any base 

FROM 3-16, IF ANY CHARACTER IS INVALID 
OR THE RESULT CANNOT BE REPRESENTED IN 
16 BITS, AN ERROR 1$ RETURNED, */ 

DECLARE 

8TR POINTER 
NUM FIXEOC16), 

VAL FIYED(321, 7*VALUE IN MOST SIGNIFICANT 

16 BITS */ 

RADIX FIxEDdSl, 

ERR F1XE0(16), 

I FIXED(161, 

J FIXEDCiei, 
i*0r 
VAL«0» 

on UNTIL NO LEADING BLANKS .OR, ERROR» 

IF (C(STR) ,NE. ' ') THEN 
SIGNAL NO leading BLANKSI 
I*I*l 

IF I>bNUH THEN signal ERROR, 

STR«8TR*1 

end 

NO leading BLANKSI 

DO UNTIL I«NUM ,OP. ERROR! 
value»value*basei 

IF VALUER3**16 then SIGNAL ERROR! 

DO FOR JiBASE TO 0 BY -1 UNTIL HATCH, 

OP ERROR 

IF (C(STR)-CLST(J-l) THEN SIGNAL HATCH! 
JbJ-1 ! 

IF JP0 then signal ERROR! 

END! 

MATCHI 

VALUE«VALUE*J-1 

STRbSTR+1 

I»I*l 

ENO! 

END! 

ERROR! 

ERRbERR*! 

END! 

ENO CNVF! 

PROCEDURE CNVR(STR,NUH, VAL,RA0IX) 

/* CNVR CONVERTS A BINARY VALUE 
TO A CORRESPONDING ASCII STRING 
IN THE SPECIFIED RADIX, THE BINARY 
VALUE IS A POSITIVE VALUE REPRESENTED 
IN 16 BITS */ 

DECLARE 

STR POINTER, 

NUM FIXEDdei, /* # CHARS IN TARGET */ 

VAL FIXEDC32) 
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iU2 





RADIX FIVED(16), 

BUS 


# 


STR»8TR*NUMh 1 r 


0114 


* 


DO while NUM»or 


0115 





REMiMOO (VAI. » 

RADIX) ! 

0116 


♦ 



VALiVAL/RADiXI 

0117 


# 



C(STR)«CLST(R|M) 1 

BUS 


t 



STRiSTR*!! 


0119 


♦ 



NUMiNUM«l ! 


0120 


« 


END! 


0121 


* 


End 

CNVR! 


0122 


* 

End 

i CNVRT 


0123 




lOT 

’CONVRT’ 


0124 


♦ 

title* 

CNVRT 


0125 


it 



CONVERT 


0126 


♦ 

REVISIONI 



0127 


♦ 



original 


0126 


♦ 

COMPUTER! 

9901 ASH 


0129 


♦ 

ABSTRACT! 

USES GENiRAl I7ED RASE CONVERSION ROUTINES 

0130 





TO PERFORM ASCII TO/FRQM BINARY 

0131 


it 



CONVERSIONS, 

conversion id performed 

0132 


♦ 



BY USING A table TO PROVIDE THE ORDERED 

0133 


« 



SET OF NUMERIC CHARACTERS WITH MODULUS 

0134 


t 



ARITHMETIC IN 

THE SPECIFIED BASE ON THE 

0135 


♦ 



ASCII string 

TO DO THE CONVERSION, 

0136 


# 

CALLING SEQUENCE! 


0137 





§L iCNVPT 


0136 


* 



R10 ■ ADDRESS 

OF PRB BLOCF 

0139 






1»PR0CEDURE CNVRT (8CB# VALUE)! 

0140 


# 




2m/* CNVRT USES GENERALIZED BA 

0141 


* 




2m ROUTINES TO PERFORM ASCII 

0142 


« 




2m CONVERSIONS, CONVERSION I 

0143 


t 




2m BY USING A TABLE TO PROVl 

8144 


« 




2* SET OF NUMERIC CHARACTER 

il4S 


♦ 




2. ARITHMETIC IN THE 8PECIFI 

0146 


# 




2- ASCII STRING TO DO THE CO 

0147 


♦ 




2#DECLARE 

8146 


t 




3»( 1 SC8, /* SUP 

8149 


t 




4* 2 8CCH0 FIXED(S), 

01S0 


* 




4* 2 8CERR FIXED(S), 

0151 


♦ 




4m 2 SCOATA, 

0152 


♦ 




5» 3 8TRING(6) CHAR(l))! 

1153 

0000 

SCCMD 

IQU 

0 

COMMAND 

8154 

0001 

8CERR 

E8U 

1 

ERROR RETURN 

0155 

0002 

SC8TR 

EQU 

2 

CONVERSION string 

0156 


* 




2.DECLARI 

0157 


« 




3»f 1 VAL» 

0156 


* 




4. 2 VALUE FIXEOdS), 

0159 


t 




4m 2 DUM FIXE0U6))! 

0160 


# 




2iiDBCLARE 

0161 


t 




3»(0AB,BDA,HAB«BHA) FIXED(B)! 

0162 

0600 

DAB 

EQU 

pBm 

DECIMAL ASCII TO BINARY 

0163 

0A00 

BOA 

EQU 

»A00 

BINARY TO DECIMAL ASCII 

0164 

0C00 

BHA 

EQU 

FC00 

BINARY TO HEX ASCII 

0169 

8000 

HAB 

EQU 

>080 

HEX ASCII TO BINARY 

0166 


♦ 


REFU ANO DEE’S 
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B167 


♦ 






DEF 

CNVHT 

(3169 



REF 

ZERO 




»|F 

PLUS 

0171 



REF 

MINUS 

017S 



REF 

BLANK 

il73 



t'|F 

CUT 

«17A 



^1.7 

GIT6U7 

0175 



REF 

RET8UE 

0176 



REF 

Lwp 

0177 



REF 

RWP 

0176 



REF 

ACL 

0170 



REF 

RP 

0160 


♦ 


a-OECLARF /# CONVERSION 

0181 




3»CLSTfl6) CHARfl) 

0188 




4.INIT ('0».'l»,,,..»9»,'A',., 

0183 0600 

30 

CLST 

TEVT 

'01834S6769ABCOEF» 

0184 


* 



0185 


aworkspacp 

REGISTER definitions 

0186 


♦ 



0187 

0000 

R0 

EQU 

0 

0186 

0001 

R1 

EOU 

1 

0189 

0002 

R2 

FOU 

8 

0190 

0003 

R3 

EQU 

3 

0191 

0004 

R4 

EQU 

4 

0198 

0005 

R5 

EOU 

5 

0193 

0005 

R6 

EOU 

6 

0194 

0007 

R7 

EQU 

7 

0195 

0009 

R0 

EQU 

8 

0196 

0009 

RR 

EOU 

9 

0197 

000A 

R10 

EQU 

10 

0196 

000P. 

Ri 1 

EQU 

11 

0199 

000C 

R12 

EOU 

18 

0806 

0000 

Rl3 

EQU 

13 

0801 

000E 

RM 

EQU 

14 

0908 

0007 

R15 

EOU 

15 

0903 


♦ 



0904 


♦ 



0205 


* 



0906 


* 

REGISTER USAGE • LOCAL WORKSPACE 

0807 


it 



0208 


it 

R14 

CALLER’S WP 

0909 


it 

R10 

• SC9 # 

0910 


* 

9 

- A CHARS TO CONVERT 

0811 


# 

8 

• BASE 

0918 


it 

7 


0913 


it 

6 

•CONVERSION VALUE 

0814 


it 

5 

• ERR 

0815 


it 

1 

• SC9 » 
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B217 


0010 V 

CNVRT 

iOU 

S 


02ia 

0012 

0420 


8LWP 

8ACL 



0012 

0000 





0219 

0014 

C3AD 


MOV 

4P13*2(R13), 

R14 


0016 

001A 





0220 






2»CAIL GET WKSP(VAUUEiR0) 

0221 

0018 

C19E 


MOV 

*P14,P6 


0222 



# 



2*ER»«0 

0225 

001A 

04C5 


CLP 

R5 


0224 



t 



g.SC8SV«L0C(SC8) 

0226 

001C 

C04A 


MOV 

«l0,Rt 


0226 



♦ 



2»00 CASE UNTIL ERROR OCCURS! 

0227 



if 



3*Cll SCfl (SCCMH) ■DAB! 

022S 

0011 

04C4 


CUP 

R4 


0222 

0020 

01 U 


MOVB 

*P10,R4 

command field 

0250 

0022 

0264 


Cl 

R4,0AP 



0024 

0B00 





0211 

0026 

1619 


JNE 

CNV«19 

IF NOT 0A8 

0232 



♦ 



4» /* 1ST CHAR IN STRING IS S 

0233 



♦ 



4pCALL CNVFaOCCSTRINGI2) ,5,VA 

0234 

0028 

022A 


AI 

R10#SC8TR+1 

start of dec string 


002A 

0003 





023S 

002C 

0209 


LI 

R9,5 

8 CHARS TO CONVERT 


0021 

0005 





0236 

0030 

0208 


LI 

R8, 10 

arithmetic BASE 


0032 

000A 





0237 

0034 

06A0 


BL 

• CNVF 



0036 

00C4» 





0238 



* 



4* IF VALUE»32678 THEN SIGNAL 

0239 



* 



5-ERROR OCCURS! 

0240 

0038 

C186 


MOV 

R6,«6 


0241 

003A 

1130 


JLT 

CNV050 


0242 

0030 

060A 


DEC 

R10 


0243 



♦ 



4-IF STRINGH) NE OR 

0244 



♦ 



5*0R » » OR '0» then 

0245 



♦ 



S^ERROR OCCURS 

0246 

003E 

981A 


C0 

*Rl0t4ZERO 



0040 

0000 





0247 

0042 

1339 


JEQ 

CNV060 


0248 

0044 

981A 


C8 

♦R10.4PLUS 



0046 

0000 





0249 

0048 

1336 


JEO 

CNV060 


0250 

004A 

981A 


CB 

*R10*»BLANK 



004C 

0000 





0251 

0041 

1333 


JEO 

CNV060 


0252 

0050 

981A 


CB 

♦R10.FMINUS 



0052 

0009 





0253 

0054 

162F 


JNE 

CNV050 


0254 



if 



4»IF STRlNGdJtUi then 

0258 



it 



5*VAIUE « -VALUE! 





Mfr. 

88 


0287 

0088 

ipar 


JMP 

CNV060 


0258 



it 



3-C2I 8Ca(SCCH0)»HAe! 

0259 


005 A » 

CNV0I0 

EQU 

$ 
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0260 

005A 

0284 


Cl 

R4,HAB 

IP NOT HEX TD BINARY! 


005C 

0D00 





0261 

075E 

1608 


JNE 

CNV020 


0262 






4.CALL CNVP(L0C(8TRING(n ,4, VA 

0263 

0060 

05CA 


INCT 

R10 


0284 

0062 

020!) 


U 

N9,4 

** CHARS 


0064 

0004 





026S 

0066 

0208 


LI 

R8«, 16 

RADIX 


0068 

0010 





0266 

0(?6A 

06A0 


8L 

• CNVF 



006t 

00C4 • 





0267 

0068 

1023 


JMP 

CNV060 


026« 



♦ 



3»C3* 8CB(SCCH0)wBDA| 

0269 


0070» 

C?^V020 

EQU 

$ 


027CT 

0070 

0284 


Cl 

R4,0OA 

IP NOT BIN TO DECIMAL ASCII 


0072 

0A03 





0271 

0074 

1614 


JNE 

CNV045 


0272 



♦ 



4-IF VALUE>«0 THEN DO» 

0273 

0076 

C186 


HOV 

R6,R6 


0274 

0078 

1104 


JLT 

CNV030 


0275 



# 



S-STRlNGinn' 'I 

0276 

007A 

OAA0 


H0V8 

8BLANK f 

iSC8TR(R10) 


007C 

004C » 






007E 

0002 





0277 






4.ENDJELSE 

0278 

0080 

1004 


JMP 

CNV040 


0279 


0082' 

CNV03i 

EQU 

$ 


0280 



♦ 



5»VALUE»-VALUE» 

0281 

0082 

0746 


ABS 

R6 


0282 



# 



5»8TRlNG(l)i'»'! 

0283 

0084 

UAA0 


M0V8 

8MINUS, 

«SCSTR(Rt0) 


0086 

00S2' 






0088 

0002 





0284 


0084* 

CNV040 

EQU 

$ 


0285 



♦ 



4-CALL CNVReLOC(STRINGf2)5 ,5,V 

0286 

008A 

0224 


AI 

R10,8C8TR+1 STRIWG(2) 


008C 

0003 





0287 

008C 

0209 


11 

R9,5 

8 CHARS 


0090 

0005 





0288 

0092 

0208 


LI 

Rfi, 10 

BASE 


0094 

0004 





0280 

0096 

06A0 


SL 

• CNVR 



0098 

0102' 





029P 

009A 

0604 


DEC 

R10 


0291 

009C 

i00e 


JMP 

CNV060 


0292 


009E' 

CNV0I45 

EQU 

S 


0293 



♦ 



3-C4» SCB(SCCHD)«BHA| 

0294 

009E 

0284 


Cl 

R4|BHA 



00A0 

0C00 





0295 

00A2 

1603 


JNE 

CNV050 

IP INVALIO command 

0296 






4-CALL CNVRfLOCCSTRINGdI ,4 ,vA 

0297 

00A4 

05C4 


INCT 

R10 

STPiNGf 13 

0298 

00A6 

0209 


LI 

R9,4 

8CHAPS 


00A8 

0004 





0299 

00AA 

0208 


LI 

R8, 16 

base 
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0PAC 

0010 





030« 

00AE 

06AO 


BU 

PCNVR 



00B0 

010S» 





0301 

030S 

006? 

1001 

# 

JMP 

CNV060 

3»C5l SIGNAL ERROR 0CCUR81 

0303 






2*ENn CASEI 

0304 



n 



p.ERROR OCCURSI ERR* ERR-HI 

0305 

' 

00B4» 

CNVfi^S^ 

eou 

S 


0306 

0004 

0585 


INC 

RS 


0307 


00B6» 

CNV06P 

EOU 

S 


030« 

0309 

0006 

C786 

# 

HOV 

R6,*R14 

2»CALL SET WK8P(VALUE,R0I 1 

0310 

0311 

00iB 

06C5 


SWP8 

R5 

a^SCBISCERRI « ERRl 

031R 

00BA 

0845 


M0V9 

R5,iSCERReRl) 



000C 

0001 





0313 

0314 

0006 

0420 

t 

BL0P 

APR 

2»PETURN 


00C® 

0000 





0315 

00C? 

04SB 


RT 





** A8Cn/BlNA«Y C0NVe«8I0N8 ♦* 


945359<id90)l*« 


PAse Ptaeg 


0317 



Hr 

TITLEI 

CNVF 

0318 



Hr 



convert ASCII TO BINARY 

0319 



Hf 

REVISION! 


0320 



♦ 



original 

0321 



Hr 

COMPUTER! 

990*A8M 

0329 



Hr 

ABSTRACT! 

CNVr CONVERTS AN ASCII STRING WHICH 

0323 



Hr 



REPRESENTS A BINARY VALUE TO BINARY, 

0324 



Hr 



CONVERSION TAKES PLACE IN ANY BASE 

0325 



Hr 



FROM 2.16, IF ANY CHARACTER 18 ILLEGAL 

0326 



Hr 



OR THE RESULT CANNOT BE REPRESENTED IN 

0327 



* 



16 BITS, AN ERROR 18 RETURNED, 

0328 




CALLING SEQUENCE! 

0329 



Hr 



8L FCNVF 

0330 



Hi 



2*PR0CfDURE CNVF(8TR,NUM,VAL,R 

0331 



Hr 



3»/* CNVF CONVERTS AN ASCII ST 

0332 



Hr 



3«* REPRESENTS A BINARY VALUE 

0333 



# 



3» CONVERSION TAKES PLACE IN 

0334 



Hr 



3- from 2*16, IF ANY CHARACTE 

0335 



Hr 



3* OR THE RESULT CANNOT BE RE 

0336 



t 



3» IS BITS, AN ERROR 18 RETUR 

0337 



Hr 



3»OECLARE 

0338 



Hr 



4,.STR POINTER 

0339 



Hr 



4-NUM FIVEOnS), 

0348 



Hr 



4-VAL F1VE0(325, /*VALUE IN M 

0341 



H 



Am 16 BITS ♦/ 

0342 



* 



4-RA0IX FIVEOtiei, 

0343 



Hr 



4»ERR FIVEDtlS), 

0344 



# 



4*1 FIXE0C16), 

0345 



Hr 



4«J FIXEDdS), 

0346 



# 




0347 



# 



REGISTER assignments 

0348 



# 



Rll • return 

0349 



Hr 



R10 • STRING « 

0350 



* 



R9 • R CHARS 

0351 



t 



R8 • RADIX 

0352 



♦ 



R6, R7 • VALUE 

0353 



* 



RS • ERR 

0354 



Hr 



R4 • I 

0355 



Hr 



R3 • J 

0356 



♦ 



R2 « working string # 

0357 



♦ 




0358 


00C4' 

CNVP 

EQU 

s 

0339 

00C0 

C08A 



MOV 

R10,R2 

0360 



Hr 



3*I»0I 

0361 

00C6 

04C4 



CLR 

R4 

0362 






3,VAX«0| 

0363 

00C8 

3984 



MPY 

R4,R6 clear R6,N7 

0364 






3*00 UWTIL NO leading BLANKS , 

0365 


08CA' 

CNVF10 

EdU 

$ 

0366 



Hr 



4-IF (C(STR) ,NE, * ») THEN 

0367 



Hr 



5«SIGNAL NO LEADING BLANKS! 

0368 

00CA 

9812 



C0 

*R2,iBUANK 


00CC 

007C 





0369 

00CF 

1605 



JNE 

CNVF20 


c 
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PA6E 0010 

1970 



t 



4*m+i 

197 1 

0000 

0984 


INC 

R4 


0372 



# 



4*IF I*lNUM THIN SlfiNAL ERROR. 

0373 

0802 

8244 


C 

R4,R0 


0374 

0804 

1414 


JHf 

CNVF90 


097S 



t 



Ad.8TRp8TR*l 

0976 

0806 

0982 


INC 

R2 


0377 



t 



3»END 

097S 

0808 

18F8 


JMP 

CNVF10 


0379 



# 



3.N0 LEADING BL4NK8I 

0380 


00DA* 

CNVf8i 

EOU 

$ 


0381 



♦ 



4*00 UNTIL liNUM .OR, ERROR! 

0382 



* 



9*VALUEtVALUE*8A8E» 

0389 

08OA 

9988 


MPY 

R8fR6 


0384 






9.IF VALUE*2**ie then SIGNAL E 

0389 

00OC 

C186 


MOV 

R6fR6 

ERROR* RESULT MUST BE ENTIRfL 

0386 

0006 

160F 


JNE 

CNVF9i 

IN right halfword 

0987 

0810 

C187 


MOV 

R7,R6 


0386 



# 



S*00 FOR J*BA8E TO 0 BY *1 UNT 

0389 



# 



9*0R ERROR 

0390 

08E2 

C0C8 


MOV 

R8,R3 RADIX** J 

0991 


00E4» 

CNVPli 

EQU 

$ 


0392 






6*IF CC(8TRlfCL8T(J*l) THEN 81 

0393 

08E4 

9802 


C8 

*R2,#Cl.ST*lCR3) 



i8C6 

FFFf * 





0394 

08E8 

1303 


JEQ 

CNVF40 


0399 



* 



6*jpj*l! 

0396 



* 



6*IF J«0 THEN SIGNAL ERROR! 

0397 

08EA 

'0603 


DEC 

R3 


0398 

08EC 

19FB 


J5T 

CNVF38 


0399 

08ee 

1007 


JMP 

CNVF90 


0408 



# 



9*EN0! 

0401 






8.MATCHI 

0402 



♦ 



§»VALUEtVALUE4J*l 

0403 


0iP0» 

CNVF4i 

EOU 

S 


0404 

08F8 

0603 


DEC 

R3 J 


0409 

00F2 

A183 


A 

R3,R6 VALUE 

0406 



« 



9*STRfSTR*l 

|407 

00F4 

0982 


INC 

R2 


0408 






S*Itl+l 

0409 

08F6 

0984 


INC 

R4 


0410 



i 



4*END! 

0411 



« 



3*END! 

0412 

08F6 

8244 


C 

R4|R9 


0413 

08FA 

llEF 


JLT 

CNVF20 


0414 

08FC 

1001 


JMP 

CNVF60 


0419 






3*ERR0R| 

0416 


00FE» 

CNVfSi 

EOU 

S 


0417 



t 



4»ERRrERR41 

0418 

08FI 

0989 


INC 

RS 


0419 



# 



3*END ! 

0428 


0100* 

CNVPflK 

EQU 

S 


0421 



* 



f.END CNVF! 

0422 

0100 

049B 


RT 
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0424 



* 



2.PROCEOURE CNVR (STR i NUM , V AL i R 

0429 



♦ 



S./* CNVR CONVERTS A BINARY VA 

0429 



* 



3» TO A CORRESPONDING ASCII 8 

0427 






3» IN THE SPECIPIED RADIX, TH 

0428 






3» VALUE IS A POSITIVE VALUE 

0429 






3* IN 16 BITS ♦/ 

0430 






S-OECLARE 

0431 






4»str pointer# 

0433 



* 



4*NUM PIXE0(16), /* R CHARS I 

0433 



♦ 



4.VAL EIXfO(32) 

0434 



« 



4*RA0IX FIXEO(ie), 

0439 



♦ 


REGISTER assignments 

0436 





Rll • return 


0437 





R10 • 8TR (STRING #5 

0438 





R9 m n CHARS 


0439 





R8 • RADIX 


0440 





R6 •> VALUE 


0441 



♦ 


R9 - RESERVED 


0442 



♦ 


R7 • REMAINDER 

0443 



« 


R2 • WORKING STRING# 

0444 


0102' 

CNV» 

EOU 

S 


0449 

0102 

CP8A 


MOV 

R10»R2 


0446 






3»8TRiSTR#NUM*U 

0447 

0104 

A089 


A 

R9.R2 


0448 

0106 

0602 


DEC 

R2 


0449 






3*00 WHILE NUMR0I 

0450 


0108' 

CNV»10 

EQU 

$ 


0491 

0108 

C249 


MOV 

R9fR0 


0452 

010A 

120S 


JLE 

CNVR20 


0453 



it 



4-REMfM00(VAL»RA01X)| 

0454 



« 



4»VALBVAl/RADXXf 

0455 

010C 

C1C6 


MOV 

R6,R7 


0456 

0108 

04C6 


CLR 

R6 


0457 

0110 

9088 


DIV 

R8,R6 


0458 



it 



4«C(8TR)iCL8TCREM) f 

0459 

0112 

D4A7 


M0V8 

#CL8T(R7),*R2 



0114 

0000' 





0460 



H 



4»STRiSTR«U 

0461 

0116 

0602 


DEC 

R2 


0462 



* 



4»NUM«NUMh1 I 

0463 

0118 

0609 


DEC 

R9 


0464 



* 



3»EN0f 

0465 

011A 

10F6 


JMP 

CNVR10 


0466 



* 



2»EN0 CNVRI 

0467 


011C 

CNVR2e 

EOU 

S 


§468 

0110 

045S 


RT 



0469 



♦ 



1-END CNVRT 

0470 




END 




PB0B ERS 


960' ! 

960 CQNCDROAKiCe 



f 


0817 

0299 

0269 



0369 

0390 

0391 

ACi 


0178 

0819 


0D4 

0163 

0870 



9HA 

0164 

0894 



9UANK 


0178 

0290 

0276 

CUiT 

0163 

0173 

0393 

0469 

CNV010 

0899 

0831 



CNV080 

0869 

0861 



CNV030 

0879 

0874 



CNV040 

0884 

0879 



CNV049 

0898 

0871 



CNV090 

0306 

0841 

0893 

0895 

CNV060 

0307 

0847 

0849 

0291 

CNVF 

0399 

0837 

0866 


CNVF10 

0369 

0379 



CNVP00 

0380 

0399 

0413 


CNVF30 

0391 

0398 



CNVF40 

0403 

0394 



CNVF90 

0416 

0374 

0386 

0399 

CNVF60 

0420 

0414 



CNV9 

0444 

0889 

0300 


CNVR10 

0450 

0469 



CNVR00 

0467 

0498 



cnvrt 

0817 

0169 



OAS 

0168 

0830 



SiTBUF 


0174 



HAS 

0169 

0890 



LWP 


0176 



RiNUi 


0171 

0298 

0263 

PLUS 


0170 

0246 


90 

0187 




91 

0189 

0885 

0318 


910 

0197 

0829 

0829 

0834 



0876 

0283 

0866 

9U 

0198 




918 

0199 




9l3 

0800 

0819 

0819 


914 

0801 

0819 

0821 

0309 

918 

0802 




9l2 

0189 

0399 

0368 

0376 



0461 



93 

0190 

0390 

0393 

0397 

94 

0191 

0888 

0829 

0830 

> 


0373 

0409 

0418 

99 

0192 

0823 

0306 

0311 

96 

0193 

0881 

0840 

0240 



0393 

0365 

0365 

97 

0194 

0367 

0495 

0499 

96 

0199 

0836 

0869 

0288 

99 

0196 

0839 

0864 

0887 



0463 



91T8UF 


0179 



99 


0179 

0314 


9WP 


0177 



8CCM0 

0193 




3CIR9 

0194 

0318 



8C8TH 

0199 

0834 

0876 

0283 

ie«o 


0169 

0246 



9^5352-9901** PAGE 0012 
m?9 9294 2992 @309 0S0f 0390 

0403 0410 0400 0444 0490 0490 


0369 


0097 0067 009t 0301 


0848 

0890 

0246 

0897 

0849 

0399 

0290 

0445 

0252 

0283 

0393 

0407 

0449 

0447 

0448 

0499 

0404 

0860 

0409 

0270 

0894 

0361 

0363 

0371 

0312 

0868 

0387 

0418 

0273 

0409 

0273 

0496 

0281 

0466 

0309 

0487 

0363 

0899 

0898 

0383 

0373 

0390 

0412 

0487 

0447 

0491 

0491 


0099 



THERE ARE 00S3 SYMBOLS 


9^5352-9901** 


PAGE 00 13 





application 


NEXT ASSY I USED ON I LTH 


7506 












*:^:733 DEV SER ROUT I NES^i^s 


945353-9901** 


PAGE 0002 


0003 IDT 'DSR733' 

0004 * PROCEDURE DSR733; 





tt733 DEV SER ROUT I NES:<()K 


94B353-9901** 


PAGE 0003 


0006 

0007 

000S 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 


t 

* 

* 

* 

% 

■J|:: 

t 

t 

* 

t 

t 

t 

* 

t 

t 

t 

t 


DECLARE (1 PHYSICALRECORDBLOCK, 

3 PRB CONTROL (PRBPTR). 

S I OOP BIT CS) , 

5 LUNO BIT Us), 

5 SYSTEMFLAGS, 

7 FILLERl BIT (1 ) , 

7 UNRECOVERABLEERROR BIT Cl), 
7 EOFFLAG BIT (1), 

7 FILLER2 BIT C5), 

5 USERFLAGS, 

7 FILLERS BIT C3), 

7 CHARACTER 10 BIT (1), 

7 NObJAITFLAG BIT(l), 

7 FILLER 4 BITC3), 

5 BUFFERADDRESS POINTER, 

5 BUFFERLENGTH FIXED (16), 

5 CHARCOUNT FIXED C16), 

5 PRBRESERVED BIT (32)); 

3 BSFLAG FIXED (16) ; 


**733 DEV SER ROUTINES** 


945353-9901** 


PAGE 0004 


0026 


DECLARE 

0027 


DECLARE 

0028 

t 

DECLARE 

0029 

t 


0030 

t 


0031 



0032 



0033 



0034 




PRBPTR POINTER; 

DCTPTR POINTER; 

( 1 DEVICEC0NTR0LTABLE733ASR, 

3 DCT733 CONTROL C DCTPTR), 
5 CRUBASE FIXED (16), 

5 CASSETTECONTROL (2), 

7 PLAYBACK BIT (1), 

7 RECORD BIT Cl), 

7 FILLER10 BIT CS) ) ; 




%%733 DEV SER ROUTINES** 


945353-9901** 


PAGE 0005 


c 


0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 
0 0 5 6 

0057 

0058 

0059 
0 0 6 0 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


DECLARE BUFFER (1) CHARACTER 
CONTROL (BUFFERADDRESS) i 
DECLARE PARMLIST LITERALLV 

' PRBPTR , DEVTYPE , UN I TNO , DCTPTR ' ; 

DECLARE (1 ASR733 INPUT, 

3 A S R 7 3 3 1 N C R U C 0 N T R 0 L ( C R U BAS E ) . 

5 IN CHAR BIT (S), 

5 XMTING BIT (1), 

5 ASRID BIT Cl), 

5 UIRQ BIT (1), 

5 RRQ BIT (1), 

5 DCD BIT (1), 

5 DSR BIT (1), 

5 I NT BIT (D); 

DECLARE (1 ASR7330UTPUT, 

3 ASR7330UT CRUCONTROL (CRUBASE), 
5 OUTCHAR BIT (8), 

5 FILLER7331 BIT Cl), 

5 DTR BIT Cl), 

5 RTS BIT Cl ) , 

5 CLRWRQ BIT Cl), 

5 CLRRRQ BIT Cl ) , 

5 CLRNSF BIT CD); 

DECLARE MODRCD LITERALLY 
DECLARE MODPBK LITERALLY '"8040" D 
DECLARE MODBTS BIT (16) INITIAL ("C0C0"); 
DECLARE Cl STATUS, 

3 FILLERSTTl BIT (2), 

3 PNTRDY BIT (1), 

3 RCDRDY BIT (1), 

3 BOE Cl) BIT (1) , 

3 PBKERR BIT (1), 

3 PBKRDY BIT CD); 



ASCII LITERAL VALS & COMMANDS 945353-9901*^: 


PAGE 0006 


0071 


DECLARE DLE LITERALLY 


0072 

* 

DC2 

LITERALLY 

. H i 2 » . 

0073 

* 

DCS 

LITERALLY 

/ n ^311 / 

0074 

* 

DC4 

LITERALLY 

' “ 14“ ■" 

0075 

* 

■CR 

LITERALLY 

' “ 0 D“ • 

0076 

* 

LF 

LITERALLY 


0077 

* 

DEL 

LITERALLY 

/ It ^p u 

0078 

* 

SP 

LITERALLY 

f . 1201 . . 

0079 


HT 

LITERALLY 

/ II 00 li ? 

0080 

* 

ESC 

LITERALLY 

^ 1 B " 

0081 

* 

BEL 

LITERALLY 

f n 0 p.li ^ 

0082 

* 

FF 

LITERALLY 

/ 1 1 0 p 1 1 f 

0083 

* 

ETE: 

LITERALLY 

^ n *7 11 f 

0084 

* 

VT 

LITERALLY 

f .1 0311 . 

0085 

* 

BS 

LITERALLY 

' " 08" ' 


0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 
0 0 9 4 
0095 


* 

* 

* 

* 

* 

* 

* 

* 

* 


DECLARE 

DECLARE 


MDID LITERALLY '' 
REWIND LITERALLY 


80" ' : 

'"31"+MDID' , 


'33"+MDID' , 


LOAD LITERALLY '' 

RECORD LITERALLY 
PLYBK LITERALLY '"'36"+MDID' 


FWDBLK 

BCKE:LK 

STATUS 

ENDGRP 

DLYGRP 


LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 

LITERALLY 


/ 1 1 o -7' n f 

V..' / 

f noon f 
■Zt C< 

f 1 1 o • 1 f 
s-j L. 

n p: p n f 


r M 


FE 


II f 



COMMAND TABLES 


945353-9901:*:* 


PAGE 0007 




0098 

0093 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 
0127 


* DECLARE RECORDMODE ( 7 ) B I T C S ) I N I T I AL 

* (DLYGRP, 60. DLE, DLYGRP, 3, RECORD , ENDGRP ) ; 

* DECLARE PLYBACKMODE (7) BIT CS) INITIAL 

:* (DLYGRP, 60, DLE, DLYGRP, 3, PLYBK , ENDGRP ) ; 

* DECLARE READTAPE (5) BIT (8) INITIAL 

* (DLE, DLYGRP, 3- FWDBLK, ENDGRP); 

* DECLARE UITTAPESTART (4) BIT CB) INITIAL 

* (DC2, DLYGRP, 3, ENDGRP); 

* DECLARE UTTAPEEND (9) BIT ( S ) INITIAL 

* CCR, LF, DC4, DLYGRP, 3, DEL, DLYGRP, 3, 

* ENDGRP); 

* DECLARE EOFSEQ (4) BIT (S) INITIAL 

* (DC3, ENDGRP); 

* DECLARE REWINDSEQ (9) BIT (8) INITIAL 

* (DLYGRP, 60, DLE, DLYGRP, 3, REWIND, 

* DLYGRP, 180, ENDGRP); 

* DECLARE LOADSEQ (5) BIT (8) INITIAL 

* (DLE, DLYGRP, 3, LOAD, ENDGRP); 

* DECLARE BACKSPC (7) BIT (8) INITIAL 

* (DLE, DLYGRP, 3, BCKBLK, DLYGRP, 48, ENDGRP); 

:* DECLARE ECHOFF ( 4) BIT (8) INITIAL 

:* (LF, DLYGRP, 3, ENDGRP); 

:* DECLARE STATUSSEQ (5) BIT (8) INITIAL 

* (DLE, DLYGRP, 3, STATUS, ENDGRP); 

* DECLARE ECHOES (7) BIT (8) INITIAL 

(BS, DLYGRP, 3, ENDGRP); 

* DECLARE ECHODEL (7) BIT (8) INITIAL 

* (LF, DLYGRP, 3, CR, DLYGRP, 27, ENDGRP); 

* DECLARE BYTMOD (6) BIT (8) INITIAL 

* ( 1 , 0 , 1 , 0 , 1 , - 1 ) ; 


c 



CASSETTE - OPEN 


345353-9301** 


PAGE 0008 


0130 

t 

PROCEDURE CSOPEN CPARMLIST) 

0131 

* 

CALL RSTMOD; 

0132 


RETURN; 

0133 

t 

END CSOPEN; 


CASSETTE-FORWARD SPACE REC 


945353 - 9901 :*:* 


PAGE 0009 


0136 


PROCEDURE CSFWD (PARMLIST); 

0137 

t 

DECLARE (1 DUMMYSVCBLOCK, 

0138 

X 

3 DMYSVCCODE BIT (S), 

0139 

X 

3 FILLERDMYl BIT (8), 

0140 

X 

3 DMYIOOP BIT (S), 

0141 

X. 

3 DMYLUNO BIT (8), 

0142 

X 

3 DM Y SYS FLAGS, 

0143 

X 

5 FILLERDMY2 BIT (2), 

0144 

X 

5 DMYEOFFLAG BIT (i), 

0145 

X 

5 FILLERDMY3 BIT (5), 

0 1 4 6 

X 

3 DMYUSRFLAGS BIT ( S ) , 

0 1 4 7 

X 

3 D M Y E F R A D D R P 0 I N T E R , 

0 1 4 8 

X 

3 DMYBFRLNTH FIXED (16), 

0149 

X 

3 D M Y C H R C 0 U N T F I X ED (16)) 

0150 

X 

DECLARE DMYBUFFER BIT (8); 

0151 

X 

DECLARE READASCII LITERALLY '9''; 

0152 

X 

DECLARE lOREQUEST LITERALLY 'O'; 

0153 

X 

DECLARE I FIXED; 

0154 

X 

DECLARE WKSP POINTER, 

0155 

X 

DMYSVCCODE = lOREQUEST, 

0156 

X 

DMYIOOP = READASCII; 

0157 

X 

DMYLUNO = LUNO; 

0153 

X 

DMVSYSFLAGS = 0; 

0 159 


DMYUSRFLAGS = 0- 

0160 


DMYBFRADDR = ADDR (DMYBUFFER); 

0161 


DMYBFRLNTH = 1 ; 

0162 


I = 0; 

0 163 

)K 

CALL GETBUF (WKSP); 

0164 


DO WHILE I < CHARCOUNT &. DMYEOFFLAG = 

0165 


CALL 10 (WKSP); 

0166 


SYSTEMFLAGS = DMVSYSFLAGS; 

0167 


1=1+1; 

0168 


END; 

0169 


CALL RETBUF (WKSP); 

0170 


RETURN, 

0171 

X 

END CSFWD; 


CASSETTE 


BACKSPACE RECORD 


945353-9901** 


PAGE 0010 


0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 


* 

* 

* 

* 

* 

* 

* 

* 


PROCEDURE CSBACK CPARMLIST); 
DECLARE I FIXED; 

CALL CHGMGD (PRBPTR, DCTPTR. 
DO I FROM 1 TO CHARCOUNT; 
CALL CMND (ADDR CBKSPO); 
END; 

RETURN; 

END CSBACK; 







CASSETTE 


READ ASCI I 


945353-9901** 


PAGE 0011 


0184 

01S5 

0186 

0187 

01S8 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


PROCEDURE CSRASC ( PARML I ST ) ; 

DECLARE CHAR BIT (8); 

DECLARE I FIXED; /* CHARACTER CURSOR */ 

CALL CHGMOD CPRBPTR. DCTPTR, MODPBK) ; 

CALL STTCHR (CHAR); /* GET STATUS */ 

IF PBKRDY = 0 THEN DO; 

UNRECOVERABLEERROR = 1; 

RETURN; 

END, 

I = 0; 

CALL CMND (ADDR (RTAPE)); 

CALL RCVCHR (CHAR, WAIT); 

IF CHAR = LF THEN CALL RCVCHR (CHAR, WAIT); 
IF CHAR = DEL THEN CALL RCVCHR (CHAR, WAIT); 
DO WHILE CHAR . NE . CR &. I < BUFFERLENGTH 
& EOFFLAG = 0; 

IF CHAR = ETB THEN CHAR CR; 

IF CHAR >= SP . OR . 

(CHAR >= BEL & CHAR <= HT) .OR. 

CHAR = FF . OR . CHAR = CR 
THEN DO; 

CALL PUTCHR (CHAR, I ) ; 

1 = 1 + 1 ; 

END, 

IF CHAR = DC3 
THEN DO; 

IF I = 0 THEN EOFFLAG = 1; 

CALL RCVCHR (CHAR, WAIT); 

IF CHAR .NE. CR 

THEN CALL CMND (ADDR (RTAPE)) 

END; 

ELSE CALL RCVCHR (CHAR- WAIT); 

END; 

DO WHILE CHAR . NE . CR; 

CALL RCVCHR (CHAR, WAIT); 

END; 

CHARCOUNT = I ; 

RETURN, 

END CSRASC 



CASSETTE - WRITE ASCII 


945353-9901Sc:lc 


PAGE 0012 


0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 


t 

t 

t 

t 

t 

X 

t 

X 

t 

t 

t 

t 

t 

X 

X 

* 

X 

X 

X 

X 


PROCEDURE CSUJASC CPARMLIST); 

DECLARE I FIXED; 

DECLARE CHAR BIT (S); 

CALL CHGMOD (PRBPTR, DCTPTR, MODRCD); 

CALL STTCHR (CHAR) /fGET STATUS 
IF RCDRDY = 0 THEN DO; 

UNRECOVERABLE ERROR = 1; 

RETURN; 

END; 

CALL CMND (ADDR (UITAPES)); 

DO I FROM 0 TO MIN ( CHARCOUNT-1 . 79); 

CALL GETCHR (CHAR, I) 

IF CHAR = CR THEN CHAR = ETB; 

IF CHAR >= SP .OR. (CHAR >= BEL & CHAR <= 
.OR. CHAR = FF .OR. CHAR = ETB 
THEN CALL SNDCHR (CHAR, 0); 


END; 

CALL DELAY (CCOUNT) 

CALL CMND (ADDR (WTAPEE)) 
RETURN; 

END CSWASC; 





PAGE 0013 


CASSETTE - WRITE END. OF. FILE 945353-9901W 


024S 

0249 

0250 

0251 

0252 

0253 

0254 


% 

% 

t 

% 

% 

% 

% 


PROCEDURE CSUIEOF (PARMLIST); 
CALL CHGMOD (MODRCD); 

CALL CMND (ADDR (WTAPES)); 
CALL CMND (ADDR (EOFSEQ)); 
CALL CMND (ADDR (UTAPEE)); 
RETURN; 

END CSUEOF; 


CASSETTE-REWIND TO LOAD POINT 345353-9901** 
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0257 

0258 

0259 
©260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 


PROCEDURE CSRWND (PARMLIST); 

DECLARE I BIT (1); 

CALL RSTMOD; 

CALL CMND CADDR (RWDSEQ)); 

1 = 0 ; 

DO WHILE I = 0; 

CALL STTCHR (STATUS); 

I = BOE CABS (MOD (DRIVEID. 2) - 1)) 
END; 

CALL CHGMOD (PRBPTR- DCTPTR, MODPBK); 
CALL CMND (ADDR (LOADSQ)); 

I = 0; 

DO WHILE I = 0; 

CALL STTCHR (STATUS); 

I = PBKRDY 
END; 

RETURN; 

END CSRWND; 




CASSETTE - UNLOAD 


945353-9901*:*: 


PAGE 0015 


0377 


PROCEDURE CSUNLD (PARMLIST); 

0278 

t 

DECLARE I BIT (1); 

0279 

t 

CALL RSTMOD; 

02S0 


CALL CMND CADDR (RWDSEQ)), 

0281 

t 

I = 0, 

0282 


DO WHILE 1=0; 

0283 


CALL STTCHR (STATUS) ; 

0234 


I = BOE (ABS (MOD (DRIVE ID, 

0285 

% 

END, 

02SS 

t 

RETURN, 

0287 

t 

END CSUNLD; 



LOG - READ ASCII 


945353-9901** 
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0290 * 

0291 * 

0292 * 

0293 * 

0294 * 

0295 * 

0296 * 

0297 * 

029S * 

0299 * 

0300 * 

0301 * 

0302 * 

0303 * 

0304 * 

0305 * 

0306 * 

0307 * 

0308 * 

0309 * 

0310 * 

0311 * 

0312 * 

0313 * 

0314 * 

0315 * 

0316 * 

03 1 7 * 

0318 * 

0319 * 

0320 * 

0321 * 

0322 * 

0323 * 

0324 * 

0325 * 

0326 * 

0327 * 

0328 * 

0329 * 

0330 * 

0331 * 

0332 * 

0333 * 

0334 * 

0335 * 

0336 * 

0337 * 

0338 * 

0339 * 

0340 * 

0341 * 

0342 * 

0343 * 


PROCEDURE LGRASC CPARMLIST); 

DECLARE I FIXED (16); 

DECLARE CHAR BIT (8) ; 

1 = 0 ; 

DO WHILE EOFFLAG = 0 & I < BUFFERLENGTH 
S. UNRECOVERABLEERROR = 0; 

IF NOWAITFLAG=0 THEN 

CALL RCVCHR (CHAR, WAIT) ; 

ELSE CALL RCVCHR ( CHAR ,NOWA I T ) ; 

IF NOWAITFLAG=l & CHAR=0 THEN RETURN; 
IF CHAR NE BS THEN BSFLAG = 0; 

IF CHAR >= SP & CHAR < DEL THEN DO; 
CALL SNDCHR ( CHAR , DELAY'S ) ; 

CALL PUTCHR (CHAR, I); 

1 = 1 + 1 ; 

END; 


ELSE IF CHAR = DEL THEN DO; 

IF CHARACTER 10 = 1 
THEN DO; 

CALL PUTCHR (CHAR, I); 
I = I + 1; 

END; 

CALL CMND (ADDR CECODED); 
END; 


ELSE IF CHAR = BS THEN DO; 

IF CHARACTER 10 = 1 THEN DO; 
CALL PUTCHR (CHAR, I); 

I = I +2; 

; END; 

I = MAX (I - 1 , 0) ; 

CALL CMND (ADDR (ECOBS)); 

IF BSFLAG EQ 0 THEN DO; 
BSFLAG = -1; 

CALL SNDCHR (LF, DELAYS); 
END 


END, 

ELSE IF CHAR = 
CALL PUTCHR 
CALL SNDCHR 
1 = 1 + 1 ; 
END; 

ELSE IF CHAR = 
ELSE IF CHAR = 
CALL SNDCHR 


HT THEN DO; 
(CHAR, I); 

(' DELAYS); 


DC3 & I = 0 THEN E0FFLAG=1 
CR THEN DO; 

(CHAR, DLY27); 


CHARCOUNT = I ; 
RETURN; 

END, 


ELSE IF CHAR = LF 

THEN CALL SNDCHR (CHAR, DELAYS) 
ELSE IF CHAR = ESC 

THEN UNRECOVERABLEERROR = 1; 
END, 


CHARCOUNT = I ; 
RETURN; 



LOG - READ ASCII 945353-9901** PAGE 0017 

0344 * END LGRASC; 


LOG - WRITE ASCII 


945353-9901** 
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0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


PROCEDURE LGWASC (PARMLIST); 
DECLARE (I, J) FIXED (16); 
DECLARE CHAR BIT (8); 

DECLARE FOUND FIXED (16); 

I = CHARCOUNT; 

IF I = 0 THEN RETURN; 
1 = 1 - 1 ; 

DO J FROM 0 TO I BY 1; 

CALL RCVCHR (CHAR. NOWAIT); 
IF CHAR = ESC THEN DO; 


UNRECOVERABLEERROR = 1; 
RETURN; 

END; 


CALL GETCHR (CHAR, J) ; 

IF CHAR = HT THEN CHAR = SP; 

IF CHAR >= SP .OR. (CHAR >= BEL & CHAR <= LF) 
THEN CALL SNDCHR (CHAR, DELAYS); 

IF CHAR = CR THEN CALL SNDCHR (CHAR, DLY27); 
IF CHAR = ,FF THEN DO l< FROM 1 TO 8; 

CALL CMND (ADDR (ECOFF)); 


END, 

END; 

RETURN, 

END LGWASC; 





c 
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SINGLE CHAR INPUT FOR MONITOR 945353-39015^’!^ 


0373 

0374 

t 

t 

■A,' 

PROCEDURE MONITORCHAR (CHAR) 

DECLARE CHAR CHARACTER ( 1 

0375 

0376 

% 

CALL RCVCHR (CHAR, NOUIAIT,' 

0377 

037S 

t 

RETRN, 

t 

END MONITORCHAR; 


( 



CHANGE RECORD/PLAYBACK MODE 945353-9901^:1: PAGE 0030 


0381 

* 

PROCEDURE CHGMOD (PRBPTR. DCTPTR, MODE); 


0388 

t 

DECLARE MODE BIT (16) ; 


0383 

t 

y-t NOTE PRBPTR AND DCTPTR GLOBALLY 


03:34 


DEFINED :+:/ 


0385 

t 

DECLARE CINUSE, OTHER) FIXED; 


0386 


INUSE = MOD (UNITNO, 2); 


0387 


OTHER = ABS (INUSE-1); 


0388 

t 

IF (MODE = MODPBK & 


0389 

t 

CAS'SETTECONTROL ( INUSE) . PLAYBACK = 

1 ) 

0390 

t 

(MODE = MODRCD & 


0391 : 


CASSETTECONTROL ( I NUSE ) . RECORD = 1) 


0392 

t 

THEM RETURN. 


0393 

Y 

CASSETTECONTROL (INUSE) = 0; 


0394 


CASSETTECONTROL (OTHER) = 0. 


0395 


IF MODE = MODPBK THEN DO; 


03 9G 


CASSETTECONTROL ( I NUSE ) . PLAYBACK 

= 1 

0397 


CASSETTECONTROL ( OTHER ). RECORD = 

1 ; 

0398 


CALL CMND (ADDR (PMODE )); 


0399 


END; 


0400 


ELSE DO; 


0401 


CASSETTECONTROL ( I NUSE ), RECORD = 

1 ; 

0402 


CASSETTECONTROL ( OTHER ), PLAYBACK 

= 1 

0403 


CALL CMND (ADDR (RHODE)); 


0404 

t 

END; 


0405 

t 

RETURN; 


0406 

t 

END CHGMOD; 
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GET STATUS CHARACTER 


945353 - 9901 ** 


0409 

0410 

0411 
0413 

0413 

0414 

0415 


* 

* 

4 ; 

t 

* 

* 

* 


PROCEDURE STTCHR C STATUSCHAR ) ; 
DECLARE STATUSCHAR BIi CS); 

CALL CMND (ADDR CSTTSEQ)); 

CALL RCVCHR (STATUSCHAR- WAIT); 
RETURN; 

END STTCHR; 


SEND COMMAND SEQUENCE 


945353 - 9901 *»: 
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0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 


t 

t 

* 

* 

t 

t 

Z 

t 

t 

t 

X 

t 

t 

*■ 

* 

X 

t 

t 

t 

t 


PROCEDURE CMND CCMNDPTR, DRIVEID) 

DECLARE (CMNDPTR. BYTEPTR) POINTER; 

DECLARE COMMANDBYTE' FIXED CS) 

CONTROL (BYTEPTR); 

DECLARE DRIVE-ID FIXED (8); 

DECLARE BYTE FIXED; 

BYTEPTR = COMNDPTR 
DO FOREVER; 

BYTE = COMMANDBYTE; 

BYTEPTR = BYTEPTR + 1; 

IF BYTE = ENDGROUP THEN EXIT DO; 

IF BYTE = DELAYGROUP THEN DO; 

CALL DLYCHR (COMMANDBYTE); 

BYTEPTR = BYTEPTR + 1 , 

END; 

ELSE DO, 

IF BYTE < 0 

THEN /* THIS IS A COMMAND BYTE 

TO BE MODIFIED BY DRIVE ID t/ D 
J = MOD (DRIVE ID, 2); 

IF U .NE. 0 

THEN BYTE = BYTE + BYTMOD (BYTE); 
CALL SNDCHR (BYTE, 0), 

END; 

END; 

RETURN; 

END CMND; 



SEND CHARACTER TO 733ASR 


945353-9901SC* 
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0447 

0448 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 


t 

t 

% 

t 

t 

% 

t 

t 

t 

t 

t 

% 


PROCEDURE SNDCHR CDELAYTIME, CHAR); 
DECLARE DELAYTIME FIXED; 

DECLARE CHAR BIT (S); 

IF DSR = 1 THEN DO; 

RTS = 1; 

DTR = 1; 

OUTCHR = CHAR; 

DO WHILE WRQ = 0; 

END; 

CLRWRQ = 1; 

CALL DLYCHR (DELAYTIME); 
END; 

ELSE UNRECOVERABLEERROR = 1; 
RETURN; 

END SNDCHR, 


SEND DELAY CHAR TO 733 ASR 


945353-9901** 
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0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 
©473 

0474 

0475 

0476 


* PROCEDURE DLYCHR ( DELAYCOUNT ) ; 

* DECLARE (DELAYCOUNT, I) FIXED; 

* 

* I = DELAYCOUNT; 

* DO WHILE I > 0; 

* RTS = 0; 

* OUTCHR = ANYTHING; 

* DO WHILE WRQ = 0; 

* END; 

* CLRWRQ = 1; 

* END; 

* RETURN; 

* END DLYCHR; 
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RECEIVE CHARACTER FROM 733ASR 945353-9901*^1^ 


0479 

t 

PROCEDURE RCVCHR (WAITFLAG. CHAR) 

0480 

% 

DECLARE WAITFLAG FIXED; 


0481 

t 

DECLARE CHAR BIT (8); 


0482 

% 

IF TIMERR = 1 THEN CLRRRQ = 

1 ; 

0433 

X 

DO WHILE RRQ = 0.; 


0434 

t 

IF WAITFLAG . NE . 0 THEN 

DO 

0485 

t 

CHAR = 0; 


0486 

t 

RETURN; 


0487 

t 

END; 


0438 


END; 


0 4 S 9 

t 

CHAR = INCHAR; 


0490 

t 

CLRRRQ = 1; 


0491 

t 

RETURN; 


0492 

t 

END RCVCHR; 




GET CHARACTER FROM BUFFER 
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94B353-9901*^"'' 


0495 

0496 

0497 

0498 

0499 

0500 


t PROCEDURE GETCHR (DISPLACEMENT, CHAR) 
DECLARE DISPLACEMENT FIXED (16); 

X DECLARE CHAR BIT (S) ; 

* CHAR = BUFFER (DISPLACEMENT); 

t RETURN; 

t END GETCHR; 



PUT CHARACTER INTO BUFFER 


945353-9901*:<( 


PAGE 00E7 


t PROCEDURE PUTCHR (DISPLACEMENT, CHAR); 
T DECLARE DISPLACEMENT FIXED; 

5t; DECLARE CHAR BIT CS); 

^ BUFFER (DISPLACEMENT) = CHAP, 

X RETURN, 

* END PUTCHR; 


< 


c 
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0511 

* 

PROCEDURE RSTMOD; 



0512 

* 




0513 

* 

CASSETTECONTROL 

(1) .PLAYBACK 

= 0 

0514 

* 

CASSETTECONTROL 

(2) . PLAYBACK 

= 0 

0515 

* 

CASSETTECONTROL 

Cl). RECORD = 

0; 

0516 

* 

CASSETTECONTROL 

C2) . RECORD = 

0 ; 

05 IT 

* 

RETURN; 



0518 

* 

END RSTMOD; 
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0521 




i -PROCEDURE DSR733; 

0522 

4: 

TITLE ^ 

DSR733 


0523 

0524 

t 

t 

REVISION 

DEVICE 

SERVICE ROUTINES - 733 ASR 

0525 

t 


OR I G I MAL 

0526 

t 

COMPUTER 

9 9 0 


052 7 


ABSTRACT 



0 5 12 y 

t 


A GROUPING OF SUBROUTINES UHICH CONSTITUTE 

0529 

t 


THE SILENT 733 ASR (1280 BAUD INTERFACE) 

0530 

i/i lt: "D -1 

'■ir 


DEVICE 

SERVICE ROUTINES. 

•'LJ O ...I -L 

0 5 J 

.•T. 


TABLE 

OF CONTENTS: 

0533 



I . 

LEVEL ONE SUBROUTINES 

0534 

t 



A. CASSETTE COMMAND PROCESSORS 

0 5 3 5 

t 



1. OPEN (CSOPEN) 

0 5 1:1 6 

t 



2. FORWARD SPACE (CSFWD) 

0537 

t 



3. BACKSPACE (CSBACK) 

0538 

0539 

t 

t 



4. READ ASCII CCSRASC) 

5. WRITE ASCII (CSWASC) 

0 5 '4 0 

t 



6. WRITE END OF FILE CCSWEOF) 

0541 

t 



7. REWIND (CSRWND) 

0542 

t 



S. UNLOAD CCSUNLD) 

0543 

t 



B. LOG (KEYBOARD/PRINTER) COMMANDS 

0544 

t 



1. READ ASCII (LGRASC) 

0 lz» '4- 5 

t 



2. WRITE ASCII (LGWASC) 

0546 

t 


I I . 

LEVEL TWO SUBROUTINES 

0547 

t 



A, CHANGE RECORD/PLAYBACK MODE CCHGMOD) 

054 8 




B. GET STATUS CHARACTER (STTCHR) 

0549 

t 


Hi. 

LEVEL THREE SUBROUTINES 

0550 

t 



A. SEND COMPLEX COMMAND CCMND) 

0551 

t 


IV. 

LEVEL FOUR SUBROUTINES 

0552 

t 



A. SEND CHARACTER TO 733ASR CSNDCHR) 

0 S 5 J 

t 


V . 

LEVEL FIVE SUBROUTINES 

0554 

t 



A. SEND DELAY CHARACTERS (DLYCHR) 

0555 

t 



B. RECEIVE CHARACTER FROM 733ASR CRCVCHR 

0556 

t 



C. FETCH CHARACTER FROM BUFFER CGETCHR) 

055? 

t 



D. PUT CHARACTER INTO BUFFER (PUTCHR) 

0 5 5 8 

t 



E. RESET CASSETTE RECORD-'^PLAYBACK 

0559 

t 



MODE (R ST MOD) 

056: 0 

t 

CALLING : 

SEQUENCE 


0561 

t 


THE STANDARD CALLING SEQUENCE FOR ALL LEVEL 

0562 

t 


ONE SUBROUTINES IS MADE BY THE 10 SERVICE 

0 5 6 3 

t 


DISPATCHER. UPON ENTRY THE DATA STRUCTURE 

0564 

t 


IS AS 

FOLLOWS: 

0565 

t 


CURRENT WORKSPACE: 

0566 

X 



R13 - ADDR OF DISPATCHER WORKSPACE 

0 5b? 

X. 



R12 - CRU BASE ADDRESS 

0568 

X 



Rll - RETURN 

0 b 6 9 

X 



R10 - ADDRESS OF PRB 

0570 

X 


DISPATCHER WORKSPACE: (READ ONLY) 

0571 

X 



R10 - ADDR OF CURRENT WORKSPACE 

0572 

X 



R9 - DEVICE TYPE 

0573 

X 



RS - UNIT NUMBER 

0574 

X 



R7 - 10 OPERATION CODE 
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0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 
05S4 
0585 
0 b 8 6 
05S7 
0588 
05S9 
0530 

0591 

0592 
0 b y 3' 

0594 

0595 


t 

t 

* 

* 

* 

t 

t 

t 

t 

* 

t 

t 

t 

* 

* 

t 

t 


■R6 - DEVICE CONTROL TABLE (DCT) ADDR 

R3 - PRB ADDRESS 

RULES FOR SUBROUTINE REGISTER USAGE ARE'- 

1. R0, Rl. R14 AND R15 ARE VOLATILE AND 
MAY BE USED BY ANY SUBROUTINE 

2. LEVEL 1 SAVES RETURN ADDR IN R2 

LEVEL 2 SAVES RETURN ADDR IN R3 

LEVEL 3 SAVES RETURN ADDR IN R4 

LEVEL 4 SAVES RETURN ADDR IN R5 

LEVEL 5 SAVES RETURN ADDR IN Rll 

THUS LEVEL 1 MAY USE R3-R5 AS VOLATILE 
STORAGE (LEVEL 2 R4-R5 AND LEVEL 3 R5). 

3. SUBROUTINES MAY MODIFY ONLY THOSE 
REGISTERS DESIGNATED AS OUTPUT PARAMETER 
OR VOLATILE FOR THE APPROPRIATE LEVEL. 

4. SUBROUTINE PARAMETERS ARE PASSED 
ACCORDING TO PX990 STANDARD CR10 TOWARD 
R0) EXCEPT FOR ASSEMBLY-TIME CONSTANT 
PARAMETERS. WHICH ARE CODED AFTER THE 
BE IN THE CALLING ROUTINE. 



tt 733 DEV 

SERVICE 

ROUTINES tt 

945353- 
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0597 


t 



2-DECLARE (1 PHYS ICALRECORDBLOCK , 

0598 


t 




3 PRB CONTROL (PRBPTR) , 

0599 


t 



4- 

5 I OOP BIT (S), 

0600 





4- 

5 LUNO BIT (8), 

0f301 


)|c 



4- 

5 SYSTEMFLAGS, 

0602 


* 



5- 

7 FiLLERl BIT ( i ) , 

0 6 0 3 


t 



5“ 

7 U IJ R E C 0 V E R A E L E E R R 0 R B I T 

0 b 0' 4- 


t 



q 

7 EOF FLAG BIT (1), 

y b 0 5 





c~ .. 

7 FILLER2 BIT (5), 

0606 





4- 

5 USERFLAGS, 

0607 


4 



c:, 

7 FILLERS BIT (3), 

0 6 0 8 





5“ 

7 CHARACTERIO BIT ID, 

0 6 0 9 


4 



Fi“ 

7 NOUIAITFLAG B IT C 1 ) , 

0610 






7 FILLER 4 B i T I 3 ) , 

0611 





4- 

5 BUFFERADDRESS POINTER, 

0612 





4- 

5 BUFFERLENGTH FIXED (16 

0613 





4- 

5 CHARCOUNT FIXED (16), 

0 b 1 4 


t 



4-^ 

5 P R B R E S E R V E D B I T (32)); 

0615 


t 



b 

3 BSFLAG FIXED (16) ; 

06 1 6 
0617 


t 

t 




PRB EQUATES 

06 1 S 


t 




DISPLACEMENTS : 

0619 

0000 

loop 

EQU 

0 


10 OP CODE 

0620 

0001 

LUNO 

EQU 

1 


LOGICAL UNIT NUMBER 

0621 

0002 

SYSFLG 

EQU 

2 


SYSTEM FLAGS 

0622 

0003 

USEFLG 

EQU 

3 


USER FLAGS 

0623 

0004 

BFADDR 

EQU 

4 


BUFFER ADDRESS 

0624 

0006 

BFLNTH 

EQU 

6 


BUFFER LENGTH 

0625 

0008 

CCOUNT 

EQU 

8 


CHARACTER COUNT 

0626 


t 




FLAG SHIFT COUNTS 

0627 

000F 

UE 

EQU 

16-1 


UNRECOVERABLE ERROR 

0623 

000E 

EOFLG 

EQU 

16-2 


END. OF, FILE FLAG 

0629 

00 0D 

CHRMOD 

EQU 

16-3 


CHARACTER MODE 

0 6 3 0 

000C 

NkIFLG 

EQU 

16-4 


NO WAIT FLAG 

• 0631 



REF 

BSFLG 


BACKSPACE FLAG 

0632 


* 




FLAG SET MASKS 

0633 



REF 

UEMASK 


UNRECOVERABLE ERROR 

0634 



REF 

EFMASK 


END. OF. FILE 

06 35 



REF 

CMDMSK 


CHARACTER MODE 

0636 



REF 

UEFMSK 


UN, ERROR AND EOF FLAG 


c 
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0638 



t 



2-DECLARE PRBPTR POINTER; 

0639 



t 



2-DECLARE DCTPTR POINTER, 

0640 



t 



2-DECLARE (1 DEV I CEC0NTR0LTABLE73 

0641 






3- 3 DCT733 CONTROL f DCTPTR 

0642 






4- 5 CRUBASE FIXED C!.6), 

© 6 4 3 



t 



4- 5 CASSETTECONTROL C2), 

0644 



t 



5- 7 PLAYBACK BIT (1), 

0645 ■ 






5- 7 RECORD BIT (1), 

0646 



t 



5- 7 FILLER10 BIT (6)); 

0647 



t 




0648 






DEVICE CONTROL TABLES 733ASR 

0649 







0650 


0000 

DCTCRU 

EQU 

0 

CRU BASE 

0651 


0002 

CSTCNT 

EQU 

2 

CASSETTE CONTROL ARRAY 

0652 



t 




0653 




EVEN 



0654 



t 




0655 




DEF 

DC7331 

733ASR *1 

0656 

0000 

0000 

DC7331 

DATA 

>0 

(CRU BASE ADDR) 

0657 

0002 

00 


BYTE 

0 

(CASSETTE CONTROL LEFT) 

0658 

0003 

00 


BYTE 

0 

(CASSETTE CONTROL RIGHT) 

0659 




EVEN 
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0661 


t 



2-DECLARE BUFFER (1) CHARACTER 

0662 


t 



2 

CONTROL LEUFFERADDRESS) ; 

0 6 6 ' J 


t 



2-DECL 

ARE PAR Ml 1ST lITliRAl ! Y 

0664 


t 



2 

' P 1? B 1’ TP, D L V T >' P E , U N 1 T N 0 , DC 

0605 


t 



2 - D E C L A R E, i 1 A S P >' 3 3 1 N P U T , 

0666 


t 




3 ASR7331N CRUCONTROL (C 

0667 


t 



4- 

5 INCHAR BIT (8), 

0 6 G 8 


t 



4- 

5 XMTING BIT (1), 

0669 


t 



4~ 

5 ASRID BIT (1), 

0670 


t 



4- 

5 UIF^Q B:IT ( 1 . 

0671 


t 



4- 

5 RRQ BIT (1), 

0672 





4“ 

5 DCD BIT (1), 

0673 


t 



4- 

5 DSR BIT (1), 

0674 





4- 

S INT BIT (D); 

0676 


•■r. 



E-DECLARE (1 ASR7330UTPUT , 

0677 


:=ic 



0 

3 ASR7330UT CRUCONTROL C 

067S 





4- 

5 OUTCHAR BIT CS), 

0679 


t 



4- 

5 FILLER7331 BIT (1), 

0 6 8 0 


4 : 



4- 

5 DTR BIT Cl), 

0681 





4- 

5 RTS BIT CLj, 

068 8 


4; 



4~ 

5 CLRWRQ BIT (1), 

0683 


4 



4- 

5 CLRRRQ BIT (1), 

0 b 8 4 


4 



4- 

5 CLRNSF BIT (D), 

0685 


•4-' 





0686 


t 

' 4 '' 




CRU INTERFACE DEFINITIONS 

t' b 0 
0 6 8 8 

0000 

INCHAR 

EQU 

0 


INPUT CHARACTER 

0689 

0008 

XMTING 

EQU 

8 


TRANSMIT IN PROGRESS 

0 6 9 0 

0009 

TIMERR 

EQU 

9 


TIMING ERROR 

0691 

000A 

ASRID 

EQU 

10 


ASR IDENTIFIER 

0692 

000B 

WRQ 

EQU 

11 


WRITE REQUEST 

0 6 :9 3 

000c 

RRQ 

EQU 

12 


READ REQUEST 

0694 

000D 

DCD 

EQU 

13 


DATA CARRIER DETECT 

0695 

000E 

DSR 

EQU 

14 


DATA SET READY 

0696 

00 0F 

INT 

EQU 

15 


INTERRUPT 

069 7 


4; 





0698 

0000 

OUTCHR 

EQU 

0 


OUTPUT CHARACTER 

0 6 9 

0009 

DTR 

EQU 

9 


DATA TERMINAL READY 

0700 

000A 

RTS 

EQU 

10 


REQUEST TO SEND 

0701 

000B 

CLRWRQ 

EQU 

11 


CLEAR WRITE REQUEST 

0702 

000c 

CLRRRQ 

EQU 

12 


CLEAR READ REQUEST 

0 7 0 3 
0 7 0 4 

000D 

CLRNSF 

.T, 

EQU 

13 


CLEAR HEW STATUS 

0705 

0706 


* 

t 



2-DECLARE MODRCD LITERALLY '"4080"' 

0707 

4080 

MODRCD 

EQU 

>4080 


SET RECORD ON CASSETTE 

0708 


* 



2-DECLARE MODPBK LITERALLY '"8040"' 

0709 

8040 

MODPBK 

EQU 

>8040 


SET PLAYBACK ON CASETTE 

0710 


4: 



2-DECLARE MODBTS BIT (16) INITIAL C 

0711 

0004 C0C0 

MOBBTS 

DATA 

MODRCD+MODPBK 


0712 


4: 



2-DECL 

ARE (1 STATUS, 

0713 


t 



3 “■ 

3 FILLERSTTl BIT (2), 

0714 





b| — 

3 PNTRDY BIT ( 1) , 


c 


tt 733 DEV SERVICE ROUTINES tt 945353-930 1 Sr+' PAGE 0034 


0715 


t 



3- 

3 RCDRDY BIT Cl) 

0716 


t 



3““ 

3 BOE Cl) BIT Cl 

0717 


t 




3 PB:KERR BIT Cl) 

0718 


t 




3 PBKRDY BIT Cl) 

07 1 9 

000D 

RCDRDY 

EQU 

lG-3 



0720 

000B 

BOE 

EQU 

16-5 



0721 

0009 

PBKRDY 

EQU 

16-7 



0722 

0100 

LBYTE 

EQU 

>100 


MOVE LITERAL TO LEFT 

0723 

0003 

DELAY3 

EQU 

3 


DELAY 3 CHARACTERS 

0724 

0725 

00 IB 

DLY27 

t 

EQU 

27 


DELAY 27 CHARACTERS 

0726 

0727 

0050 

MAXCHR 

EQU 

80 


MAX CHARS PER RECORD 

0728 


* 

WORKSPACE 

REGISTER 

DEFINITIONS 

0729 


t 





0730 

0000 

R0 

EQU 

0 



0731 

0001 

R1 

EQU 

1 



0732 

0002 

R2 

EQU 

2 



0733 

0003 

R3 

EQU 

3 



0734 

0004 

R4 

EQU 

4 



0735 

0005 

R5 

EQU 

5 



0736 

0006 

RG 

EQU 

6 



0737 

0007 

R7 

EQU 

7 



0738 

0008 

R8 

EQU 

8 



0739 

0009 

R9 

EQU 

9 



0740 

000 A 

R10 

EQU 

10 



0741 

000B 

Rll 

EQU 

11 



0742 

000C 

R12 

EQU 

12 



0743 

000D 

R13 

EQU 

13 



0744 

000E 

R14 

EQU 

14 



0745 

0746 

000F 

R15 

EQU 

15 
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0749 


* 



2-DECLARE DLE LITERALLY '"10"', 

0750 

0010 

DLE 

EQU 

>10 




0751 


* 



4-DC2 

LITERALLY 

'"12"', 

0753 

0012 

DC2 

EQU 

>12 




0753 


* 



4-DC3 

LITERALLY 

'"13"', 

0754 

0013 

DC3 

EQU 

>13 




0755 


* 



4-DC4 

LITERALLY 

'"14"', 

0756 

0014 

DC4 

EQU 

>14 



' 

0757 


* 



4-CR 

LITERALLY 

' "0D" ' , 

0758 

000D 

CR 

EQU 

>0D 




0759 


* 



4-LF 

LITERALLY 

'"0A"', 

0760 

000A 

LF 

EQU 

>0A 




0761 


* 



4-DEL 

LITERALLY 

r H ~'p II f ^ 

©762 

007F 

DEL 

EQU 

>7F 




0763 


* 



4-SP 

LITERALLY 

f M 20 ‘1 f ^ 

0 764 

0020 

SP 

EQU 

>20 




0765 


* 



4-HT 

LITERALLY 

f .1 0 011 ^ 

0766 

0003 

HT 

EQU 

>09 




0767 


* 



4-ESC 

LITERALLY 

.n ig.i . ^ 

0768 

001B 

ESC 

EQU 

>1B 




0769 


* 



4-BEL 

LITERALLY 

' •» 07" " , 

0770 

0007 

BEL 

EQU 

>07 




0771 


* 



4-FF 

LITERALLY 

.H0C" ^ , 

0772 

000C 

FF 

EQU 

>0C 




0773 


* 



4-ETB 

LITERALLY 

;* n 1 “7 11 f 
J, / f 

0774 

0017 

ETE 

EQU 

>17 




0775 


* 



4-VT 

LITERALLY 

!• U 0g il /• ^ 

0776 

000B 

VT 

EQU 

>0B 




0777 


* 



4-BS 

LITERALLY 

' "08" ' . 

0778 

0008 

BS 

EQU 

>08 




0779 


* 






0780 


* 



2-DECLARE MDID LITERALLY '"80"'; 

0781 

0080 

MDID 

EQU 

>80 




0782 


* 



2-DECLARE REWIND 

LITERALLY '"31"+MDI 

0783 

00B1 

REWIND 

EQU 

' 1 '+MDID 




0784 


* 



4-LOAE 

1 LITERALLY 

' "33"+MDID' , 

0785 

00 B 3 

LOAD 

EQU 

'3'+MDID 




0786 


* 



4-RECORD LITERALLY '"35"+MDID', 

0787 

00B5 

RECORD 

EQU 

'5'+MDID 




0788 


* 



4-PLYBK LITERALLY '"36"+MDID', 

0789 

00B6 

PLYBK 

EQU 

'6'+MDID 




0790 


* 



4-FWDBLK LITERALLY '"37"', 

0791 

0037 

FWDBLK 

EQU 

'7' 




0732 


* 



4-BCKBLK LITERALLY '"38"', 

0793 

0038 

BCKBLK 

EQU 

^8’ 




0794 


* 



4-STATUS LITERALLY '"3C"', 

0795 

003C 

STATUS 

EQU 

/ ^ / 




0796 


* 



4-ENDG 

:RP LITERALLY '"FF"', 

0797 

00FF 

ENDGRP 

EQU 

>FF 




0798 


* 



4-DLYGRP LITERALLY '"FE"'; 

0799 

00FE 

DLYGRP 

EQU 

>FE 
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0802 



t 



2-DECLARE RECORDMODE (7) BIT (8) IN 

0803 



t 



3- (DLYGRP, 60, DLE, DLYGRP, 3, RECOR 

0804 


0006' 

RMODE 

EQU 

$ 

RECORD MODE 

0805 

0006 

FE 


BYTE 

DLYGRP, 60 



0007 

3C 





0806 

0008 

10 


BYTE 

DLE 


0807 

0009 

FE 


BYTE 

DLYGRP, 3 



000A 

03 





0808 

000B 

B5 


BYTE 

RECORD 


0809 

0810 

000C 

FF 

t 

BYTE 

ENDGRP 

2-DECLARE PLYBACKMODE (7) BIT (81 I 

0811 



X 



3- (DLYGRP, 60, DLE, DLYGRP, 3, PLYBK 

0812 


000D' 

PMODE 

EQU 

f 

PLAYBACK MODE 

0813 

000D 

FE 


BYTE 

DLYGRP, 60 



000E 

3C 





0814 

000F 

10 


BYTE 

DLE 


0815 

0010 

FE 


BYTE 

DLYGRP, 3 



0011 

03 





0816 

0012 

B6 


BYTE 

PLYBK 


0817 

0818 

0013 

FF 

t 

BYTE 

ENDGRP 

2-DECLARE READTAPE (5) BIT (81 INIT 

0819 



t 



3- (DLE, DLYGRP, 3, FWDBLK, ENDGRP li 

0820 


0014' 

RTAPE 

EQU 

$ 

BLOCK FORWARD 

0821 

0014 

10 


BYTE 

DLE 


0822 

0015 

FE 


BYTE 

DLYGRP, 3 



0016 

03 





0823 

0017 

37: 


BYTE 

FWDBLK . 


0824 

0825 

0018 

, FF 

t 

BYTE 

ENDGRP 

2-DECLARE UTTAPESTART (41 BIT (81 

0826 



X 



3-(DC2, DLYGRP, 3, ENDGRPl; 

082/' 


0019' 

UlTAPES 

EQU 

S 

BEGIN WRITE TO CASSETTE 

0828 

0019 

12 


BYTE 

DC2 


0829 

001A 

FE 


BYTE 

DLYGRP-3 



00 IB 

03 





0830 

0831 

00 1C 

FF 

t 

BYTE 

ENDGRP 

2-DECLARE WTTAPEEND (9) BIT (81 IN 

0832 



X 



3-(CR, LF, DC4, DLYGRP, 3, DEL, DLYG 

0833 



X 



3-ENDGRPl; 

0834 


001D' 

IaITAPEE 

EQU 

S 

END WRITE TO CASSETTE 

0835 

001D 

0D 


BYTE 

CR 


0836 

001E 

0A 


BYTE 

LF 


0837 

001F 

14 


BYTE 

DC4 


0838 

0020 

FE 


BYTE 

DLYGRP, 3 



0021 

03 





0839 

0022 

7F 


BYTE 

DEL 


0840 

0023 

FE 


BYTE 

DLYGRP, 3 



0024 

03 





0841 

0842 

0025 

FF 

X 

BYTE 

ENDGRP 

2-DECLARE EOFSEQ (41 BIT (81 INITIAL 

0843 

0844: 


0026' 

X 

EOFSEQ 

EQU 

f 

3-(DC3, ENDGRPl; 

0845 

0026 

13 


BYTE 

DC3 


0846 

0027 

FF 


BYTE 

ENDGRP 


0847 




EVEN 
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0848 






2-DECLARE REWINDSEQ (9) BIT (8) INI 

0849 



t 



3- C DLYGRP, 60, DLE, DLYGRP, 3, REWIN 

08S0 



t 



3- DLYGRP, 1S0, ENDGRP) ; 

0851 

0000 



DORG 

0 


0852 


0000 

RWDSEQ 

FQU 

$ 

REWIND CASSETTE 

0853 

0000 

FE 


BYTE 

DLYGRP, 60 



000 1 

3C 





0854 

0002 

10 


BYTE 

DLE 


0855 

0003 

FE 


BYTE 

DLYGRP, 3 



0004 

03 





0856 

0005 

B1 


BYTE 

REIaI I ND 


0857 

0 0 0 6 

FE 


BYTE 

DLYGRP, 180 



0007 

B4 





0858 

0008 

FF 


BYTE 

ENDGRP 


0859 



t 



2-DECLARE LOADSEQ (5) BIT CS) INITI 

0860 



t 



3- (DLE, DLYGRP, 3, LOAD, ENDGRP): 

0 8 b 1 


0009 

LOADSQ 

EQU 

$ 

LOAD TAPE 

0862 

0009 

10 


BYTE 

DLE 


0863 

000A 

FE 


BYTE 

DLYGRP, 3 



000B 

03 





0 S 6 4 

000C 

B3 


BYTE 

LOAD 


0 8 6 5 

0 0 0 D 

FF 


BYTE 

ENDGRP 


0866 



t 



2-DECLARE EACKSPC (7) BIT CS) I NIT I A 

0 8 6 7 



t 



3-CDLE, DLYGRP, 3, BCKBLK, DLYGRP, 4 

0868 


000E 

BKSPC 

EQU 

S 

BLOCK REVERSE 

0869 

000E 

10 


BYTE 

DLE 


0870 

000F 

FE 


BYTE 

DLYGRP, 3 



0010 

03 





0871 

0011 

33 


BYTE 

BCKBLK 


0872 

0012 

FE 


BYTE 

DLYGRP, 48 



0013 

30 

\ 




0873 

0014 

FF 


BYTE 

ENDGRP 


0874 

0028 



RORG 



0875 






2-DECLARE ECHOFF C 4) BIT CS) INI 

0876 



t 



3- CLP, DLYGRP, 3, ENDGRP); 

0877 


0023' 

ECOFF 

EQU 

S 

ECHO FF 

0S7S 

002S 

0A 


BYTE 

LF 


0879 

0029 . 

FE 


BYTE 

DLYGRP, 3 



002 A 

^ 03 





0880 

002B 

FF 


BYTE 

ENDGRP 


0SS1 






2-DECLARE STATUSSEQ CS) BIT (8) INI 

0882 



t . 



3-CDLE, DLYGRP, 3, STATUS, ENDGRP); 

0883 


002C' 

STTSEQ 

EQU 

S 

ASK STATUS 

0884 

002C 

10 


BYTE 

DLE 


0885 

002D 

FE 


BYTE 

DLYGRP, 3 



002E 

03 





0886 

0 0 2 F 

3C 


BYTE 

STATUS 


0887 

0030 

FF 


BYTE 

ENDGRP 


0888 



t 



2-DECLARE ECHOES (7) BIT (8) INITI A 

0889 






3-CBS, DLYGRP, 3, ENDGRP); 

0890 


0031' 

ECOBS 

EQU 

* 

ECHO BS 

0891 

0031 

08 


BYTE 

BS 


0892 

0032 

FE 


BYTE 

DLYGRP, 3 



0033 

03 





0893 

0034 

FF 


BYTE 

ENDGRP 
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0894 



t 



2-DECLARE ECHODEL 

(7) 

BIT CS) 

INITI 

089B 



t 



3-CLF, DLYGRP, 3, 

CR, 

DLYGRP, 

27, EN 

089S 


0035' 

ECODEL 

EQU 

f 

ECHO DEL 




0897 

0035 

0A 


BYTE 

LF 





0898 

003S 

FE 


BYTE 

DLYGRP.3 






0037 

03 








0899 

0038 

0D 


BYTE 

CR 





0900 

0039 

FE 


BYTE 

DLYGRP, 27 






003A 

IB 








0901 

0902 

003B 

FF 

t 

BYTE 

ENDGRP 

2-DECLARE BYTMOD 

(S) 

BIT (8) 

INITIAL 

0903 

0904 


003C ' 

BYTMOD 

EQU 

$ 

3-Cl, 0, 1, 0, 1, 

-1 ) 

1 


0905 

003C 

01 


BYTE 

1,0. 1,0, 1. 

-1 





0 0 3 D 

00 









003E 

01 









003F 

00 









0040 

01 









0041 

FF 









090G 


EVEN 
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0909 



t 

TITLE : 

CSOPEN 



0910 



t 


CASSETTE 

- OPEN 


0911 



% 

REVISION 




0912 



t 


ORIGINAL 



0913 



t 

ABSTRACT 




0914 



t 


CASSETTE 

PLAYBACK/RECORD MODE 

BITS RESET 

0915 




CALLING ; 

SEQUENCE.- 



0916 



* 


STANDARD 

LEVEL ONE LINKAGE. 


0917 






1-PROCEDURE CSOPEN 

(PARMLIST!! 

0918 




DEF 

CSOPEN 



0919 


0042' 

CSOPEN EQU 

$ 



0920 

0042 

C08B 


MOV 

Rll . R2 

SAVE RETURN 

LEVEL ONE 

0921 






2-CALL RSTMOD; 


0922 

0044 

06A0 


BL 

@RSTMOD 




0046 

0448' 






0923 



* 



2-RETURN, 


0924 

0048 

0452 


B 

*R2 



0925 



t 



2-END CSOPEN; 
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092S 



* TITLE: 

CSFWD 


0929 



* 


CASSETTE - 

FORWARD SPACE RECORD 

0930 



* REVISION: 



0931 



* 


ORIGINAL 


0932 


‘ 

* ABSTRACT: 



0933 



* 


THE INDICATED CASSETTE IS FORWARD SPACED BY 

0934 



* 


ISSUING READS UNTIL THE INDICATED NUMBER OF 

0935 



* 


BLOCKS ARE 

SKIPPED OR UNTIL AN END OF FILE 

0936 



* 


IS REACHED 


0937 



* CALLING SEQUENCE: 


0938 



* 


STANDARD LEVEL ONE ROUTINE. 

0939 



* 




0940 



* 



1 -PROCEDURE CSFWD (PARMLIST); 

0941 



* 



2-DECLARE Cl DUMMYSVCBLOCK , 

0942 



* 



3- 3 DMYSVCCODE BIT (S), 

0943 



* 



3- 3 FILLERDMYl BIT (8), 

0944 



* 



3- 3 DMYIOOP BIT (8)- 

0945 



* 



3- 3 DMYLUNO BIT (S). 

0946 



* 



3- 3 DMYSYSFLAGS, 

0947 



* 



4- 5 FILLERDMY2 BIT (2), 

0948 



* 



4- 5 DMYEOFFLAG BIT (1), 

0949 



* 



4- 5 FILLERDMY3 BIT (5), 

0950 



* 



3- 3 DMYUSRFLPiGS BIT (8), 

0951 






3- 3 DMYEFRADDR POINTER, 

0952 



* 



3- 3 DMYBFRLNTH FIXED (16) 

0953 



* 



3- 3 DMYCHRCOUHT FIXED C 16 

0954 



* 



2-DECLARE DMYBUFFER BIT' C8); 

0955 



* 



2-DECLARE READASCII LITERALLY '9'; 

0956 



* 



2-DECLARE lOREQUEST LITERALLY '0'; 

0957 


0009 

RDASCI 

EQU 

9 


0958 



* 



2-DECLARE I FIXED, 

0959 



* 



2-DECLARE WKSP POINTER; 

0960 

0000 



DORG 

0 


0961 




DEF 

CSFWD 


0 y 6 2 


0000 

CSFWD 

EQU 

$ 

CASSETTE - FORWARD SPACE 

0963 

0000 

C08B 


MOV 

R11.R2 


0964 



* 



2-DMYSVCCODE =: lOREQUEST; 

0965 

0002 

04C3 


CLR 

R3 

BUILD DUMMY PRB/SVC 

0966 



* 



2-DMYIOOP = READASCII; 

0967 

0004 

0204 


LI 

R4 /RDASCI 



0006 

0009 





0968 



* 



2-DMYLUNO LUNO; 

0969 

0008 

D12A 


MOVE 

iLUNO(R10) , R4 


000A 

0001 





0970 

000C 

0B84 


SRC 

R4,8 


0971 



* 



2-DMYSYSFLAGS =: 0; 

0972 



* 



2-DMYUSRFLAGS = 0; 

0973 

000E 

04C5 


CLR 

R5 


0974 



* 



2-DMYBFRADDR = ADDR (DMYBUFFER); 

0975 

0010 

02A6 


STWP 

R6 

USE R15 AS DUMMY BUFFER 

0976 

0012 

0226 


AI 

R6,R15*2 



0014 

00 IE 





0977 



* 



2-DMYBFRLNTH =1; 

0978 

0016 

0207 


LI 

R7, 1 
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001 S 

0001 






0979 






I - 

0; 

0980 

001 A 

04 Cl 


CLR 

R1 



0981 






2-CALL 

GETBUF (WKSP); 

0982 

001C 

C24A 


MOV 

R10, R9 


PRESERVE REAL PRB 

0983 




REF 

GETEUF 



0984 

0 0 1 E 

0420 


BLWP 

@GETBUF 




0020 

0000 






0985 



t 



2-DO WHILE I < CHARCOUNT 8. DMYEOF 

0986 


0022 

CF010 

EQU 

s 



0987 

0022 

8A41 


C 

Rl,@CCOUNT 

CR9) 

IF I >= CHARCOUNT 


0024 

0008 






0988 

iTl Q C Q 

©026 

140F 


JHE 

CF020 



V O 1™' O 

0 9 9 0 

0028 

0BE5 

A: 

SRC 

R5, EOFLG 


IF EOF DETECTED 

0991 

002A 

180D 


JOC 

CF020 



0992 



* 



3-CALL 

10 (WKSP); 

0998 




REF 

LWP 


MOVE TO NEW WKSP FOR 10 

0994 

002C 

0420 


BLWP 

@LUIP 




002E 

0000 






0 9 9 5 

0030 

C28D 


MOV/ 

R13. R10 


SET DMY SVC ADDRESS 

0996 

0032 

022A 


AI 

R10.. R3*2 




0034 

0006 






0997 




REF 

10 


CALL 10 TO READ 

0 9 9 S 

0036 

06A0 


BL 

@10 




0038 

0000 






0999 



* 





1000 




REF 

RWP 


BACK TO ORIGINAL WKSP 

1001 

003A 

0420 


BLWP 

@RWP 




003C 

0000 






1002 



* 



3-SYSTEMFLAGS = DMYSYSFLAGS; 

1003 

003E 

DA45 


MOVB 

R5. @SYSFLG(R9) 



0040 

0002 






1004 



* 



3-1 = 

I + 1; 

1005 

0042 

0581 


INC 

R1 



1006 



* 



3-END; 


1007 

0044 

10EE 


JMP 

CF010 



1008 



* 





1009 


0046 

CF020 

EQU 

f 


END . OF . LOOP 

1010 



* 



2-CALL 

RETBUF (WKSP); 

1011 




REF 

RETBUF 



1012 

0046 

0420 


BLWP 

@RETBUF 




0048 

0000 






1013 



* 



2-RETURN; 

1014 

004A 

0452 


B 

*R2 



1015 



* 



2-END 

CSFWD; 

1016 

004A 



RORG 
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1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 
1027 
102S 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 


4 

5f: 

■ 4 - 

1 

t 

t 


TITLE: ^ CSBACK 

CASSETTE - BACKSPACE RECORD 

REVISION.- 

ORIGINAL 

ABSTRACT ■ 

THE INDICATED CASSETTE IS BLOCK REVERSED THE 
NUMBER OF RECORDS INDICATED IN CHARCOUNT . 
CALLING SEQUENCE: 

STANDARD LEVEL ONE LINKAGE. 

1- PROCEDURE CSBACK (PARMLIST); 

2- DECLARE I FIXED; 


0000 



DORG 

0 






DEF 

CSBACK 




0000 

CSBACK 

EQU 

« 



0000 

C08B 

* 

MOV 

Rll , R2 . 

2-CALL 

RETURN SAVE LEVEL ONE 
CHGMOD (PRBPTR, DCTPTR, 

0002 

06A0 


BL 

eCHGMOD 



0004 

0342' 






0006 

8040 

* 

DATA 

MODPBK 

2-DO I 

FROM 1 TO CHARCOUNT; 

0008 

04C6 


CLR 

R6 


INITIALIZE I 

000A 

ClEA 


MOV 

@CCOUNTCR10) , R7 

LOOP MAX 

000C 

000S 

000E 

CSB010 

EQU 

S 



000E 

0586 


INC 

R6 



0010 

81C6 


c 

R6, R7 


IF END. OF. LOOP 

0012 

1504 

* 

JGT 

CSB020 

3-CALL 

CMND (ADDR (BKSPC)); 

0014 

06A0 


BL 

@CMND 



0016 

0396' 






0018 

000E 


DATA 

BKSPC 

3-END; 


001A 

10F9 

CSB020 

JMP 

CSB010 




00 1C 

EQU 

f 





* 



2-RETURN; 

001C 

0452 


B 

;icR2 






004A 


RORG 


2-END CSBACK; 
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CASSETTE 


READ ASCI I 


1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 
1067 
1063 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 


1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 


1101 
1 1 02 


1103 




)}C 

TITLE : 

CSRASC 






CASSETTE - 

READ ASCI 1 




REVISION: 







ORIGINAL 




t 

ABSTRACT: 







CHARACTERS 

ARE TRANSFERRED FROM A CASSETTE 



t 


RECORD TO 

THE BUFFER UNTIL AN END OF RECORD 



t 


SITUATION 

IS ENCOUNTERED, IE: 



X 


- BUFFER LENGTH IS EXHAUSTED. ADDITIONAL 



:t; 


CHARACTERS ON THE PHYSICAL RECORD ARE 



t 


IGNORED . 



t 


- A CR 

IS DETECTED 





- A DC 

3 AS THE FIRST VALID CHARACTER IS 



t 


DETECTED . 



t 

CALLING SEQUENCE: 




X 


STANDARD LEVEL ONE ROUTINE 






1 -PROCEDURE CSRASC (PARMLIST); 






2-DECLARE CHAR BIT (8); 



t 



2-DECLARE I FIXED; /Y CHARACTER CUR 




DEF 

CSRASC 



004A' 

CSRASC EQU 

f 

CASSETTE - READ ASCII 

004A 

C03B 


MOV 

Rll -R2 

SAVE RETURN LEVEL ONE 



t 



2-CALL CHGMOD (PR£;RTR, DCTPTR, MOD 

004C 

06A0 


BL 

iCHGMOD 

ASSURE PLAYBACK MODE 

004E 

0342' 





0050 

8040 


DATA 

MODPBK 




t 



2-CALL STTCHR (CHAR); GET STATU 

0052 

06A0 


BL 

0STTCHR 


0 054 

0386' 







t 



2- IF PBKRDY = 0 THEN DO; 

0056 

0B99 


SRC 

R9, PBKRDY 

IF PBKRDY READY 

0058 

1804 


JOC 

CSR005 




* 



3-UNRECOVERABLEERROR = 1; 

005A 

FAA0 


SOCB 

@UEMASK,@SYSFLG(R10) 

005C 

0000 





0 0 5 E 

0002 







* 



3-RETURN; 

0060 

0452 


B 

YR2 







3-END; 


0062' 

CSR005 EQU 

S 




X 



2-1=0; 

0062 

04C6 


CLR 

R6 

INITIALIZE CURSOR 



)K 



2-CALL CMND (ADDR (RTAPE)); 

0064 

06 A0 


BL 

0CMND 

BLOCK FORWARD 

0066 

0396 ' 





0068 

0014 ' 


DATA 

RTAPE 







2-CALL RCVCHR (CHAR, WAIT); 

006 A 

04C9 


CLR 

R9 

WAIT FOR CHARACTER 

006C 

06A0 


BL 

0RCVCHR 


006E 

0412' 







t 



2- IF CHAR = LF THEN CALL RCVCHR (CHA 

0070 

0289 


Cl 

R9,LFYLBYTE IF CHAR . NE . LF 

0072 

0A00 





0074 

1603 


JNE 

CSR010 
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1104 

0076 

04C9 


CLR 

R9 

IGNORE LF, GET NEXT CHAR 


1105 

0078 

06A0 


BL 

(3RCVCHR 




, 007A 

0412' 






110S 


007C' 

CSR010 

EQU , 

f 



1107 



t 


2-IF 

CHAR = DEL THEN CALL RCVCHR 

(CH 

110S 

007C 

0289 


Cl 

R9-DEUICLBYTE 

IF CHAR . NE . DEL 



007E 

7F00 






1109 

0080 

1603 


JNE 

CSR020 



1110 

0082 

04 C 9 


CLR 

R9 

IGNORE DEL, GET NEXT CHAR 


11 1 1 

00S4 

06 A0 


BL 

@RCVCHR 




0086 

0412' 






1112 


0088' 

CSR020 

EQU 

ff. 



1 113 



t 


2-DO 

WHILE CHAR ,NE. CR 8,. I < BUFFER 

1114 



t 


2- 

&. EOFFLAG = 0; 


1115' 


0033' 

CSR100 

EQU 

f 



1116 

0088 

0289 


C I 

R9,CR4LBYTE 

IF CHAR = CR 



00SA 

0D00 






1117 

00 SC 

1336 


JEQ 

CSR500 



1118 

00 8 E 

SAS6 


C 

R6.@BFLNTH(R10) 

IF I >=: BUFFER LENGTH 



0090 

0006 






1119 

0092 

1433 


JHE 

CSR500 



1120 

0094 

D06A 


MOVE 

@SYSFLG(R10) . R1 

IF EOF FLAG . NE , 0 



0096 

0002 






1121 

0098 

0BE1 


SRC 

R1 , EOFLG 



1122 

00 9 A 

182F 


■JOC 

CSR500 



1123 





3-IF 

CHAR = ETB: THEN CHAR = CR; 


1124 

00 9 C 

0283 


Cl 

R9, ETB4:LBYTE 

IF CHAR .NE. ETB 



009E 

1700 



CSRll^ 



1125 

00A0 

1602 


JNE 



112G 

00A2 

0209 


LI 

R9,CR:^LBYTE 

TRANSFORM ETB TO CR 



00A4 

0D00 






1127 


00A6' 

CSR110 

EQU 

$ 



1128 



t 


3-IF 

CHAR >= SP .OR. 


1129 



t 


3- 

(CHAR >= BEL 8,. CHAR <= HT) . 

OR. 

1130 



t 


3- 

CHAR = FF .OR. CHAR. = CR 


1131 

00A6 

0289 


Cl 

R9,SPYLBYTE 

IF CHAR >= SP 



00 AS 

2000 






1132 

00 A A 

140D 


JHE 

CSR130 



1133 

00 AC 

0289 


Cl 

R9,BEL*LEYTE 

IF BEL <- CHAR <= HT 



00AE 

0700 






1134 

00B0 

1109 


JLT 

CSR120 



1135 

00B2 

0289 


Cl 

R9. HTYLBYTE 




00B4 

0900 






1136 

00B6 

1207 


JLE 

CSR130 



1137 

00B8 

0289 


Cl 

R9. FF4:LBYTE 

IF CHAR = FF 



00 BA 

0C00 






1138 

00BC 

1304 


JEQ 

CSR130 



1139 

00BE 

0289 


Cl 

R9,CRYLBYTE 

IF CHAR = CR 



00C0 

0D00 






1140 

00C2 

1301 


JEQ 

CSR130 



1141 


00C4' 

CSR120 

EQU 




1142 

00C4 

1004 


JMP 

CSR140 



1143 



t 


4-THEN DO; 


1144 


00C6' 

CSR130 

EQU 

S 



1145 



t 


5-CALL PUTCHR (CHAR, I); 
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1146 

00C6 

C206 


MOV 

R6, RS 



1147 

00CS 

06A0 


BL 

iPUTCHR 




00CA 

043A' 






1143 



% 



5-1 = 

I + 1; 

1149 

00CC 

0586 


INC 

R6 



1150 



t 



5-END; 


1151 


00CE' 

CSR140 

EQU 

S 



1152 



t 



3- IF CHAR - DCS 

1153 

00CE 

0289 


Cl 

R9. DC3*LBYTE 

IF CHAR .NE. DCS 


0 0 D 0 

1300 






1154 

00D2 

160F 


JNE 

CSR170 



1155 



t 



4-THEN 

DO; 

1156 



t 



5-IF I 

= 0 THEN EOFFLAG = 1; 

1157 

0 0 D 4 

Cl 86 


MOV 

R6, R6 


IF I ,NE. 0 

1158 

00D6 

1603 


JNE 

CSR150 



1159 

00D8 

FAA0 


SOCB 

SEFMASK, 

, @SYSFLG(R10) SET EOF FLAG 


©0DA 

0000 







00DC 

0002 






1160 


00DE' 

CSR150 

EQU 

i 



1161 



t 



5-CALL 

RCVCHR (CHAR, WAIT); 

1162 

00DE 

04C9 


CLR 

R9 


GET CHAR AFTER DCS 

1163 

00E0 

0 6 A 0 


BL 

SRCVCHR 




00E2 

0412' 






1164 



t 



5-IF C 

HAR .NE CR 

1165 






7-THEN 

CALL CMND (ADDR (RTAPE)); 

1166 

00E4 

0289 


Cl 

R9, CR*LBYTE 

IF CHAR = CR 


00E6 

0 D 0 0 






1167 

00ES 

1303 


JEQ 

CSR160 



1168 

00EA 

06A0 


BL 

@CMHD 


GET REST OF BLOCK 


00EC 

0396' 






1169 

00EE 

0014' 


DATA 

RTAPE 



1170 


00F0' 

CSR160 

EQU 

* 



1171 



t 



5-END; 


1172 

00F0 

1003 


JMP 

CSR1S0 



1173 



X 



4-ELSE 

CALL RCVCHR (CHAR, WAIT)*; 

1174 


00F2' 

CSR170 

EQU 

f 



1175 

00F2 

04C9 


CLR 

R9 



1176 

00F4 

06A0 


BL 

@RCVCHR 




0 0 h 6 

0412' 






1177 


00F8' 

CSR180 

EQU 

S 



1178 



t 



3-END; 


1179 

00F8 

10C7 


JMP 

CSR100 



1180 



% 





1181 


00FA' 

CSR500 

EQU 

« 



1182 



t 



2-DO WHILE CHAR . NE . CR; 

1183 

00FA 

0289 


Cl 

R9. CR*LBYTE 

IF CHAR = CR 


00FC 

0D00 






1184 

00FE 

1304 


JEQ 

CSR600 



1185 



t 



3-CALL 

RCVCHR (CHAR, WAIT); 

1186 

0100 

04C9 


CLR 

R9 



1187 

0102 

06A0 


BL 

SRCVCHR 




0104 

0412' 






1188 



t 



3-END; 


1189 

0106 

10F9 


JMP 

CSR500 




1190 % 


CASSETTE 


READ ASCI I 
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1131 


0108' 

CSR600 

EQU 


1192 



t 


2-CHARCOUNT = I ; 

1193 

0108 

CA86 


MOV 

R6.@CCOUNT(R10) 


010A 

0008 




1194 



t 


2-RETURN; 

1195 

010C 

0452 


B 

:iiR2 

1196 



t 


2-END CSRASC 
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1199 



* 

TITLE : 

CSWASC 


1200 



* 


CASSETTE 

- WRITE ASCI I 

1201 



* 

REVISION: 



1202 



* 


ORIGINAL 


1203 



* 

ABSTRACT : 



1284 



* 


A RECORD 

OF 80 OR LESS CHARACTERS IS 

1205 



* 


TRANSFERRED TO THE INDICATED CASSETTE. 

1206 



* 

CALLING SEQUENCE: 


1207 



* 


STANDARD 

LEVEL ONE LINKAGE 

1208 



* 



1-PROCEDURE CSWASC (PARMLIST); 

1209 



* 



2-DECLARE I FIXED, 

1210 



* 



2-DECLARE CHAR BIT ( 8 ) ; 

1211 




DEF 

CSWASC 


1212 


010E' 

CSUASC EQU 

$ 

CASSETTE - WRITE ASCII 

1213 

010E 

C0SB 


MOV 

Rll , R2 

SAVE RETURN - LEVEL ONE 

1214 



* 



2-CALL CHGMOD (PRBPTR, DCTPTR, MOD 

1215 

0110 

06 A0 


BL 

@CHGMOD 

ASSURE RECORD MODE 


0112 

0342' 





1216 

0114 

4080 


DATA 

MODRCD 


1217 



* 



2-CALL STTCHR (CHAR) /*GET STATUS 

1218 

0116 

06A0 


BL 

eSTTCHR 



0118 

0386' 





1219 

01 lA 

0BD9 


SRC 

R9, RCDRDY 


1220 



* 



2- IF RCDRDY = 0 THEN DO, 

1221 

01 1C 

1304 


JOC 

CW005 


1222 



* 



3-UNRECOVERABLE ERROR = 1; 

1223 

01 IE 

FAA0 


SOCB 

SUEMASK, @SYSFLG( R10) 


0120 

005C ' 






0122 

0002 





1224 



* 



3-RETURN; 

1225 

0124 

0452 


B 

*R2 


1226 



* 



3-END; 

1227 


0126' 

CW005 EQU 

S 


1228 






2-CALL CMND (ADDR (WTAPES)); 

1229 

0126 

06A0 


BL 

@CMND 



0128 

0396' 





1230 

012A 

0019' 


DATA 

WTAPES 


1231 



* 



2-DO I FROM 0 TO MIN C CHARCOUNT-1 . 

1232 

01 EC 

04C6 


CLR 

R6 

INITIALIZE I 

1233 

012E 

ClEA 


MOV 

@CCOUNT(R10) , R7 COMPUTE LIMIT VALUE 


0130 

0008 





1234 

0132 

0287 


Cl 

R7, MAXCHR 



0134 

0050 





1235 

0136 

1202 


JLE 

CW010 


1236 

0138 

0207 


LI 

R7, MAXCHR 



013A 

0050 





1237 


013C' 

CU010 EQU 

» 


1238 

013C 

81C6 


c 

R6.R7 

IF END. OF. LOOP 

1239 

013E 

141D 


JHE 

CW100 


1240 



* 



3-CALL GETCHR (CHAR, I) 

1241 

0140 

C206 


MOV 

R6, R8 


1242 

0142 

06 A0 


BL 

SGETCHR 



0144 

042C' 






1243 


* 


3-IF CHAR = CR THEN CHAR = ETB; 
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1344 

0146 

0289 


Cl 

R9,CR*LBYTE 


0148 

0D00 




1245 

0 1 4 A 

1602 


JNE 

CW020 

124b 

014C 

0209 


LI 

R9.ETBYLBYTE 


014E 

1 706 




1247 


0150' 

CW020 

EQU 

$ 

1243 



t 


3- IF CHAR >= SP .OR. (CHAR >= BEL &. 

1249 



t 


4-. OR. CHAR = FF .OR. CHAR = ETB 

1250 

0150 

0289 


Cl 

R9,SPY:LBYTE IF CHAR NOT IN SET 


0152 

2000 




1251 

0154 

140D 


■JHE 

LL20 

1252 

0156 

0289 


Cl 

R9,FFYLBYTE 


0158 

0C00 




1253 

015A 

130A 


JEQ 

LL20 

1254 

015C 

0289 


Cl 

R3, ETBSJLBYTE 


015E 

1700 




1255 

0160 

1307 


JEQ 

LL20 

1256 

0162 

0289 


Cl 

R9,LFYLBYTE 


0 1 S 4 

0A00 




1257 

0 1 5 b 

1503 


JGT 

LL18 

1258 

0163 

0289 


Cl 

R9, BEL*LBYTE 


016A 

0700 




1259 • 

016C 

1401 


JHE 

LL20 

1260 


016E' 

LL18 

EQU 


1261 

01GE 

1003 


JMP 

CW030 

1262 


0170' 

LL20 

EQU 


1263 



t 


4-THEN CALL SNDCHR (CHAR, 0); 

1264 

0170 

06A0 


BL 

@,SNDCHR (f^; 


0172 

03DA' 




1265 

0174 

0000 


DATA 

0 

1266 



t 


3-END; 

1267 


0176' 

CW030 

EQU 

f 

1268 

0176 

0586 


INC 

R6 

1269 

0178 

10E1 


JMP 

CW010 

1270 


017A' 

CW100 

EQU 

% 

1271 



* 


2-CALL DELAY (CCOUNT) 

1272 

017A 

0208 


LI 

R8, 32-11 


017C 

0015 




1273 

017E 

G22A 


w- 

@CCOUNT(R10) , R8 


0180 

0003 




1274 

0182 

06 A0 


BL 

©DLYCHR 


0184 

03FC' 




1275 





2-CALL CMND (ADDR (WTAPEE)l; 

1276 

0186 

06A0 


BL 

©CMND WRITE END OF RECORD SEQUENCE 


0188 

0396' 




1277 

018A 

001D' 


DATA 

WTAPEE 

1278 



t 


2-RETURN; 

1279 

018C 

0452 


B 

YR2 

1280 





2-END CSWASC; 


c 



CASSETTE 

1283 

1284 

1285 

1286 


- WRITE END. OF. FILE 945353-9901** 
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'k T ^ T 1 F • C S Iv! EOF 

* CASSETTE “ WRITE END OF FILE 

* REVISION: 

•:*; original 

t ABSTRACT’ 


X CALLING SEQUENCE: 


1 2 1 





STANDARD 

LEVEL ONE ROUTINE 

1292 



t 




1293 



t 



1 -PROCEDURE CSklEOF (PARMLIST 

1294 




DEF 

CSWEOF 


1295 


018E^ 

CSUEOF 

EQU 

f 

CASSETTE - WRITE EOF 

1296 

018E 

C08B 


MOV 

Rll , R2 

LEVEL ONE RETURN SAVE 

1297 






2-CALL CHGMOD (MODRCD); 

1298 

0190 

06A0 


BL 

SCHGMOD 

ASSURE RECORD MODE 


0192 

0342' 





1299 

0194 

4080 


DATA 

MODRCD 


1300 



* 



2-CALL CMND CADDR CWTAPES)); 

1301 

0196 

06A0 


BL 

(5CMND 



0198 

0396' 





1302 

019A 

0019' 


DATA 

U TAPES 


1303 






2-CALL CMND CADDR (EOFSEQ)); 

1304 

019C 

0 6 A 0 


BL 

@CMND 



019E 

0396' 





1305 

01 A0 

0026 ' 


DATA 

EOFSEQ 


1306 






2-CALL CMND (ADDR (WTAPEE)); 

1307 

01A2 

06A0 


BL 

@CMND 



01A4 

0396' 





1308 

01 A6 

001D' 


DATA 

WTAPEE 


1309 



t 



2-RETURN; 

1310 

01A8 

0452 


B 

*R2 


1311 



t 



2-END CSWEOF; 
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1314 



t 

TITLE: 

CSRWND 

1315 



t 


CASSETTE 

131G 



t 

REVISION: 


1317 



t 


ORIGINAL 

1318 



t 

ABSTRACT: 


1319 



t 


THE INDI 

1320 





LOADED. 

1321 




CALLING SEQUENCE: 

1322 



* 


STANDARD 

1323 






1324 






1325 






1326 




DEF 

CSRWND 

1327 

0000 



DORG 

0 

1328 


0000 

CSRWND EQU 

f 

1329 

0000 

C08B 


MOV 

R11>R2 

1330 



t 



1331 

0002 

06A0 


BL 

@RSTMOD 


0004 

0448 ' 




1332 



t 



1333 

0006 

0 6 A 0 


BL 

@CMND 


0008 

0396' 




1334 

000A 

0000 


DATA 

RWDSEQ 

1335 



t 



1336 



t 



1337 


000C 

CRWD10 EQU 

S 

1338 



* 



1339 

000C 

06A0 


BL 

iSTTCHR 


000E 

0386' 




1340 






1341 

0010 

C02D 


MOV 

@R8;tJ2CRl 


0012 

0010 




1342 

0014 

0240 


ANDI 

R0 . 1 


0016 

0001 




1343 

0018 

0220 


AI 

R0.BOE 


001 A 

00 0B 




1344 

00 1C 

0B03 


SRC 

R9.0 

1345 



* 



1346 

00 IE 

17F6 


JNC 

CRWD10 

1347 






1348 



t 



1349 

0020 

06A0 


BL 

iCHGMOD 


0022 

0342' 




1350 

0024 

8040 


DATA 

MODPBK 

1351 



t 



1352 

0026 

06A0 


BL 

@CMND 


0028 

0396' 




1353 

002A 

0009 


DATA 

LOADSQ 

1354 



t 



1355 






1356 


002C 

CRWD20 EQU 

f 

1357 






1358 

002C 

0 6 A 0 


BL 

0STTCHR 


002E 

0386' 





- REWIND TO LOAD POINT 

GATED CASSETTE IS REWOUND AND THEN 

LEVEL ONE LINKAGE. 

1 - PROCEDURE CSRWND (PARMLIST); 

2- DECLARE I BIT Cl); 

CASSETTE - REWIND 

2-CALL RSTMOD; 

FORCE MODE CHANGE NEXT TIME 

2-CALL CMND CADDR (RWDSEQ)); 

2-1 = 0 ; 

2- DO WHILE 1=0; 

3- CALL STTCHR (STATUS); 

3-1 = BOE CABS (MOD (DRIVEID, 2) - 
3) ,R0 . DRIVE ID MODULO 2 

SHIFT COUNT TO BOE FOR DRIVE 

3-END; 

IF NOT BOE 

2-CALL CHGMOD (PRBPTR, DCTPTR, MOD 
2-CALL CMND ( ADDR ( LOADSQ ) ) ; 

2-1 = 0 ; 

2- DO WHILE 1=0; 

3- CALL STTCHR (STATUS) ; 
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1359 

1360 

0030 

0B99 

1361 

1362 

0032 

17FC 

1363 

1364 

1365 

0034 

0452 

1366 

1367 

01AA 



SRC R9.PBKRDY 
JNC CRWD20 

B *R2 


3-1 = PBKRDY 
3-END; 

2-RETURN; 


RORG 


2-END CSRWND; 



CASSETTE - UNLOAD 


345353-9901** 
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1370 



* 

TITLE: 

CSUNLD 



1371 



* 


CASSETTE 

- UNLOAD 


1372 



* 

REVISION: 




1373 



* 


ORIGINAL 



1374 



* 

ABSTRACT : 




1375 



* 


THE INDICATED CASSETTE IS REWOUND TO CLEAR 

1376 



* 


LEADER. 



1377 



* 

CALLING SEQUENCE: 



1378 



* 


STANDARD 

LEVEL ONE SEQUENCE. 


1379 



* 





1380 



* 



1-PROCEDURE CSUNLD (PARMLIST), 


1381 



* 



2-DECLARE I BIT Cl); 


1382 




DEF 

CSUNLD 



1383 

0000 



DORG 

0 



1384 


0000 

CSUNLD EQU 

% 

CASSETTE - UNLOAD 


1385 

0000 

C08B 


MOV 

Rll - R2 



1386 



* 



2-CALL RSTMOD; 


1387 

0002 

06A0 


BL 

SRSTMOD 

FORCE MODE CHANGE 



0004 

0448 






1388 



* 



2-CALL CMND (ADDR (RWDSEQ)); 


1389 

0006 

06A0 


BL 

@CMND 




0008 

0396 






1330 

000 A 

0000 


DATA 

RIaIDSEQ 



1391 



* 



2-1 = 0; 


1392 



* 



2-DO WHILE I := 0; 


1393 


000C 

CUNL10 EQU 

% 



1394 



* 



3-CALL STTCHR (STATUS); 


1395 

000C 

06A0 


BL 

eSTTCHR 




000E 

0386' 

f 





1396 



* 



3-1 = BOE CABS (MOD (DRIVEID, 

2) 

1397 

0010 

C02D 


MOV 

@R8*2(R13) ,R0 DRIVE ID MODULO 2 



0012 

0010 






1398 

0014. 

0240 


ANDI 

R0, 1 




0016 

0001 






1399 

0018 

0220 


AI 

R0, BOE 

SHIFT COUNT TO BOE FOR 

DR 


001 A 

000B 






1400 

00 1 C 

0B09 


SRC 

R9,0 



1401 

00 IE 

17F6 


JNC 

CUNL10 



1402 



* 





1403 



* 



2-RETURN; 


1404 

0020 

0452 


B 

*R2 



1405 



* 



2-END CSUNLD; 


1406 

01AA 



RORG 






LOG 


READ ASCI I 
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1409 



TITLE: 

LGRASC 

1410 




LOG - READ ASCII 

1411 



REVISION: 


1412 



% 

ORIGINAL 

1413 



)f^ ABSTRACT: 


1414 




CHARACTERS ARE TRANSFERRED FROM THE 733ASR 

1415 




KEYBOARD TO THE USER'S BUFFER UNTIL: 

1416 




- THE DESIRED NUMBER OF CHARACTERS HAVE 

1417 




BEEN TRANSFERRED, 

1418 



Jt-: 

- A CARRIAGE RETURN (END OF RECORD) IS 

1419 




DETECTED, OR 

1420 




- A DC3 IS THE FIRST CHARACTER DETECTED 

1421 




(END OF FILE CONDITION). 

1422 



* CALLING SEQUENCE: 

1423 



* 

STANDARD LEVEL ONE SEQUENCE, 

1424 



* 


1425 



* 

l-PROCEDURE LGRASC (PARMLIST); 

1426 



* 

2-DECLARE I FIXED CIG); 

1427 



* 

2-DECLARE CHAR BIT (8); 

1428 



DEF 

LGRASC 

1429 


01AA' 

LGRASC EQU 

f 

1430 

01AA 

C08B 

MOV 

R11,R2 SAVE RETURN-LEVEL ONE 

1431 



* 

2-1 = 0; 

1432 

01AC 

04 C6 

CLR 

R6 

1433 



* 

2-DO WHILE EOFFLAG = 0 & I < BUFFER 

1434 



* 

2- & UNRECOVERABLEERROR = 0; 

1435 



* 


1436 


01AE' 

LR010 EQU 

% 

1437 

01AE 

D06A 

MOVE 

®SYSFLG(R10) , R1 ISOLATE SYSTEM FLAGS 


01B0 

0002 



1438 

01B2 

0BE1 

SRC 

Rl,EOFLG IF END. OF. FILE 

1439 

01B4 

1839 

JOC 

LR028 

1440 


0001 

E0F2UE EQU 

UE-EOFLG 

1441 

0 1 B 6 

0B11 

SRC 

R1,E0F2UE IF UNRECOVERABLE ERROR 

1442 

01B8 

1 8 3 y 

JOC 

LR028 

1443 

01BA 

8AS6 

c 

R6, @BFLNTH(R10) IF I >~ BUFFER LENGTH 


01BC 

0006 



1444 

01 BE 

1434 

JHE 

LR028 

1445 



* 

3- IF NOkIAITFLAG=0 THEN 

1446 

01C0 

D06A 

MOVB 

®USEFLG(R10) , R1 


01C2 

0003 



1447 

01C4 

0BC1 

SRC 

R1 , NWFLG 

1448 

01C6 

1804 

JOC 

LR013 

1449 



* 

4-CALL RCVCHR (CHAR, WAIT) ; 

1450 

01CS 

04C9 

CLR 

R9 WAIT FOR CHARACTER, 

1451 

01CA 

06A0 

BL 

SRCVCHR 


01CC 

0412' 



1452 

01CE 

1003 

JMP 

LR014 

1453 



* 

3-ELSE CALL RC VCHR C CHAR , NOWA I T ) : 

1454 


01D0' 

LR013 EQU 

S 

1455 

01D0 

0703 

SETO 

R3 

1456 

01D2 

06 A0 

BL 

©RCVCHR 


01D4 

0412' 



1457 


01D6' 

LR014 EQU 

i 
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1458 


* 



3- IF NOl'JAITFLAG=l & CHAR = 0 THEN RE 

1459 

01D6 

D06A 

MOVE 

@USEFLG(R10:< .R1 


01D8 

0003 




14S0 

01 DA 

0BC1 

SRC 

Rl.NWFLG 


1461 

01 DC 

1703 

JNC 

LR017 


1462 

01DE 

C249 

MOV 

R9. R9 

IF NO CHAR RETURNED 

1 4 6 :3 

0 1 E 0 

1601 

JNE 

LR017 


1464 

01E2 

0452 

B 

*Fv2 

RETURN 

1465 


01E4' LR017 

EQU 

f 


1466 


* 



3- IF CHAR NE BS THEN BSFLAG = 0; 

1467 

01E4 

0289 

Cl 

R9,BS*LBYTE 


01E6 

0800 




1468 

01ES 

1302 

JEQ 

LR018 

4 

1469 

01EA 

04E0 

CLR 

@BSFLG 



01 EC 

0000 




1470 


01EE' LR018 

EQU 

f. 


1471 





3- IF CHAR >= SP & CHAR < DEL THEN 

1472 

01 EE 

028:9 

Cl 

R9, SP*LBYTE 

IF CHAR < SP 


01F0 

2000 




1473 

01F2 

110B 

JLT 

LR020 


1474 

01F4 

0289 

Cl 

R9,DEL*LBYTE IF CHAR = DEL 


0 1 F 6 

7F00 




1475 

01F8 

1408 

JHE 

LR020 


1476 


* 



4-CALL SNDCHR ( CHAR , DELAYS ) ; 

1477 

01FA 

0GA0 

BL 

©SNDCHR 

ECHO CHARACTER 


01FC 

03DA' 




1478 

01FE 

0003 

DATA 

DELAYS 


1479 


* 



4-CALL PUTCHR (CHAR, I); 

1480 

0200 

C 2 0 6 

MOV 

R6, R8 

PLACE IN USERS BUFFER 

1481 

0202 

06A0 

BL 

gPUTCHR 



0204 

043A' 




1482 





4-1 = I + 1; 

1483 

0206 

0586 

INC 

R6 


14:34 


* 



4-END; 

14:35 

0208 

1058 

JMP 

LR200 


1436 


* 




14:37 


* 



3-ELSE IF CHAR = DEL THEN DO; 

14:38 


020A' LR020 

EQU 

f 


1489 

020A 

1 60F 

JNE 

LR030 

IF CHAR ,NE, DEL 

1490 





4- IF CHARACTER 10 = 1 

1491 





5-THEN DO; 

1492 

020C 

D06A 

MOVE 

@USEFLG(R10) - R1 IF NOT CHARACTER MODE 


820E 

0003 




1493 

0210 

0BD1 

SRC 

R1 > CHRMOD 


1494 

0212 

1705 

JNC 

LR023 


1495 


* 



6-CALL PUTCHR (CHAR, I); 

1496 

0214 

C206 

MOV 

R 6 - R 8 


1497 

0216 

0GA0 

BL 

SPUTCHR 

PLACE DEL IN BUFFER 


0218 

043A' 




1498 


* 



6-1 = I +1; 

1499 

021 A 

0586 

INC 

R6 


1500 


* 



G-END; 

1501 

02 1C 

1001 

JMP 

LR026 


1502 


* 




1503 


021E' LR023 

EQU 

f 




LOG - READ ASCII 945353-9901*)k PAGE 0055 


1504 



% 


ELSE 1=0; 



1505 

1506 

021E 

04C6 

t 

CLR 

R6 



1507 


0220 ' 

LR02S 

EGU 

* 



1508 

1509 

0220 

06A0 

t 

BL 

@CMND 

4 -C0L L 

CM’iP irUil'IO i: > > ,■ 


0222 

0396' 






1510 

0224 

0035' 


DATA 

ECODEL 



1511 

1512 

0226 

1049 

t 

JMP 

LR200 

4-END; 


1513 


0228' 

LR028 

EQU 

f 



1514 

1515 

0228 

104 A 

t 

JMP 

LR900 


INTERMEDIATE JUMP 

1516 

1517 


022A' 

% 

LR030 

EQU 

» 

3-ELSE 

IF CHAR = BS THEN DO; 

1518 

022A 

0289 


Cl 

R9,BS;KLBYTE 

IF CHAR ,NE. BS 


022C 

0800 






1519 

022E 

1619 


JNE 

LR040 



1520 



t 



4- IF CHARACTER 10 = 1 THEN DO 

1521 

0230 

D06A 


MOVE 

@USEFLG(R10;i ,R1 

IF NOT CHARACTER MODE 


0232 

0003 






1522 

0234 

0BD1 


SRC 

R1 , CHRMOD 



1523 

1524 

0236 

1704 

t 

JMC 

LR035 

5-CALL 

PUTCHR (CHAR, I); 

1525 

0238 

C206 


MOV 

R6. RS 


PUT BS IN BUFFER 

1 526 

0;23A 

06 A0 


BL 

@PUTCHR 




023C 

043 A' 






1527 

1528 

023E 

05 C 6 

t 

INCT 

R6 

5-1 = 

I 4- 2; 

1529 

1530 


0240 ' 

t 

LR035 

EQU 

« 

5-END; 


1531 

1532 

0240 

0606 

t 

DEC 

RS 

4-1 = 

MAX C i: - 1. 0); 

1533 

0242 

1501 


JGT 

LL4 



1534 

0244 

04C6 


CLR 

Rb 



1535 


0246 ' 

LL4 

EQU 

f 



1536 

1537 

0246 

06 A 0 

t 

BL 

@CMND 

4-CALL 

CMND (ADDR (ECOBS)); 


0248 

0396 ' 






1538 

02 4 A 

0031 ' 


DATA 

ECOBS 



1539 



t 



4-IF BSFLAG EQ 0 THEN DO. 

1540 

024C 

C220 


MOV 

@BSFLG,R8 




024E 

01EC' 






1541 

0250 

1607 


JNE 

LR038 



1542 



t 



5- BSFLAG = -1; 

1543 

0252 

0720 


SETO 

SBSFLG 




0254 

024E' 






1544 



t 



5-CALL 

SNDCHR (LF, DELAYS); 

1545 

0256 

0209 


LI 

R9, LFYLBYTE 

4 


0258 

0A00 






1546 

0 2 5 A 

06A0 


BL 

0SNDCHR 




025 C 

03DA' 






1547 

1548 

025E 

0003 

t 

DATA 

DELAYS 

5-END 


1549 


0260' 

LR038 

EQU 

f 





LOG - 

READ 1 

ASCI I 



345353-9901** PAGE 0056 


1550 



t 


4-END; 


1551 

0260 

102C 


JMP 

LR200 


155 ? 



t 




1553 



t 


3-ELSE IF CHAR = HT THEN 

DO; 

1554 


0262' 

LR040 

EQU 

i 


1555 

0262 

0289 


Cl 

R9,HT*LBYTE IF CHAR . NE . HT 



0264 

0900 





1556 

0266 

160A 


JNE 

LR050 


1557 



t 


4-CALL PUTCHR CCHAR, I); 


1558 

0268 

C206 


MOV 

R6-R8 HT IN BUFFER 


1559 

0266 

06A0 


BL 

SPUTCHR 



02 6 C 

043 A' 





1560 



t 


4-CALL SNDCHR C' DELAYS); 

1561 

026E 

0209 


LI 

R9.SP*LBYTE SP TO PRINTER 



0270 

2000 





1562 

0272 

06 A 0 


BL 

©SNDCHR 



0274 

03DA' 





1 5 6 3 

0276 

0 0 0 3 


DATA 

DELAY3 


1564 



t 


4-1=1+ 1; 


1565 

0278 

0586 


INC 

R6 


1566 



t 


4-END; 


1567 

0 E 7 A 

101F 


JI4P 

LR200 


1568 



t 




1569 





3-ELSE IF CHAR = DC3 & I 

= 0 THEN EO 

1570 


027C' 

LR050 

EQU 

f 


1571 

027 G 

0289 


Cl 

R3,DC3*LBYTE IF CHAR . NE , DC3 



02 7 E 

1300- 





1572 

0280 

1606 


JNE 

LR060 


1573 

0 2 8 2 

C186 


MOV 

R6.R6 IF I .NE. 0 


1574 

0284 

1604 


JNE 

LR060 


1575 



t 




1576 

0286 

FAA0 


SOCB 

©EFMASK, ©SYSFLGCR10) 



0288 

00DA' 






02 8 A 

0002 





1577 

02SC 

1016 


JMP 

LR200 


1578 



t 




1579 



t 


3-ELSE IF CHAR = CR THEN 

DO; 

1580 


028E ' 

LR060 

EQU 

« 


1581 

028E 

0289 


Cl 

R9,CR*LBYTE IF CHAR . NE . CR 



0290 

0D00 





1582 

0292 

1606 


JNE 

LR070 


1583 





4-CALL SNDCHR (CHAR. DLY27); 

1584 

0294 

06 A0 


BL 

©SNDCHR 



0296 

03DA' 





1585 

0298 

00 IB 


DATA 

DLY27 


1586 



t 


4-CHARCOUNT = I ; 


1587 

029A 

CA86 


MOV 

R6.@CCOUNT(R10) 



029C 

0008' 





1588 



t 


4-RETURN; 


1589 



t 


4-END; 


1590 

029E 

0452 


B 

*R2 


1591 



* 




1592 



t 


3-ELSE IF CHAR = LF 


1593 


02A0' 

LR070 

EQU 



1594 

X^2A0 

0289 


Cl 

R9,. LFYLBYTE IF CHAR . NE . LF 
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02A2 

0A00 





1595 

02A4 

1604 


JNE 

LR080 


1596 



* 


4-THEN CALL SNDCHR (CHAR, 

DELAYS) 

1597 

02A6 

06A0 


BL 

iBSNDCHR 



02 A3 

03DA' 





1598 

02AA 

0003 


DATA 

DELAY3 


1599 

02 AC 

1006 


JMP 

LR200 


1600 



* 




1601 



* 


3-ELSE IF CHAR = ESC 


1602 


02 A£' 

LR080 

EQU 

$ 


1603 

02AE 

0289 


Cl 

R9,ESC*LBYTE IF CHAR . NE . ESC 



02B0 

IB 00 





1604 

02B2 

1603 


JNE 

LR090 


1605 



* 


4-THEN UNRECOVERABLEERROR 

= 1; 

1606 

02B4 

FAA0 


SOCB 

@UEMASK,@SYSFLG(R10) 



02B6 

0120' 






02 B 3 

0002 





1607 



* 

JMP 

LR200 


1608 



* 




1609 


02BA' 

LR090 

EQU 

f 


1610 



* 


3-END; 


1611 


02BA' 

LR200 

EQU 

f 


1612 

02BA 

0460 


B 

@LR010 



02BC 

01AE' 





1613 



* 




1614 


02BE' 

LR900 

EQU 

f END. OF. LOOP 


1615 



* 


2-CHARCOUNT = I; 


1616 

02BE 

CA86 


MOV 

R6, @CCOUNTCR10) 



02C0 

0 0 0 8 





1617 



* 


2-RETURN; 


1618 

02C2 

0452 


B 

*R2 


1619 



* 


2-END LGRASC; 



LOG - WRITE ASCII 945353-9901** PAGE 0058 


1622 



* 

TITLE^ 

LGWASC 


1S23 



* 



LOG - WRITE ASCII 

1624 



* 

REVISION: 



1625 



* 



ORIGINAL 


1626 



* 

ABSTRACT : 



1627 






CHARACTER' 

S ARE TRANSFERRED FROM THE USER'S 

1 a 2 8 



* 



BUFFER TO 

THE 733 ASR PRINTER UNTIL: 

1 6 2 9 






- THE 

DESIRED NUMBER OF CHARACTERS HAVE 

1630 






BEEN 

TRANSFERRED, OR 

1 6 3 1 



t 



- UNTIL ALL REMAINING CHARACTERS IN THE 

1632 



* 



BUFFER ARE EQUAL TO SPACES, 

1 6 3 3 



* 

CALLING SEQUENCE: 


1634 






STANDARD LEVEL ONE SEQUENCE. 

1635 



* 





1636 







1-PROCEDURE LGWASC C PARML I ST ) ; 

1637 



4; 




2-DECLARE (I, J) FIXED (16); 

1638 







2-DECLARE CHAR BIT (8); 

1639 







2-DECLARE FOUND FIXED (16); 

1640 





DEF 

LGWASC 


1 64 1 


02C4' 

LGWASC 

EQU 

« 


1642 

02C4 

C08B 



MOV 

Ril,R2 

SAVE RETURN - LEVEL ONE 

1643 



* 




2-1 = CHARCOUHT; 

1 b 4 4 

02C6 

ClAA 



MOV 

@CCOUNT(R10) ,RG 


02C8 

0008 






1645 



t 




2- IF I = 0 THEM RETURN; 

1646 

02CA 

1601 



JNE 

LLS 


1647 

02CC 

0452 



B 

*R2 


1648 


02CE' 

LL8 

EQU 

f 


1649 



* 




2-1=1- 1; 

1650 

02CE 

0606 



DEC 

R6 


1651 



* 




2-DO J FROM 0 TO I BY 1; 

1652 

02D0 

04C7 



CLR 

R7 

INITIALIZE J 

1653 


02D2' 

LW030 

EQU 

f. 


1654 

02D2 

8137 



c 

R 7 . R G 

I F J > I 

1655 

02D4 

1530 



JGT 

LU1900 


16 56 



* 




3-CALL RCVCHR (CHAR, NOWAIT); 

1657 

02D6 

0709 



SETO 

R9 


1658 

02DS 

06 A0 



BL 

0RCVCHR 



02DA 

0412' 






1659 



* 




3-IF CHAR = ESC THEN DO; 

1660 

02DC 

0289 



Cl 

R9,ESC*LBYTE 


02DE 

1B00 






166 1 

02E0 

1604 



JNE 

LW035 


1662 



* 




4-UNRECOVERABLEERROR = 1; 

1663 

02E2 

FAA0 



SOCB 

iUEMASK. @SYSFLGCR10) 


02E4 

02B6' 







02E6 

0002 






1664 



* 




4-RETURN; 

1665 

02E8 

0452 



B 

*R2 


1666 



* 




4-END; 

1667 


02EA' 

LW035 

EQU 

S 


1668 







3-CALL GETCHR (CHAR, J); 

1669 

02EA 




MOV 

R7, R8 



v'CLC 

0 6 A 0 



BL 

0!GETCHR 
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1671 

1672 

02EE 

02F0 

042C' 

0289 

* 

Cl 

3-IF CHAR = HT THEN CHAR = SP; 

R9.HT*LBYTE 

1673 

02F2 

02F4 

0900 

1602 


JNE 

LL12 

1674 

02F6 

0209 


LI 

R9, SP*LBYTE 

1675 

02F8 

2000 

02FA' 

LL12 

EQU 

t 

1676 

1677 

02FA 

0289 

* 

Cl 

3-IF CHAR >= SP .OR. (CHAR >= BEL &. 
R9,SP*LBYTE IF CHAR >= SP 

167S 

02 FC 
02FE 

2 0 0 0 
1406 


JHE 

LL14 

1679 

0300 

0289 


Cl 

R9,BEL*LBYTE IF CHAR < BEL .OR. CHAR > LF 

1680 

0302 

0304 

0700 

1106 


JLT 

LW040 

1681 

0306 

0289 


Cl 

R9, LF*LBYTE 

1682 

0308 
030 A 

0A00 

1503 


JGT 

LW040 

1683 


030C ' 

LL14 

EQU 

$ 

1684 

1685 

030C 

06 A0 

* 

BL 

4-THEN CALL SNDCHR (CHAR. DELAYS) j 

0SNDCHR 

1686 

030E 

0310 

03DA' 

0003 


DATA 

DELAYS 

1687 

1688 


0312' 

* 

LW040 

EQU 

3-IF CHAR = CR THEN CALL SNDCHR (CHA 

% 

1689 

0312 

0289 


Cl 

R9,CR*LBYTE IF CHAR .NE. CR 

1690 

0314 

0316 

0D00 

1603 


JNE 

LW045 

1691 

0318 

0 6 A 0 


BL 

0SNDCHR CALL SNDCHR (CHAR, DLY27) 

1692 

031 A 
03 1C 

03DA' 
00 IB 


DATA 

DLY27 

169 3 
1694 


03 IE' 

* 

LW045 

EQU 

$ 

1695 

1696 

031E 

0289 

* 

Cl 

3-IF CHAR = FF THEN DO ,K FROM 1 TO 8 
R9,FF*LBYTE IF CHAR . NE . FF 

1697 

0320 

0322 

0 C 0 0 
1607 


JNE 

LW050 

1698 

0324 

0203 


LI 

R3,S 

1699 

0326 

0 0 0 S 
0328' 

LL16 

EQU 

$ 

1700 

1701 

0328 

06 A 0 

* 

BL 

4-CALL CMND (ADDR (ECOFF).); 

0CMND 

1702 

032 A 
032C 

0396' 

0028' 


DATA 

ECOFF 

1703 

1704 

032E 

0603 

* 

DEC 

4-END; 

R3 

1705 

0330 

15FE 


JGT 

LL16 

1 7 0 6 
1707 


0332' 

* 

LW050 

EQU 

3-END; 

* 

1708 

0332 

0587 


INC 

R7 J = J + 1 ; 

1709 

0334 

10CE 


JMP 

LW030 

1710 

1711 

1712 


0336' 

* 

* 

LW900 

EQU 

2-RETURN; 

f 

1713 

0336 

0452 


B 

*R2 


LOG - WRITE ASCI I 


945353-9901** 


PAGE 0060 


1714 


* 


2-END LGWASC; 
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1717 



t 

TITLE : 

MONCHR 

1718 



t 


SINGLE CHARACTER INPUT FOR MONITOR 

1719 



t 

REVISION : 


1720 



t 


ORIGINAL 

1721 



t 

ABSTRACT : 


1722 



* 


NON-STANDARD LEVEL ONE SUt:RuUTINE, 

1723 






1724 



sL' 

■Tn 


THIS SUBROUTINE PROVDES SINGLE CHARACTER 

1725 





INPUT FOR THE MONITOR. IF A CHARACTER IS 

1726 





PRESENT ON THE CRU INTERFACE, IT IS RETURNED 

1727 





IN R9, LEFT JUSTIFIED WITH ZERO FILL. IF NO 

1728 





CHARACTER IS PRESENT ON THE INTERFACE, A 

1729 





ZERO IS RETURNED IN R9. 

1730 




CALLING SEQUENCE: 

1731 



t 


BL ©MONCHR 

1732 



t 


UPON RETURN CHARACTER IS IN R9 

1733 





R12 DESTROYED 

1734 






1735 





1- PROCEDURE MONITORCHAR (CHAR); 

1736 

1737 



t 


2-DECLARE CHAR CHARACTER (1); ■ 

1738 




DEF 

Cl' — 

MONCHR 

1739 


0338' 

MONCHR EQU 

t 

1740 





2-CALL RCVCHR (CHAR, NOWAIT); 

1741 

0338 

0709 


SETO 

R9 SET NO WAIT FLAG 

1742 

033A 

C320 


MOV 

@DC7331+DCTCRU, R12 


033C 

0000' 




1743 

033E 

0460 


B 

©RCVCHR 


0340 

0412' 




1744 



* 


2-RETRN; 

1745 





2-END MONITORCHAR; 
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1748 



t 

TITLE : 

CHGMOD 


1749 



t 


CHANGE RECORD/PLAYBACK MODE 

1750 



t 

REVISION: 



1751 



)k- 


ORIGINAL 


1752 



X 

ABSTRACT : 



1753 





THIS ROUTINE IS CALLED BY THOSE CASSETTE 

1754 



t 


FUNCTIONS 

WHICH MUST INSURE PROPER PLAYBACK/ 

1755 





RECORD MODE. THE DEVICE CONTROL TABLE 

1756 





CONTAINS 

CURRENT MODE , IF A CHANGE OF MODE 

1757 



t 


IS REQUIRED, THEN THE APPROPRIATE COMMAND IS 

1758 



t 


ISSUED TO 

THE 733ASR . 

1759 




CALLING SEQUENCE: 


1760 





LEVEL TWO 

ROUTINE. 

1761 







1762 



)K 


BL ©CHGMOD 

1763 



* 


DATA <DES 

IRED MODE INDICATOR) 

1764 







1765 






1 -PROCEDURE CHGMOD (PRBPTR, DCTPTR 

1766 



t 



2-DECLARE MODE BIT (16); 

1767 



* 



2-/* NOTE PRBPTR AND DCTPTR GLOBAL 

1768 






2- DEFINED */ 

1 769 






2-DECLARE (INUSE, OTHER) FIXED; 

1770 


0342' 

CHGMOD EQU 

« 


1771 

0342 

C3FB 


MOV 

*R11+, R15 

FETCH MODE INDICATOR 

1 7 7 2 

0344 

C0CB 


MOV 

Rll , R3 

LEVEL TWO RETURN 

1773 



SC 



2- INUSE = MOD (UNITNO, 2); 

1774 



)K 



2-OTHER = ABS ( INUSE-1 ) ; 

1775 

0346 

C3AD 


MOV 

@R8*2CR13) , R14 UNIT NUMBER 


0348 

0010 





1776 

034 A 

024E 


ANDI 

R14, 1 

MODULO 2 


034C 

0001 





1777 



s; 



2- IF (MODE = MODPBK & 

1778 



S: 



2- CASSETTECONTROL ( I NUSE ) . PLAY 

1779 



t 



2- (MODE = MODRCD &. 

1780 



t 



2- CASSETTECONTROL ( INUSE). RECO 

1781 






2- THEN RETURN; 

1782 

034E 

C16D 


MOV 

@R6*2CR13 

),R5 DCT ADDRESS 


0350 

000C 





1783 

0352 

A14E 


A 

R14,R5 


1784 

0354 

53E5 


S Z C B 

@CSTCNT(R5) , R15 


0 3 5 6 

0002 





1785 

0358 

1601 


JNE 

CM010 

IF PLAYBACK/RECORD BIT 

1786 



t 



NOT ON IN DCT 

1787 

035A 

0453 


B 

*R3 


1788 



t 



2-CASSETTECONTROL (INUSE) = 0; 

1789 



S< 



2-CASSETTECONTROL (OTHER) == 0; 

1790 


035C' 

CM010 EQU 

S 


1791 

035C 

614E 


s 

R14, R5 


1792 

035E 

4960 


szc 

©MODBTS, ©CSTCNTCR5) 


0360 

0004' 

A A ■ 





1793 

\ ' , ' t Vi. 

0 J t'! 4 

V V’ V. 

C04F 


MOV 

R15, R1 


1794 



* 



2- IF MODE = MODPBK THEN DO; 

1795 



* 



4-CASSETTECONTROL ( I NUSE ) . PLAYBACK 
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1796 






4-CASSETTECONTROL ( OTHER ). RECORD = 

1797 






4-CALL CMND CADDR CPMODE)); 

1798 






4-END, 

1799 



Y 



3-ELSE DO; 

18.00 



t 



4-CASSETTECONTROL C I NUSE ), RECORD = 

1801 






4-CASSETTECONTROL (OTHER) .PLAYBACK 

1802 



Y 



4-CALL CMND CADDR (RMODE)), 

1803 



t 



4-END; 

1804 

0366 

C38E 


MOV 

R14, R14 

IF RIGHT CASSETTE, SWAP 

1805 

0 3 6 8 

1301 


JEQ 

CM020 

BYTES IN MODE MASK 

1806 

036A 

06CF 


SWPB 

R15. 


1807 


036C' 

CM020 

EQU 

S 


1808 

036C 

E94F 


soc 

R15, @CSTCNTt'R5) SET MODE FilTS FOR BOTH 


036E 

0002 





1809 

0 3 7 0 

03S1 


Cl 

Rl.MODRCD 

IF NOT RECORD MODE 


0372 

4080 





1810 

0374 

1604 


JNE 

CM030 


1811 







1812 

0376 

06A0 


BL 

0CMND 

SEND RECORD MODE 


0378 

0396 ' 





1813 

037A 

0006' 


DATA 

RMODE 


1814 

037C 

1003 


■JMP 

CMO40 


1815 


037E' 

CM030 

EQU 

$ 


1816 

037E 

0 6 A 0 


BL 

0CMND 

SEND PLAYBACK MODE 


0380 

0396' 





1817 

0382 

00 0D ' 


DATA 

PMODE 


1.818 






2-RETURN; 

1819 


0384' 

CHO40 

EQU 



1820 

0384 

0453 


B 

:tR3 

RETURN 

1821 







1822 



■ 4 : 



2-END CHGMOD; . 


GET STATUS CHARACTER 
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1825 



* 

TITLE : 

STTCHR 


1826 



% 


GET STATUS 

CHARACTER 

1S27 




REVISION: 



1828 



* 


ORIGINAL 


1829 




ABSTRACT: 



1830 



* 


THE STATUS 

COMMAND SEQUENCE IS SENT AND THE 

1831 



* 


FIRST CHARACTER RECEIVED IS RETURNED TO THE 

1832 



% 


CALLER AS 

THE STATUS CHARACTER. 

1833 



% 

CALLING S 

EQUENCE : 


1834 



t 


LEVEL TWO 

ROUTINE 

1835 



% 




1836 





BL @STTC 

HR 

1837 



t 


STATUS CHARACTER IS RETURNED IN R9 LEFT BYTE 

1838 



t 




1839 






1-PROCEDURE STTCHR ( STATUSCHAR ) ; 

1840 



* 



2-DECLARE STATUSCHAR BIT CS); 

1841 






2- 

1842 


0386' 

STTCHR EQU 

f 


1843 

0386 

C0CB 


MOV 

Rll , R3 

LEVEL TWO RETURN SAVE 

1844 






2-CALL CMND CADDR (STTSEQ)); 

1845 

0388 

06A0 


BL 

@CMND 



038A 

0396' 





1846 

038C 

002C' 


DATA 

STTSEQ 


1847 






2-CALL RCVCHR (STATUSCHAR, WAIT); 

1848 

038E 

04C9 


CLR 

R9 

SET WAIT INDICATOR 

1849 

0390 

06A0 


BL 

iRCVCHR 



0392 

0412' 





1850 






2-RETURN; 

1851 

0394 

0453 


B 

:i;R3 


1852 






2-END STTCHR; 
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1855 



X 

TITLE : 

CMND 

1856 



t 



SEND COMMAND SEQUENCE 

1857 



% 

REVISION: 


1S58 



t 



ORIGINAL 

1859 



X 

ABSTRACT ■■ 


I860 



t 



A SERIES OF CHARACTERS IS TRANSFERRED TO THE 

1861 



X 



733ASR UNTIL THE END GROUP CHARACTER IS 

1862 






DETECTED, THIS SERIES OF CHARACTERS BEGINS 

1863 



X 



AT THE ADDRESS PASSED BY THE CALLER AND CONSI; 

1864 



X 



OF THREE TYPES OF ENTRIES: 

1865 



X 



1. A CHARACTER TO BE SEND WITHOUT CHANGE, 

1866 



X 



HIGH ORDER BIT - 1 =-> MOD BY DRIVE ID 

1867 



X 



2. DELAY GROUP INDICATOR. BYTE ■- >FE . 

1S6S 






NEXT BYTE IS COUNT OF DELAY CHARACTERS 

1869 



X 



TO ISSUE, 

1870 



X 



3. END GROUP CHARACTER. BYTE = >FF. 

1871 




CALLING SEQUENCE: 

1872 



X 



LEVEL THREE ROUTINE 

1873 



X 



BL @CMND 

1874 



X 



DATA <ADDR OF COMMAND SEQUENCE> 

1375 



X 



R10 - PRB ADDRESS 

1876 



X 



R8- R9 RESERVED 

1877 



X 



1- PROCEDURE CMND (CMNDPTR, DRIVE ID 

1 o '"7 

i. O / C_' 



X 



2-DECLARE CCMNDPTR, BYTEPTR) POINT 

1879 



X 



2-DECLARE COMMANDBYTE FIXED (S) 

1880 



X 



2- CONTROL (BYTEPTR); 

1881 



){C 



2-DECLhRE DRIVE- id FIXED (8); 

1882 






2-DECLARE BYTE FIXED; 

1883 



X 




1834 


0396' 

CMND 

EQU 

S 

1885 

0396 

C10B 



MOV 

R11,R4 LEVEL TWO RETURN SAVE 

1886 



X 



2-BYTEPTR = COMNDPTR' 

"7 

0398 

C3B4 



MOV 

;|:R4+.R14 

1888 



X 



2-DO FOREVER; 

1889 

039A 

04C9 



CLR 

R9 

1890 


039C' 

CMND10 

EQU 

$ 

1891 



X 



3-EYTE = COMMANDBYTE; 

1892 



X 



3-BYTEPTR = BYTEPTR + 1. 

1893 

039C 

D27£ 



MOVE 

XR14+,R9 

1894 



X 



3- IF BYTE = ENDGROUP THEN EXIT DO; 

1895 

039E 

0289 



Cl 

R9. ENDGRP^KLBYTE 


03A0 

FF00 





1896 

03A2 

131 A 



JEQ 

CMND90 

1897 



X 



3- IF BYTE = DELAYGROUP THEN DO; 

1898 

03A4 

0289 



Cl 

R9< DLYGRP:ttLBYTE 


03A6 

FE00 





1899 

03AS 

1605 



JNE 

CMND20 ' 

1900 



X 



5-CALL DLYCHR (COMMANDBYTE); 

1901 



X 



5-BYTEPTR ■- BYTEPTR + 1; 

1902 

03AA 

D23E 



MOVE 

^•R14+,RS 

1903 

03AC 

0988 



SRL 

RS, 8 

1904 

03AE 

06A0 



BL 

SDLYCHR 


03B0 

03FC' 






1905 


t 


5-END; 
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1906 

03B2 

1011 


JMP 

CMND40 



1907 



* 



4-ELSE DO; 


1908 


03B4' 

CMND20 

EQU 

$ 



1909 



* 



5-IF BYTE < 0 


1910 

03B4 

C249 


MOV 

R9.R9 

IF BYTE >= 0 


1911 

03B6 

1S0C 


JGT 

CMND30 



1912 

03B8 

130B 


JEQ 

CMND30 



1913 



* 



5- THEN /* THIS IS A COMMAND 

BYTE 

1914 



* 



5- TO BE MODIFIED BY 

DRIV 

1915 



* 



6-J = MOD (DRIVEID, 2); 


1916 

03BA 

C3ED 


MOV 

0RS*2(R13) 

,R15 



03BC 

0010 






1917 

03 BE 

024F 


ANDI 

R15,l 




03C0 

0001 






1918 



* 



6- IF J .NE. 0 


1919 

03C2 

1306 


JEQ 

CMND30 



1920 



* 



7-THEN BYTE = BYTE + BYTMOD (BYTE); 

1921 

03C4 

0A19 


SLA 

R9, 1 



1922 

03C6 

0999 


SRL 

R9,9 



1923 

03C8 

D3E9 


MOVE 

@EYTMOD-'l 

'(R9),R15 



03CA 

000B' 






1924 

03CC 

0BS9 


SRC 

R9- 8 



1925 

03CE 

B24F 


AB 

R15. R9 



1926 



* 





1927 


03D0' 

CMND30 

EQU 

$ 



1928 



* 



5-CALL SNDCHR (BYTE, 0); 


1929 

03D0 

06A0 


BL 

0SNDCHR 




03D2 

03DA' 






1930 

03D4 

0000 


DATA 

0 



1931 



* 



5-END; 


1932 



* 



3-END; 


1933 


03D6' 

CMND40 

EQU 

S 



1934 

03DS 

10E2 


JMP 

CMND10 



1935 



* 





1936 



* 



2-RETURN; 


1937 


03D8' 

CMND90 

EQU 




1938 

03D8 

0454 


B 

*R4 



1939 



* 



2-END CMND; 
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1942 



TITLE 


SNDCHR 


1943 





SEND CHARACTER TO 733 ASR 

1944 



REVISION: 



1945 





ORIGINAL 


1946 



ABSTRACT: 



1947 





ONE CHARACTER IS SENT TO THE 733 ASR THROUGH 

194S 





THE CRU INTERFACE, AFTER WHICH A CALLER 

1949 





SPECIFIED 

NUMBER OF DELAY CHARACTERS ARE SENT. 

1950 



4: CALLING SEQUENCE: 


1951 





LEVEL FOUR 

ROUTINE 

1952 



* 


EL ©SNDCHR 

1953 



t 


DATA < NUMBER OF DELAY CHARACTERS TO SEND> 

1954 



t 


R10 - PRB 

POINTER 

1955 



t 


R9 - CHARACTER TO SEND IN LEFT BYTE 

1956 



t. 


R8 - RESERVED 

1957 






1 -PROCEDURE SNDCHR (DELAYTIME, CHAR 

1958 



t 



2-DECLARE DELAYTIME FIXED; 

1959 






2-DECLARE CHAR BIT (S); 

I960 



t 




1961 


03DA' 

SNDCHR 

EQU 

f 


1962 

03DA 

C14B 


MOV 

Rll , R5 


1963 

03DC 

C235 


MOV 

YR5+, R8 

GET DELAYTIME 

1964 



if. 



2- IF DSR = 1 THEN DO; 

1965 

03DE 

1F0E 


TB 

DSR 

IF DSR = 0 

1 9 6 6 

03E0 

1609 


ONE 

SND015 


1967 



t 



4-RTS = 1; 

1968 

03E2 

1D0A 


SBO 

RTS 


1969 



$ 



4-DTR = 1; 

1970 

03E4 

ID 09 


SBO 

DTR 


1971 



if 



4-OUTCHR = CHAR; 

1972 

03E6 

3209 


LDCR 

R9, 8 


1973 



t 



4-DO WHILE WRQ =0; 

1974 



if. 



5-END, 

1975 


03 ES" 

SND010 

EQU 

« 


1976 

03E8 

1F0B 


TB 

WRQ 


1977 

03EA 

16FE 


JNE 

SND010 


1973 



* 



4-CLRWRQ = 1; 

1979 

03EC 

1D0B 


SBO 

CLRWRQ 


1980 



t 



4-CALL DLYCHR (DELAYTIME); 

1981 

03EE 

06 A0 


BL 

©DLYCHR 



03F0 

03FC ' 





1982 



t 



4-END; 

1983 

03F2 

1003 


JMP 

SND020 


1984 


03F4' : 

SND015 

EQU 

f 


1985 



*■ 



3-ELSE UNRECOVERABLEERROR = 1; 

1986 

03F4 . 

FAA0 


SOCB 

@UEMASK,@SYSFLG(R10) 


03 F 6 

02 E4' 






03F8 

0002 





1987 



if 



2-RETURN; 

1988 


03FA' : 

SND020 

EQU 

$ 


1989 

03FA 

0455 


B 

%R5 


1990 



if 



2-END SNDCHR; 


c 
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1993 



t TITLE: 

DLYCHR 


1994 





SEND DELAY 

CHARACTERS TO 733 ASR 

1995 



Y REVISION: 



1996 



t 


ORIGINAL 


1997 



Y ABSTRACT: 



1998 



t 


THE INDICATED NUMBER OF DELAY CHARACTERS ARE 

1999 



t 


SENT TO THE 733ASR INTERFACE WITH RTS =0. 

2000 



t CALLING SEQUENCE: 


2001 



t 


LEVEL FIVE 

SUB:ROUTINE 

2002 



* 


MOVE <NUMBER OF DELAY CHARACTERS) . R8 

2003 



* 


BL ©DLYCHR 

2004 





R10 - PRB 

ADDRESS 

2005. 



Y 


DOES NOT MODIFY R14 OR R15 

2006 

2007 



X 

t 



l-PROCEDURE DLYCHR ( DELAYCOUNT ) ; 

2002 



t 



2-DECLARE (DELAYCOUNT, I) FIKED; 

2009 

2010 


03FC' 

% 

DLYCHR 

EQU 


111 ■*“ 

2011 

2012 

03FC 

C048 

Y 

MOV 

RS,R1 

2-1 = DELAYCOUNT; 

2013 

2014 

03FE 

1108 

* 

JLT 

DLY090 

2-DO WHILE I > 0; 

2015 


0400' 

DLY010 

EQU 

f 


2016 

0400 

0601 


DEC 

R1 


2017 

0402 

1 106 


JLT 

DLY090 


2018 

2019 

0404 

1E0A 

X 

SBZ 

RTS 

3-RTS = 0; 

2020 



X 



3-OUTCHR = ANYTHING, 

2021 

2022 

0406 

3209 

X 

LDCR 

R9,S 

3-DO WHILE WRQ = 0; 

2023 

2024 


0408' 

X 

DLY020 

EQU 

S 

4-END, 

2025 

0408 

1F0B 


TB 

WRQ 


2026 

2027 

040A 

16FE 

X 

JNE 

DLY020 

3-CLRWRQ = 1; 

2028 

2029 

0400 

1D0B 

X 

SBO 

CLRWRQ 

3-END; 

2030 

2031 

040E 

10F8 

X 

JMP 

DLY010 

2-RETURN; 

2032 


0410' 

DLY090 

EQU 

S 


2033 

2034 

0410 

045B 

X 

B 

*R11 

2-END DLYCHR; 
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2037 

2038 

2039 
204 0 
2041 


t TITLE: 

% 

REVISION: 
4; ABSTRACT: 


RCVCHR 

RECEIVE CHARACTER FRM 733ASR 
ORIGINAL 


2042 





ONE CHARACTER IS RECEIVED FROM THE 733ASR 

2043 





THROUGH THE CRU INTERFACE. IF A CHARACTER 

2044 





IS NOT PRESENT, THE SUBROUTINE WILL CONDITION- 

2045 



% 


ALLY WAIT UNTIL SUCH TIME AS CHARACTER IS 

2046 





TRANSMITTED. 

2047 



* CALLING SEQUENCE: 

2048 



t 


LEVEL FIVE ROUTINE. 

2049 



t 


MOV <WAIT C0DE>,R9 WAIT=0/NO WAIT =0 

2050 



t 


BL ©RCVCHR 

2051 



t 


UPON EXIT, CHARACTER IS IN LEFT BYTE OF R9 . 

2052 



t 


IF NO WAIT WAS CHOSEN AND A CHARACTER WAS 

2053 



t 


NOT TRANSMITTED, R9 =0. 

iC., U b ^ 

2055 



•t- 

* 


CLEARED AND IGNORED. 

2056 



* 


1 -PROCEDURE RCVCHR (WAITFLAG,. CHAR) 

2057 



t 


2-DECLARE WAITFLAG FIXED; 

2058 



t 


2-DECLARE CHAR BIT (S), 

2059 


0412' 

RCVCHR 

EQU 

f 

2 0 6 0 



T 


2- IF TIMERR = 1 THEN CLRRRQ = 1; 

2061 

0412 

1F09 


TB 

TIMERR V- TIMING ERROR 

2062 

0414 

1601 


JNE 

RCV010 

2063 

0416 

1D0C 


SBO 

CLRRRQ 

2064 


0418' 

RCV010 

EQU 

f 

2066 





2-DO WHILE RRQ = 0; 

2066 

0418 

1F0C 


TB 

RRQ 

2067 

041A 

1304 


JEQ 

RCV020 

2068 



t 


3- IF WAITFLAG .NE. 0 THEN DO; 

2 0 9 

041C 

C249 


MOV 

R9, R9 

2070 

041E 

13FC 


JEQ 

RCV010 

2071 





4-CHAR =0; 

2072 

0420 

04 C 9 


CLR 

R9 

2073 



X 


4-RETURN; 

2074 



X 


4-END; 

2075 

0422 

045B 


B 

YRll 

2076 



% 


3-END; 

2077 


0424' 

RCV020 

EQU 

f 

2078 



* 


2-CHAR = INCHAR; 

2079 

0424 

04 C 9 


CLR 

R9 

2080 

0426 

35C9 


STCR 

R9, 7 

2021 



% 


2-CLRRRQ = 1; 

2082 

0428 

1D0C 


SBO 

CLRRRQ 

2083 



t 


2-RETURN; 

2 0 8! 4 

042A 

045B 


B 

YRll 


20S5 


2-END RCVCHR; 
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2088 




TITLE ^ 

GETCHR 

2089 





GET CHARACTER FROM BUFFER 

2090 



t 

REVISION: 


2091 



t 


ORIGINAL ■ i 

2092 



t 

ABSTRACT : 


2093 



t 


A CHARACTER IS FETCHED FROM THE BUFFER 

2094 



t 

CALLING SEQUENCE: 

2095 



t 


LEVEL FIVE SUBROUTINE 

2096 



t 


MOV <2ER0 RELATIVE D I SPLACEMENT) , R8 

2097 



t 


BL SGETCHR 

2098 



t 


UPON RETURN. R9 CONTAINS CHARACTER IN LEFT BYTE 

2099 





1-PROCEDURE GETCHR (DISPLACEMENT, CH 

2100 



X 


2-DECLARE DISPLACEMENT FIXED (16); 

2101 





2-DECLARE CHAR BIT (S) ; 

2102 


042C' 

GETCHR EQU 

f 

2103 





2-CHAR = BUFFER (DISPLACEMENT); 

2104 

042C 

C06A 


MOV 

@BFADDR(R10) . R1 


042E 

0004 




2105 

0430 

A048 


A 

R8.R1 

2106 

0432 

D251 


MOVE 

YR1.R9 

2107 

0434 

0249 


ANDI 

R9. DEL^LBYTE 


0436 

7F00 




2108 





2-RETURN; 

2109 

0433 

045B 


B 

*R11 

2110 



X 


2-END GETCHR; 
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2113 




TITLE : 

PUTCHR 

2114 





PUT CHARACTER INTO BUFFER 

2115 



* 

REVISION^ 


2116 



t 


ORIGINAL 

2117 




ABSTRACT ^ 


2118 



)K 


A CHARACTER IS PLACED INTO THE BUFFER. 

2119 




CALLING SEQUENCE: 

2120 





LEVEL FIVE SUBROUTINE 

2121 





MOV <2ER0 RELATIVE D ! SPLACEMENT) , R8 

2122 





MOVE < CHARACTER >, R9 

2123 

4 -t:' .-1 



• 4 -- 


BL 0PUTCHR 

c 1 c: 

U»,> J- 





1-PROCEDURE PUTCHR (DISPLACEMENT 

2126 



t 


2-DECLARE DISPLACEMENT FIXED; 

2127 





2-DECLARE CHAR BIT (8); 

2128 


043A' 

PUTCHR EQU 

* 

2129 



* 


2-BUFFER (DISPLACEMENT) = CHAR; 

2130 

043A 

0249 


ANDI 

R9.DEL*LBYTE 


043C 

7F00 




2131 

043E 

C06A 


MOV 

@BFADDRCR10) , R1 


0440 

0004 



i 

2132 

0442 

A048 


A 

R8, R1 

2133 

0444 

D449 


MOVE 

R9,*R1 

2134 



* 


2-RETURN; 

2135 

0446 

045B 


B 

*R11 

2136 



* 


2-END PUTCHR; 
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2139 



* 

TITLE: 

RSTMOD 

2140 





RESET CASSETTE RECORD/PLAYBACK MODE 

2141 



t 

REVISION 


2142 





ORIGINAL 

2143 




ABSTRACT 


2144 





THE PECORD/PLAYBACK BITS IN THE DCT 

2145 





CASSETTE CONTROL FIELDS ARE RESET. THIS 

2146 





FORCES A FUTURE MODE CHANGE. 

2147 



t 

CALLING ; 

SEQUENCE: 

2148 



t 


LEVEL FIVE SUBROUTINE 

.2149 





BL 0RSTMOD 

2150 





1-PROCEDURE RSTMOD; 

2151 



t 



2152 


0448' 

RSTMOD EQU 

f 

2153 



* 


2-CASSETTECONTROL (1) .PLAYBACK 

2154 



* 


2-CASSETTECONTROL (2) .PLAYBACK 

2155 



* 


2-CASSETTECONTROL C 1 ). RECORD = 

2156 



* 


2-CASSETTECONTROL C2KREC0RD 

2157 

0448 

C06D 


MOV 

@R6*2(R13) , R1 DCT POINTER 


044A 

000C 




2158 

044C 

4860 


S2C 

@MODBTS, @CSTCNT(R1 ) RESET BITS 


044E 

0004' 





0450 

0002 




2159 



* 


2-RETURN; 

2160 

0452 

045B 


B 

*R11 


2161 * 2-END RSTMOD; 

2162 

0000 ERS 


END 



960 - 980 CONCORDANCE 


f 


0804 

0812 

0820 



0877 

0883 

0890 



1032 

1040 

1050 



1141 

1144 

1151 



1212 

1227 

1237 



1323 

1337 

1356 



1465 

1470 

1488 



1549 

1554 

1570 



1641 

1648 

1653 



1707 

1712 

1739 



1884 

1890 

1908 



1988 

2010 

2015 



2128 

2152 


ASRID 

0691 




BCKBLK 

0793 

0871 



BEL 

0770 

1133 

1258 

1679 

BFADDR 

0623 

2104 

2131 


BFLNTH 

0 6 2 4 

1118 

1443 


BKSPC 

0868 

1046 



BOE 

0720 

1343 

1398 


BS 

0 /’ / 3 

0831 

1467 

1518 

BSFLG 


0631 

1469 

1540 

BYTMOD 

0904 

1923 



CCOUNT 

0625 

0987 

1039 

1193 

CFO 10 

0986 

1007 



CF0E0 

1009 

0988 

0991 


CHGMOD 

1770 

1035 

1080 

1215 

CHRMOD 

0629 

1493 

1522 


CLRNSF 

0703 




CLRRRQ 

0702 

2063 

2082 


CLRWRQ 

0701 

1 979 

2028 


CM010 

179© 

1785 



CM020 

1807 

1805 



CM030 

1815 

1810 



CMDMSK 


0635 



CMND 

1884 

1045 
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1899 
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CMND90 

1937 

1896 
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0758 
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1689 

0899 

1116 

CRWD10 

1337 

1346 



CRWD20 

1356 

1362 



CSB010 

1040 

1048 



CSB020 

1050 

1043 



CSEACK 

1032 

1031 
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0962 

0961 
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0919 

0918 



CSR005 

1092 

1086 



CSR010 

1106 

1103 



CSR020 

1112 

1109 



CSR100 

Ills 

1179 



CSR110 

1127 

1125 



CSR120 

1141 

1134 
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0904 
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0362 

0986 

1009 

1077 

1092 

1106 

1112 

1115 

1127 

1160 

1170 

1174 

1177 

1181 

1191 

1247 

1260 

1262 

1267 

1270 

1295 

1384 

1393 

1429 

1436 

1454 

1457 

1503 

1507 

1513 

1517 

1530 

1535 

1580 

1593 

1602 

1609 

1611 

1614 

1667 

1675 

1683 

16SS 

1694 

1699 

1770 

1790 

1807 

1815 

1819 

1842 

1927 

1933 

1937 

1961 

1975 

1984 

2024 

2032 

2059 

2 01 6 4 

2077 

2102 


1543 


1233 

1273 

1587 

1616 

1644 


1298 

1349 





1229 

1276 

1301 

1304 

1307 

1333 

1537 

1701 

1812 

IBIG 

1845 


1126 

1139 

1166 

1183 

1244 

1581 
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CSR130 

1144 

1132 

1136 

1138 

CSR140 

115 1 

1142 



CSR150 

1160 

1158 



CSR160 

1170 

1167 



CSR170 

1 174 

1154 



CSR180 

1177 

1172 



CSR500 

1181 

1117 

1119 

1122 

CSR600 

1191 

1184 



CSRASC 

1077 

1076 



CSRWHD 

1328 

1326 



CSTCNT 

0651 

1784 

1792 

1808 

CSUNLD 

1384 

1382 



CSWASC 

1212 

1211 



CSUIEOF 

1295 

1294 



CUML10 

1393 

1401 



CW005 

1227 

1221 



CW010 

1237 

1235 

1269 


CW020 

1247 

1245 



CW030 

1267 

126 1 



CW100 

1270 

1239 



DC2 

0752 

0828 



DC3 

0754 

0845 

1153 

1571 

DC4 

0756 

0837 



DC7331 

0656 

0655 

1742 


DGD 

0694 




DCTCRU 

0650 

1742 



DEL 

0762 

0839 

1108 

1474 

DELAY3 

0723 • 

1473 

1547 

1563 

DLE 

0750 

0806 

0814 

0821 

DLY010 

2015 

2030 



DLY020 

2024 

2026 



DLY090 

2032 

2013 

2017 


DLY27 

0724 

1585 

1692 


DLYCHR 

2010 

1274 

1904 

1981 

DLYGRP 

0799 

0805 

0807 

0813 



0855 

0857 

0863 



0300 

1898 


DSR 

0695 

1965 



DTR 

0699 

1970 



ECOBS 

0890 

1538 



ECODEL 

0896 

1510 



ECOFF 

0877 

1702 



EFMASK 


0634 

1159 

1576 

END GRP 

0797 

0809 

0817 

0824 



0880 

0887 

0893 

E0F2UE 

1440 

1441 



EOFLG 

0628 

0 9 9 0 

1121 

1438 

EOFSEQ 

0844 

1305 



ESC 

0768 

1603 

1660 


ETB 

0774 

1124 

1246 

1254 

FF 

0772 

1137 

1252 

1696 

FWDBLK 

0791 

0823 



GETBUF 


0983 

0984 


GETCHR 

2102 

1242 

1670 


HT 

0766 

1135 

1555 

1672 

INCHAR 

06SS 




I NT 

0696 




10 


©997 

0998 


loop 

0619 




LBYTE 

0 72 2 

1102 

1108 

1116 


1140 


1189 


2158 


2107 2130 

1598 1686 

0854 0862 0869 0884 


0815 0822 0829 0838 0840 0853 
0870. 0872 0879 0S85 0892 0898 


0830 0841 0846 0858 0865 0873 

0901 1895 

1440 


1124 1126 1131 1133 1135 1137 
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1X39 

1153 

1166 



1256 

1258 

1467 



1571 

1581 

1594 



1681 

1689 

1696 

LF 

0760 

0836 

0878 

0897 

LGRASC 

1429 

1428 



LGWASC 

1641 

1640 



LL12 

1675 

1673 



LL14 

1683 

1678 



LL16 

1699 

1705 



LL18 

1260 

1257 



LL20 

1262 

1251 

1253 

1255 

LL4 

1535 

1533 



LL8 

1648 

1646 



LOAD 

0785 

0864 



LOADSQ 

0861 

1353 



LR010 

1436 

1612 



LR013 

1454 

1448 



LR014 

1457 

1452 



LR017 

1465 

1461 

1463 


LR018 

1470 

1468 



LR020 

1488 

1473 

1475 


LR023 

1503 

1494 



LR026 

1507 

1501 



LR028 

1513 

1439 

1442 

1444 

LR030 

1517 

1489 



LR035 

1530 

1523 



LR038 

1549 

1541 



LR040 

1554 

1519 



LR050 

1570 

155G 



LR060 

1580 

1572 

1574 


LR070 

1593 

1582 



LR080 

1602 

1595 



LR090 

1609 

1604 



LR200 

1611 

1485 

1512 

1551 

LR900 

1614 

1514 



LUNO 

0620 

0969 



LW030 

1653 

1709 



LW035 

1667 

1661 



LW040 

1688 

1680 

1682 


LW045 

1694 

1690 



LU050 

1707 

1697 



LW300 

1712 

1655 



LUP 


0993 

0994 


MAXCHR 

0726 

1234 

1236 


MDID 

0781 

0783 

0785 

0787 

rdODBTS 

0711 

1792 

2158 


MODPBK 

0709 

0711 

1036 

1081 

MODRCD 

0707 

0711 

1216 

1299 

MONCHR 

1739 

1738 



NUFLG 

0630 

1447 

1460 


OUTCHR 

0698 




PBKRDY 

0721 

1085 

1360 


PLYBK 

0789 

0816 



PMODE 

0812 

1817 



PUTCHR 

2128 

1147 

1481 

1497 

R0 

0730 

1341 

1342 

1343 

R1 

0731 

0980 

0987 

1005 



1447 

1459 

1460 



2012 

2016 

2104 
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1183 

1244 

1246 

1250 

1252 

1254 

1472 

1474 

1518 

1545 

1555 

1561 

1603 

1660 

1672 

1674 

1677 

1679 

1895 

1898 

2107 

2130 



1102 

1256 

1545 

1594 

1681 



1259 


1567 1577 1599 


0789 

1350 

1809 


1526 

1559 





1396 

1398 

1400 




1120 

1121 

1437 

1438 

1441 

1446 

1492 

1493 

1521 

1522 

1793 

1809 

2105 

2106 

2131 

2132 

2133 

2157 
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Rie 


Rll 


R12 

R13 

R14 

R15 

R2 


R3 

R4 

R5 

R6 


R7 

RS 


R9 


RCDRDY 

RCV010 

RCV020 

RCVCHR 

RDASCI 

RECORD 

RETBUF 

REWIND 

RHODE 

RRQ 

RSTMOD 

RTAPE 

RTS 

RWDSEQ 

RWP 

SNi^010 

SND015 

SND020 

SNDCHR 




2158 



0740 

0969 

0982 

0995 


1193 

1223 

1233 


1521 

2131 

1576 

1587 

0741 , 

0920 

0963 

1033 


1642 

1771 

1772 


2109 

2135 

2160 

0742 

1742 



0743 

0995 

1341 

1400 

0744 

1775 

1776 

1783 

0745 

0976 

1925 

1771 

1784 

0732 

0920 

0924 

0963 


1213 

•t o Er 
1 lEL c b 

1279 


1430 

1464 

1590 

0733 

0965 

0996 

1698 

0734 

0967 

0969 

0970 

0735 

0973 

0990 

1003 


1962 

1963 

1989 

0736 

0975 

0976 

1038 


1157 

1157 

1193 


14S0 

1483 

1496 


155S 

1565 

1573 


17S2 

2157 


0737 

0978 

1039 

1042 


1669 

1708 


0738 

1146 

1241 

1272 


1540 

1558 

1669 


2105 

2132 


0739 ^ 

09S2 

0987 

1003 


1116 

1124 

1126 


1162 

1166 

1175 


1252 

1254 

1256 


1462 

1462 

1467 


1571 

1581 

1594 


1679 

1681 

1689 


1898 

1910 

1910 


2021 

2133 

2069 

2069 

0719 

1219 



2064 

2062 

2070 


2077 

2067 



2059 

1 100 

1105 

1111 


1743 

1849 


0957 

096 7’ 



0787 

0808 

1011 

1012 


0783 

0856 



0804 

1813 



0693 

2066 



2152 

0922 

1331 

1387 

0820 

1097 

1169 


0700 

1968 

2019 


0852 

1334 

1390 



1000 

1001 


1975 

1977 



1984 

1966 



1988 

1983 



1961 

1264 

1477 

1546 
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0996 

1039 

1273 

1437 

1606 

1616 

1078 

1213 

1843 

1885 


1775 

1782 

1791 

1804 

1793 

1806 

1014 

1033 

1296 

1310 

1618 

1642 

1704 

1772 

1885 

1887 

1782 

1783 

1041 

1042 

1232 

1238 

1499 

1505 

1573 

1587 

1233 

1234 

1273 

1341 

1775 

1902 

1085 

1099 

1131 

1133 

1183 

1186 

1258 

1344 

1472 

1474 

1603 

1657 

1696 

1741 

1921 

1922 

2072 

2079 

1163 

1176 


1562 1584 


1088 

1118 

1443 

1446 

1644 

1663 

1296 

1329 

1962 

2033 


1916 

2157 

1804 

1887 

1808 

1916 

1052 

1078 

1329 

1365 

1647 

1665 

1787 

1820 

1938 

1784 

1791 

1094 

Ills 

1241 

1268 

1525 

1528 

1616 

1644 

1236 

1238 

1400 

1480 

1903 

1916 

1102 

1104 

1135 

1137 

1219 

1244 

1360 

1397 

1518 

1545 

1660 

1 672 

1848 

1889 

1923 

1924 

2080 

2106 

1187 

1451 


1597 1685 


1120 1159 

1459 1492 

198G 2104 


1385 

1430 

2075 

2084 


1893 

1902 

1917 

1923 

1090 

1195 

1385 

1404 

1713 


1843 

1851 

1792 

1808 

1146 

1149 

1432 

1443 

1532 

1534 

1650 

1654 

1652 

1654 

1496 

1525 

1963 

2012 

1108 

1110 

1139 

1153 

1246 

1250 

1450 

1455 

1555 

1561 

1674 

1677 

1 893 

1895 

1925 

1972 

2107 

2130 

1456 

1658 


1691 1929 
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SP 

0764 

1131 

STATUS 

0795 

0886 

STTCHR 

1842 

1083 

STTSEQ 

0883 

1846 

SYSFLG 

0621 

1003 

1986 

TIMERR 

0690 

2061 

UE 

0627 

1440 

UEFMSK 


0636 

UEHASK 


0633 

USEFLG 

0622 

1446 

VT 

0776 


WRQ 

0692 

1976 

WTAPEE 

0834 

1277 

WTAPES 

0827 

1230 

XMTING 

0689 



1250 

1472 

1561 

1674 

1218 

1339 

1358 

1395 

1088 

1120 

1159 

1223 

1088 

1459 

1223 

1492 

1606 

1521 

1663 


202E 

1308 

1302 


1G77 

1437 157S 160G 1G63 

1986 
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945353-9P©/ 


nn o^n 






REV 













SHEET 













REV STATUS 


REV 

_J 







OF SHEETS 


SHEET 








UNLESS OTHCftWiSE SPEClEtCO|H^ 
DIMENSIONS ANE IN INCHES 
TOLERANCES 
ANGLES 

3 RLACE DECIMAi± 010 
2 PLACE DECIMAL ± 02 


IDENTIPYINQ NUMSERS 
SHOWN IN PARENTHESES 
FOR REFERENCE ONLY 


INTERPRET DWO IN 
ACCORDANCE WITH 
MILSTDIOO 




Texas Instruments 

INCORPORATED 

Equipfmnt Gfoup Mkm, 


AL, ERRINT, ERROR INTERRUPT PR0CESS0R-PX990 


SIZE COOE lOENT NO I DRAWING NO 

A 96214 t 945354-9901 


REV. 























*♦ IRROR INTERRUPT PROCESSOR *♦ 94S3S4»99fll** 


PACE mms 


0I03 




lOT 

•ERRINT’ 

0(904 



* 

TITLE! 

ERROR interrupt 

0005 




REVISION! 

1 11/25/75 

000e 



t 


original 

0007 



# 

COHPUTER* 990, ASM 

0000 



# 

AiSTRACTi WHEN AN ERROR OCCURS AND A TRAP TO LOCATION 

0009 



♦ 


8 OCCURS, TRAP WILL BE OIRECTED HERE, IF PR06RA 

0010 



« 


which caused error IS IN SIE, SIE WILL ft 

0011 



♦ 


turned OFF, PROGRAM WILL BRANCH TO MONITOR, 

0010 



# 



0013 



# 


REFS AND DIFS 

0014 




OEF 

El ^ 

0015 




REF 

FREMEM 

001$ 




REF 

ERROR 

0017 




REF 

INIT 

Oiia 



♦ 



0019 


0O0A 

R10 

EQU 

10 

0020 


0006 

MX0$ EQU 

>000$ execution error 

0021 



* 



0022 


0000» 

El 

fOU 

S 

0023 

0000 

02EO 


LWPI 

FREMEM 


0002 

0000 




0024 

0004 

0360 


RSET 


0025 

000$ 

020A 


LI 

R10,EIA 


0008 

000C* 




002$ 

0O0A 

C$0A 


MOV 

R 1 0 , P>8 0 


0O0C 

0060 




0027 



* 

IF IN 

1 SIE PROGRAM WILL BRANCH BACK TO HERE 

0020 


000C 

EIA 

EOU 

S 

0029 

0O0f 

020A 


LI 

R10,MX0$ 


0010 

000$ 




0030 

0012 

06AO 


BL 

PERROR 


0014 

0000 




0031 

001$ 

0460 


B 

PINIT 


001$ 

0000 




0032 




END 


0000 ERS 








c 
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960 • 

980 CONCORDANCE 


9 


0022 

0028 

CX 

0029 

001A 


exA 

0028 

0025 


error 


0016 

0030 

FREMEM 


0015 

0023 

XNIT 


0017 

0031 

MXB6 

0020 

8029 


R10 

0019 

0025 

0026 0029 
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SYMBOLS 




APPLICATION 


REVISIONS 


NEXT ASSY 

USED ON 

LTm 

OCSCftfPTON 

DATE 

APmOVEO 


7506 




- 









• 












: 






. 



- 










REV 













■ 


□ 













mmmmm 


SHEET 













■ 

















REV STATUS 
OF SHEETS 

REV 







■ 

















SH 

EET 







■ 

















UNLESS OTHCNWtSE SPECIFIED 
DIMENSIONS APE IN INCHES 
TOLEPANCES 
ANGLES Tl* 

3 PLACE decimal ± 010 
2 PLACE DECIMAL± 02 

IDENTIFYING NUMSEPS 
SHOWN IN PAPENTHESES 
FOP PEFEPENCE ONLY 

INTEPPPET DWG IN 
ACCOPDANCE WITH 
MIL STD lOO 

OATE^ 

fiSn Texas Instruments 

yr Jr ) iNcoppopAtto 

Equmnmnt Group DoUm, To/tm 

ENGP 

1 \/ 

APVD 

- j/ X 

;AL, FIND, SCAN MEMORY FOR VALUES-PX990 : 



— \. : 

OESKy^CTlVlTV RELEASE X 

SIZE 

A 

CODE lOENT NO 

96214 

ORAWIMG NO 

945355-9901 ^ 



/ ^ 

[scale 

S— J 

SMBET 1 of 11 1 


Tl>t»tSC 








** SCAN memory PCR VAUJES ** 
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. * 

40*54 * 

400!ii * 

4046 * 

0047 ♦ 

‘4006 * 

4049 * 

4010 * 

4011 * 

4012 * 

4013 * 

40 V4 * 

40V5 * 

4016 * 

4017 * 

4018 * 

4019 * 

0020 * 

4021 ♦ 

0022 * 

4023 * 

0024 * 

042fl * 

0026 * 

4027 * 

002 « * 

4029 * 

0030 * 

4031 * 

0032 * 

0033 * 

4034 * 

4035 * 

0036 * 

0037 * 

0036 * 

4039 * 

0040 * 

0041 * 

0042 * 

4043 •* 

4044 * 

0045 * 

0046 ♦ 

0047 * 

404B * 

0049 * 

0050, * 

4051 * 

0082 * 

4083 * 

0084 ♦ 

0088 * 

0096 « 


PROCEDURE FWD (CPL POINTER)! 

DECLARE (MASK# VAU FIXED (16)1 
nECLARE WORD TESTED FIXED (16) 

CONTROL (TEST POINTER)! 

DECLARE (TEST POINTER# LIMIT POINTER) 

POINTER! 

declare OPTION BIT (1)! 

DECLARE PARMS LITERALLY 

'TEST pointer# limit POINTER# VAL# MASK'! 

CALL FW0PP (CPI. POINTER# PARMS)! 

TEST POINTER « TEST POINTER • 

MOD (TEST POINTER, 2)! 

LIMIT POINTER ■ LIMIT POINTER • 

MOO (LIMIT POINTER# 2) ! 

DU TEST POINTER ■ TEST POINTER 
TO LIMIT POINTER BY 2! 

IF (WORD TESTED S MASK) n VAL THEN DO! 

CALL FWBPRT (TEST POINTER# OPTION)! 

IP OPTION ■ 1 then RETURN! 

END! 

PROCEDURE FBT (CPL POINTER)! 

DECLARE (MASK, VAL) BIT (8)1 
DECLARE BYTE TESTED BIT (8) CONTROL 
(TEST POINTER)! 

DECLARE (TEST pointer# LIMIT POINTER) 

POINTER! 

DECLARE OPTION BIT (1)| 

DECLARE PARMS LITERALLY 

'TEST pointer, limit pointer, VAL# MASK'I 
DECLARE CRL POINTER POINTER! 

CALL FW0PP (CPL POINTER# PARMS)! 

DO TEST pointer • TEST POINTER 
TO limit pointer by 1 ! 

IF (BYTE tested S MASK) ■ VAL THEN 00! 

CALL FWBPRT (test POINTER# OPTION)! 

IF OPTION ■ 1 THEN RETURNi 
END! 

ENO FBT! 

PROCEDURE FRBPP (CPL POINTER# BEGIN PTR# 

END PTR, VAL# MASK) /* PARSE PARAMETERS */ 
DECLARE (VAL# MASK) BIT (16)1 
DECLARE (BEGIN PTR# END PTR) POINTER! 

DECLARE (1 COMMAND PARAMETER LIST# 

3 CPL CONTROL (CPL POINTER), 

8 NUMBER PARMS FIXED (8), 

8 FARM PRESENT (8) BIT (1), 

3 FIRST PARM FIXED (8))| 

DECLARE NUMERIC PARAMETER FIXED (16) 

CONTROL (PARM POINTER) I 
DECLARE (1 CHARACTER PARAMETER, 

3 CHAR PARM CONTROL (PARM POINTER)# 

5 STRING LENGTH FIXED (8)# 

8 PARM STRING (1) CHARACTER (!))» 
DECLARE (CPL POINTER# PARM POINTER) POINTER! 



♦* SCAN memory for values ♦* 


945385*99W1** 


PAGE 00P13 


0057 

★ 

FARM POINTER ■ ADOR (FIRST FARM) > 

0058 

♦ 

/* SET DEFAULT PARAMETER VALUES */ 

0059 


BEGIN PTR ■ 0| 

0060 

* 

END PTR ■ "FFFF"| 

0061 

n 

MASK • 01 

006? 

4r 

IF PAKM PRESENT (1) ■ 1 THEN QO| 

0063 

* 

BEGIN PTR ■ NUMERIC PARAMETER! 

0064 

t 

PARM POINTER ■ PARM POINTER ♦ 21 

0065 

it 

ENDl 

0066 

it 

IF PARM PRESENT (2) ■ 1 THEN 00| 

0067 

it 

END PTR ■ NUMERIC PARAMETER! 

0068 

it 

PARM POINTER B PARM POINTER ♦ 2! 

0069 

it 

END! 

0070 

H 

IF PARM PRESENT (3) b 0 

0071 

it 

THEN CALL ERROR (»'0205")f /* NO RETURN 

007? 

it 

VAL B NUMERIC PARAMETER! 

0073 

it 

PARM POINTFR B PARM POINTER * 2! 

0074 

it 

IF PARM present (4) B 1 THEN 00! 

0075 

it 

MASK B .NOT. NUMERIC PARAMETER 

min 

it 

END! 

0077 

it 

IF END PTR < BEGIN PTR 

0078 

it 

THEN CALL ERROR ("1101'')! /* NO RETURN 

0079 

it 

RETURN! END FW0PP! 

0080 

it 

PROCEDURE FWBPRT (PTR, OPTIONll 

0081 

4t 

DECLARE PTR POINTER! 

008? 

it 

DECLARE OPTION BIT (1)! 

0083 

it 

CALL PRTMEM (PTR, PTR)! 

0 8 4 

it 

CALL GET HEX VLAUE(NO LEADING BLANKS,, 

0085 

it 

ERROR, TERM CHAR,)! 

fe!085 

H 

IF TERM CHAR ,NE, BLANK THEN OPTIONbI! 

0087 

* 

RETURN 

0088 

it 

END FMBPRT 

0089 


lOT ‘FIND’ 


PAGE PPP4 


■* SCAN 

HEHORY FOR 

VALUES 

♦ ♦ 

945355-9901** PAGE 0004 

0091 


* TITLE* 

FI NO 

0093 


# 


FIND WORD AND FIND BYTE COMMAND PROCESSOR 

0093 


* REVISION* 


0094 


♦ 


ORIGINAL 

i09S 


* COHPIJTEPI 

990 

0096 


* ABSTRACT* 


0097 




THE find byte and FIND WORD COMMANDS ARE 

0098 




OECODFO, memory IS SEARCHED WITHIN THE 

0099 


* 


BOUNDS INDICATED UNDER MASK FOR EQUALITY, 

B100 


★ 


when a match is found, the MEMORY ADDRESS 

0101 


* 


AMO CONTENTS ARE PRINTEO, AND A USER RESPONSE 

0103 


t 


IS REQUESTED, A CARRIAGE RETURN TERMINATES 

0103 


* 


THE SEARCH, WHILE ENTRY OF A VALID HEY NUMBER 

0104 


it 


OR A space INDICATES CONTINUATION OF THE 

010S 


♦ 


SEARCH, memory MODIFICATION IS NOT SUPPORTED 

0106 


it 


8Y THTS command. 

0107 


* CALLING SEQUENCE* 

0i0« 




CALLED FROM COMMAND STRING PROCESSOR 

010S> 


♦ CALL 

IHG SEQUENCE* 

0110 


★ 


1-PROCEOURE FWD tCPL POINTERJf 

Jill 


it . 


2-DECLARE (MASK, VAL) FIYID (1 

0113 


it 


2»DECLARE WORD TESTED FIYID (1 

0113 


★ 


p. CONTROL (TEST POINTER! 

0114 


it 


2-OECLARE (TEST POINTER, LIMIT 

011S 


# 


a* POINTER! 

ills 


♦ 


2-DECLARE OPTION BIT (Ul 

0117 


it 


2pdeclare parms literally 

0118 


it 


3»-'TE8T pointer, LIMIT POINTER 

0119 


♦ ' ' 



0120 


♦WORKSPACE 

REGISTER definitions 

0121 


♦ 



0122 

mm 

R0 

EQU 

0 

0123 

0001 

R1 

EQU 

1 

0124 

0002 

R2 

EQU 

2 

0126 

0003 

R3 

EQU 

3 

0126 

0004 

R4 

EQU 

4 

0127 

0005 

»5 

EQU 

5 

0128 

000« 

R6 

EQU 

6 

0129 

0007 

R7 

EQU 

7 

0130 

000S 

R0 

EQU 

8 

0131 

0009 

R9 

EQU 

9 

0132 

000A 

R10 

EQU 

10 

0133 

0005 

Rll 

EQU" 

11 

0134 

000C 

R12 

EQU 

12 4 

0136 

0000 

R13 

EQU 

13 

0136 

000E 

R14 

EQU 

14 

0137 

000F 

R15 

EQU 

15 

0138 


♦ 



0139 



REF 

BLANK 

0140 



REF 

gethyn 

0141 



REF 

PRTMEM 

0142 



ref 

ERROR 

0143 



REF 

ACL,RR 

0144 



OEF 

FWD 



** SCAN 

i MEMORY FOR 

VALUES 

# ♦ 

945355*99»1#3 

RASE 0005 

3145 


0000* 

FNO 

EOU 

S 


3145 

3303 

C08B 


MOV 

«11,R2 

SAVE RETURN 

3147 






2-CALL FW0PP CCPL POINTER, PAR 

3145 

0302 

06A0 


8L 

•FW0PP 

GET parameters INTO RBGISTKRi 


0004 

0044 ' 





314!^ 



* 



2-TEST POINTER • TEST POINTER 

3153 



♦ 



5-MOn (TEST POINTER, 25 P 

0151 

0006 

0818 


SR A 

R8, 1 

ADJUST TO WORD BOUNDARY 

015? 

0308 

0A18 


SLA 

R8, 1 


0153 



★ 



2-LIMIT POINTER ■ LIMIT POINTS 

0134 



* 



5-MOO (LIMIT POINTER, 2)| 

0155 

000A 

0817 


SRA 

R7,l 


0156 

0000 

0A17 


SLA 

«7,l 


0157 



♦ 



2 -no TEST POINTER i TEST POINT 

0158 



* 



5-TO LIMIT POINTER BY 2| 

0159 


000E' 

FWO10 

EQU 

S 


0163 



* 



3-IF (WORD TESTED & MASK) ■ VA 

0161 

000F 

C119 


MOV 

*R8,R4 

WORD UNDER TEST 

0162 

30 10 

4105 


8ZC 

R5,R4 

AND-eO WITH MASK 

0183 

00 12 

8184 


c 

R4,R6 


0164 

00 14 

1603 


JNE 

F0D20 

IF NO MATCH 

0165 



if 



4-CALL FWBPRT (TEST POINTER, 0 

0166 

3016 

06AO 


8L 

•FW8PRT 



0016 

0070* 





0187 



it 



4-If OPTION • 1 THEN RETURN! 

0166 

001 A 

1044 


JMP 

FW8END 


0169 



Hr 



4-ENDI 

0173 


001C 

FND50 

FOU 

S 


0171 

00 IC 

aiC9 


C 

R8.R7 


0172 

00 IE 

1432 


JHE 

FWBENf) 


0173 

0020 

0SC9 


INCT 

R8 


0174 

0022 

10F5 


JMP 

FWO10 




** 8CAIV HEMORY fOR VALUES *★ 945355-R9PII** PA6E PdP6 


§176 



♦ 



l»PROCIDURf P0T (CPL POINTER)! 


0177 



* 



2-DECLARE (MASK, VAL) BIT (8)1 

O 

0178 



* 



2-pDECLARE byte tested bit (8) 


0179 



* 



2» (TEST POINTER)! 


0180 






2»0ECLARE (TEST POINTER! LIMIT 


0181 



t 



2p POINTER! 


018!» 



mr 



2*0ECLARE option bit (1)! 


0183 



# 



2-DECLARE PARMS LITERALLY 


0184 



* 



3*'TE8T POINTER! LIMIT POINTER 


018S 



t 



2-DECLARE CPL POINTER POINTER! 


0186 




DEF 

F8T 



8187 


0024» 

F0T 

FQU 

* 



0188 

0024 

CP8B 


WOV 

RUfR2 

SAVE RETURN 


0189 



« 



2-CALL FW8PP (CPL POINTER! PAR 


0190 

0026 

06A0 


BL 

PFW8PP 




0^28 

0M44» 






0191 

0C^2A 

0A85 


SLA 

R6,8 

USE LEAST SIGNIFICANT BYTE 


0192 

0W2C 

0A85 


SLA 

R5,9 

OF MASK AND VAL 


0193 






2-00 TEST POINTER ■ TEST POINT 


0194 






S-TO LIMIT POINTER BY U 


0195 


002E» 

FBTli 

EQU 

$ 



8196 



♦ 



3-IF (BYTE TESTED S MASK) ■ VA 


0197 

0021 

D119 


H0V8 

AR8.R4 



0198 

0030 

8105 


SZCB 

RS,R4 

BYTE TE8TE0 & MASK 


0199 

0032 

9184 


C8 

W4,R6 



0200 

00 34 

1603 


JNE 

FBT20 

IF NO MATCH 


0201 



t 



4-CALL FW9PRT (TEST POINTER! 0 


0202 

0036 

06A0 


BL 

HFWBPRT 


(f" 


0030 

0070 » 






0203 



'# 



4-IF OPTION ■ 1 then RETURN! 


0204 

003 A 

1034 


JMP 

FWBENO 



0205 



it 



4-END! 


0206 


003C 

F8T?e 

EOU 

S 



0207 

003C 

81C8 


C 

H8,R7 



0208 

0R3E 

1432 


JHE 

fwbend 



0209 

0t?!40 

0889 


INC 

H8 



0210 

0042 

1MF5 


JMP 

FRT10 



0211 



♦ 



1-ENO FBTl 




•* 3CA^ WEHORY FOR VALUES 


945355*99P1»* 


PAGE 0007 


** 


0213 



* 



0214 



* 



0215 






0216 



* 



0217 



* 



021B 



ilr 



0219 



♦ 



0220 






0221 



* 



0222 






0223 



t 



0224 






022S 



« 



0226 






0227 



it 



022B 



it 



0229 



it 



023U 


0001 

PR^^PST 

EQU 

1 

0231 




DEF 

FW8PP 

0232 


0044 » 

FW8PP 

EQU 

S 

0233 

0044 

D06A 


M0V8 

PPRMP8T(R 


0046 

0001 




0234 



it 



0235 

0<?'48 

09CA 


INCT 

R10 

0236 



it 



0237 



H 



0230 

00 4 A 

04C8 


CLP 

RB 

0239 



it 



024P» 

004C 

0707 


SETQ 

R7 

0241 



it 



024g 

004F 

04C5 


CLP 

R5 

0243 



# 



0244 

00 50 

0A11 


SLA 

Rl, 1 

0245 

0092 

1701 


JNC 

FWBPPg 

0246 



it 



0247 



it 



024B 



it 



0249 

0054 

C23A 


MOV 

*R10+,RR 

0293 


00 56 » 

Fwapp? 

EQU 

$ 

0251 



if 



0292 

0(-'’56 

0AU 


SLA 

Rl,l 

0 253 

0W5H 

1701 


JNC 

FW0PP4 

0254 



it 



02SS 



♦ 



0236 



H 



0297 

00SA 

CIFA 


MOV 

*R10+,R7 

0293 


0MSC* 

FWBPP4 

EQU 

$ 

0259 



♦ 



0260 

005C 

0A11 


SLA 

Rl,l 

0261 



♦ 



0262 

005F 

1710 


JNC 

FW8E1 

0263 



it 



0264 



it 



0265 

0060 

C10A 


MOV 

4R10+,R6 


1- PROCEOURE FWBPP (CPL POlNTE 
3»EN0 PTR, VAL» MASK) /* PARS 

2- DECLARE CVALf MASK) BIT tlS5 
g. DECLARE (BEGIN PTR, END PTR) 

9-DECLARE (1 COMMAND PARAMETER 
3* 3 CPL CONTROL (CPL 

Am 5 NUMBER PARMS FIXE 

4 - 5 PARM PRESENT (S) 

Am g FIRST PARM FIXED 

g-DECLARE NUMERIC PARAMETER FI 
g- CONTROL (PARM POINTER)! 
g-DECLARE (1 CHARACTER PARAMET 

3- 3 CHAR PARM CONTROL 

Am 5 STRING LENGTH FIX 

Am 5 PARM STRING (1) C 

g»DECLARE (CPL POINTER, PARM P 


0),R1 ISOLATE PRESENCE BITS 

g»PARM pointer i ADDR (FIRST P 

g*-/* SET default parameter VAL 
g-BEGIN PTR ■ 01 

g*END PTR ■ "FFFF"I 

g.MASK >01 3 

g*IF PARM PRESENT (1) ■ 1 THEN 

IF NOT PRESENT 

3-BECIN PTR ■ numeric PARAMETE 
3.PARM pointer ■ PARM POINTER 
3*END> 


?mlf PARM present (2) ■ I THEN 
IF NOT present 

3*FND PTR ■ NUMERIC PARAMETER! 
3»PARH pointer ■ PARM POINTER 
3*ENn| 


9*IF PARM present (3) ■ 0 

3-THEN call ERROR («020B“)! /* f 
IF RQO PARM MISSING 
2,VAL ■ NUMERIC PARAMETER! 
g»PARM POINTER i PARM POINTER 


** SCA^i HEHOf^Y FOR VAMJES ** 


949358*§9Pll** 


PAGE P0i8 


02S6 

i:P67 

0«62 

0411 

♦ 

SLA 

Rif 1 

0268 

0269 

0064 

1702 

♦ 

JNC 

FW8PP6 

0270 

0066 

C16A 


MOV 

*P10f RS 

0271 

0272 

0068 

0545 

« 

INV 

RS 

0273 


006A ’ 

F^^8PP6 

EQll 

$ 

0274 



t 



0275 

0276 

006A 

8207 

# 

C 

R7fR0 

0277 

006C 

1A17 


JL 

FW8E2 

0278 

0279 

, 006 E 

04S8 

♦ 

8 

*Rll 


2 » 1F farm present (4) • 1 THEm(J 

IF NOT PRESENT 

3»MA8K ■ .NOT. NUMERIC PARAMIT 
3-END? 

g-IF END PTR « BEGIN PTR 
3-THEN CALL ERROR ("1101")? /* 

P-RETURN? END PWBPPI 






★ * SCA'j HeMD^Y FOR values ** 




PAGE P0ei9 





t 



l^PROCEOURE FWBPRT (PTR» OPTIO 

'HZii?. 



* 



2*DECLARF PTR POINTERI 




4r 



?-necLARE OPTION bit (1)1 

02S4 



# 



?*CALL PRTMfM (PTR, PTR) I 

K)2a5 


0^70 ' 

FWBPkT 

FQLi 

S 


02d6 

0070 

0420 


HLWP 

PACL 



0072 

0000 





02rt7 

0 7 4 

C240 


HDV 

RA,R9 


0?aH 

0P75 

C280 


MOV 

H8,W10 


0PH<) 

05’ 7 8 

■ 08A0 


PL 

PPRTMEM 



007A 

00 00 




1 

023U 

007C 

1009 


JMP 

FWBPT2 

ESC ENTERED 

0291 



« 



2-CALU GET HEX VLAUE(NO LEADIN 

029? 

0293 

00 7F 

0f>!80 

08 A!?J 
0000 


8L 

PGETHVR 

3*prrqr,term char ,) f 

0894 

0P82 

1 0 0 S 


JMP 

FwflPT? 

ERROR OR EXC 

0295 

0295 

0P04 

10 00 

♦ 

MOP 


2«TF TERM CHAR ,NE, BLANK THEN 

0297 

0F86 
0 » 8 8 

9809 

0000 


CB 

R9,«BLANK 


0298 


1502 


JME 

FW0PT2 


0299 

0^'SC 

05EO 


INCT 

PRU*2(R13) 



0^8E 

00 16 





0300 


0090 * 

FkBPT2 

FQLl 

S 


0301 

0090 

0420 


BLWP 

PPR 



0P92 

00 0 0 





0302 



♦ 



2-RETURN 

0.503 

0304 

0094 

045B 


B 

*Pll 

2.EN0 FWBPRT 


♦ » SCAfi MENORf FOR VAl"ES ** 


9A535S^99P)1** 


PAGE 5^010 


030^ 

0307 


0096' 

* 

FW8E1 

FQIJ 

$ 

03id» 

0 ?i 9 5 

080A , 


LI 

R10,F0205 

0309 

0S9R 

0KRA 

0805 

100S 


JMP 

FW8FHR 

0310 


009C 

FWBE2 

F9U 

S 

03 1 1. 

0P'9C 

080 A 


LI 

Ri0»>m3 

03 IR 

0t^9F 

1113 

00 AH ' 

FWBERR 

FQU 

$ 

0313 

0MA0 

05AO 


RL 

♦ ERROR 

03 1 4 

00A8 

0000 
00A4 » 

FWBEND 

FQU 

% 

0315 


0452 


B 

*R8 

0315 




END 


0000 EPS 






ERROR PROCESSING 
»'NS0S" ROD PARM MISSING 



"DPlS" END<iEGlN 


return to cmno string PROC 




968 • 980 CONCORDANCE 



945355 - 9901 ** 

PAGE 

0011 


$ 


0145 

0159 

017M 

0187 

0195 

0806 

0238 

0860 

0858 



0273 

0285 

0300 

0307 

0310 

0312 

0314 



ACL 


0143 

0886 








BLANK 


0139 

0897 








ERROR 


0142 

0313 








FBT 

0187 

0186 









FBT10 

0195 

0210 









FB120 

0206 

0800 









FW6E1 

0307 

0262 









EW8E2 

0310 

0277 









FWBEND 

0314 

0168 

0172 

0204 

0208 






PWBERR 

0312 

0309 









FWBPP 

0232 

0148 

0190 

0231 







FWBPPS 

0250 

0845 









FWBPP4 

0258 

0253 









FWBPP6 

0273 

0268 









FWBPRT 

0285 

0166 

0802 








FWBPTR 

0300 

0290 

0894 

0298 







FWD 

0145 

0144 









FWO10 

0159 

0174 









FWD20 

0170 

0164 









GETHXN 


0140 

0293 








PRMPST 

0230 

0233 









PRTmEM 


0141 

0899 








R0 

0122 










R1 

0123 

0233 

0844 

0258 

0860 

0867 





H10 

0132 

0833 

0835 

0849 

0857 

0865 

0870 

0888 

0308 

0311 

Rll 

0133 

0146 

0188 

0879 

0899 

0303 





Rl2 

0134 










R] 3 

0135 

0899 









RJ A 

0136 










Rl5 

0137 










Ra 

0124 

0146 

0188 

0315 







R3 

0125 










R4 

0126 

0161 

0162 

0163 

0197 

0198 

0199 




R5 

0127 

0168 

0198 

0198 

0848 

0870 

0871 




R6 

0128 

0163 

0191 

0199 

0265 






R7 

0129 

0155 

0156 

0171 

0807 

0840 

0267 

0876 



R8 

0130 

0151 

0158 

0161 

0171 

0173 

0197 

0207 

0809 

0238 



0249 

0276 

0887 

0289 






R9 

0131 

0887 

0897 








RR 


0143 

0301 









THeRE ARE 004t« SYMBOLS 




OKAWING NO 

945356-9901 


1 of 6 













*1 1N#UT CHARACTfR 3TRfNS •* 9498Si»99Al ** PASS i9Jg 


§••3 

- # 

PROCEOURf SET PIEUD 

•§•4 


CALL 6ET8UPfPTR)l 

iflis 

♦ 

CHAR CNT f PI 

et98 


TERM CHAR« 01 

§887 

♦ 

IF NO LEA0IN6 BLANKSi»l THEN OOf 

8888 

t 

DO UNTIL CHAR ,NE, BLANK 

8889 

* 

CALL GETCHR (CHAR)f 

8818 

♦ 

ENOI 

8811 

* 

ENDI 

8819 


DO UNTIL CHAR ,EQ, BLANK 

8813 


.OR, CHAR .EQ, »CR» .OR, CHAR ,E9, ',»l 

8814 


IF CHAR ,EO, IBS' THEN 

8818 

♦ 

CHAR CNT • MAX10.CHAR CNT-IH 

8816 

# 

ELSE IF char ,EQ, iRUBOUT' THEN 

8817 


CHAR CNT ■01 

8818 

♦ 

ELSE OOf 

8819 


IF CHAR CNT 4 30 THEN DOl 

8888 

♦ 

CHAR CNTpCHAR CNTaII 

8881 

♦ 

CSTRINGfCHAR CNT5 ■ CHARf 

8888 

# 

ENDI 

8883 


ENOI 

0884 

« 

CALL GETCMR(CHAR5| 

8888 

# 

ENDI 

8888 

# 

TERM CHR •CHARI 

8887 

# 

END GET FIELD 

0888 


IDT IGTFELD* 

8889 

^ t 

TITLEI GTFELO 

8830 

♦ 

INPUT character field 

8831 

t 

revisioni 

8838 

t 

original 

8833 

# 

COMPUTERI 990, ASM 

8834 


ABSTRACT! GET FIELD INPUTS A CHARACTER STRING ONE 

8838 

♦ 

CHARACTER AT A TIME AND BUILDS A BUFFER 

8838 


CONTAINING THE STRING, 8EPERATE ENTRY POINTS 

8837 

♦ 

LEADING BLANKS, THE STRING IS TERMINATED 

8838 

t 

ON A COMMA OR »CRi, A STRING GREATER THAN 

8839 

t 

3i CHARACTERS IS TRUNCATED ON THE RIGHT 

8840 

# 

WITHOUT ANY warning. 

8841 

♦ 

CALLING SEOUENCEI 

8048 

t 

BL 0GETFLN 

8843 

t 

DOES NOT SKIP LEADING BLANKS 

8844 

♦ 

BL 0GETFLD 

8848 

♦ 

SKIPS leading blanks 

8848 



8847 

# 

REF’S AND DEFI8 

8848 

♦ 


8849 


OEF 6ETFLD 

•880 


DEF GETFLN 

§881 


REF COMMA 

§888 


REF BLANK 

8083 


REF ESC 

•084 


REF EOR 

8988 


REF PERIOD 

8886 


REF BS 



*• INPUT CMARACTtR STRING *♦ 94538«w99il** PAGE 00R3 


0097 




REE 

RUBOUT 

0099 




REE 

GETCHR 

0099 




REE 

GET8UE 

0090 




REE 

RETBUE 

0091 




REE 

LWP 

0092 




REE 

RWP 

0093 




REE 

ACU 

0094 




REE 

RR 

0099 






0099 



♦WORKSPACE 1 

REGISTER DEFINITIONS 

0097 



♦ 



0099 


0000 

R0 

EQU 

0 

0090 


0001 

R1 

EOU 

1 

0070 


0002 

R2 

EQU 

2 

0071 


0003 

R3 

EQU 

3 

0072 


0004 

R4 

EQU 

4 

0073 


0009 

R5 

EQU 

5 

0074 


0006 

R6 

EQU 

6 

0079 


0007 

R7 

EQU 

7 

0079 


0009 

R9 

EQU 

8 

0077 


0009 

R9 

EQU 

9 

0079 


000A 

R10 

EQU 

10 

0079 


0009 

Rll 

EQU 

11 

0090 


000C 

R12 

EOU 

12 

0091 


0000 

R13 

EQU 

13 

0092 


000E 

R14 

EQU 

14 44 

0093 


008P 

R19 

EQU 

19 

0094 



♦ 



0099 



♦ 



0099 



♦ 

REGISTER ASSIGNHENTS 

0097 



♦ 

R10 

• CHAR 

0099 



♦ 

R9 

• POINTER TO BUFFER 

0099 



♦ 

R7 

• TEMP 

0090 


0000 < 

GETPIN iOU 

S 

0091 

0000 

04C0 


CLfi 

R0 

0092 

0002 

1001 


JMP 

GET010 

0093 


0004 » 

GETFLD EOU 

S 

0094 

0004 

0700 


8ET0 

R0 

0099 


0000’ 

6ET010 EOU 

S 

0099 




♦ AUUOC 

, COPY, LINK 

0097 

0006 

0420 


8UWP 

• ACL 


0006 

0000 




0099 





3*CALL GETBUEtPTRJf 

9099 



* 

♦ GETBUE 

0100 

000A 

0420 


BI.WP 

• OETBUF 


000C 

0000 




0101 

0001 

C74A 


MOV 

R10,*R13 PLACE • IN CALLER WP 

0102 





3»CHAR CNT ■ 01 

0103 





3. TERM CHARb 01 

0104 

0010 

04DA 


CLP 

♦ Rif 

0199 

0012 

C20A 


MOV 

R10,R9 

0109 



♦ 


3*IE NO leading BLANKS»«l THIN 

0107 

0014 

C000 


MOV 

R0,R0 

0109 

0019 

132P 


JEO 

GETE30 ♦♦♦NEED TO FIX C0MMENT8^#ba 

0109 





4»D0 UNTIL CHAR ,NE, BLANK 



♦♦INPUT CMARACTfR 

STRING 

** 

94S396.9901** 

PAGE 0004 

• U« 


0018f 

GCm0 

EQU 

S 


till 



♦ 



4.CALU GETCHR (CHAR) 1 

tut 

0018 

06A0 


BL 

P6ETCMR 



001 A 

0000 





tU3 



if 



4ifEN0 1 

tll4 

001C 

980A 


CB 

R10,PBLANK 



001E 

0000 





tll9 

0020 

13PB 


JEO 

GETF10 


eit« 


0022' 

GETP2S) 

lOU 

S 


iii7 

0023 

980A 


CB 

RlBiPPERIOD 



0024 

0000 





Jilt 

0026 

13F8 


JEO 

6ETF1B 


0119 






3»END> 

flat 



« 



3»D0 UNTIL CHAR ,E0, BLANK 

tiai 



n 



4..0R, char ,EQ, 'CR» ,0R, CH 

0123 

0028 

900 A 


CB 

R10,#BUANK 



002A 

0016' 





0 ias 

002C 

1327 


JEQ 

GETF40 


0104 

002E 

980A 


CB 

R10,#EOR 



0030 

0000 





aias 

0032 

1324 


JEO 

GETP40 


1128 

0034 

980A 


CB 

R10,#ESC 



0036 

0000 





0127 

0036 

1321 


JEO 

GETF40 


0128 

803A 

9S0A 


CB 

R10,#COMMA 



003C 

0000 





0129 

0f3f 

1316 


JEO 

6ETP40 


0130 



if 



4.IP CHAR ,fO, »88' THEN 

0131 

0040 

988A 


CB 

R10iRBS 



0042 

0000 





0132 

0044 

1607 


JNE 

GETF29 


0133 



it 



B.CMAR CNT • MAX(0,CHAR CNT*13 

0134 

0048 

06D9 


8WP0 

♦R6 


0139 

0048 

0618 


DEC 

tRB 


0138 

004A 

1902 


JST 

G1 


0137 

004C 

1301 


JEO 

Gl - 


0138 

0046 

0998 


INC 

♦R8 


0139 


0080' 

Gt 

EQU 

S 


0140 

0890 

0609 


SNPB 

♦ RB 


0141 

0092 

1011 


JMP 

GETF30 


0142 



t 



4»EL8E IF CHAR ,60, 'RUBOUT' T 

0143 


0094' 

0ETF88 

EQU 

S 


0144 

8094 

900A 


CB 

R10,PRU8OUT 



0096 

0000 





0149 

0098 

1602 


JNE 

GETF27 


0146 



n 



S-CHAR CNT ■ 01 

0147 

009A 

0408 


CIR 

♦ R8 

2ND BYTE IS DON'T CARE 

0148 

009C 

100C 


JMP 

GETF30 


0149 



* 



4»ELSi ODf 

0190 


0096' 

GETR8T 

EOU 

S 

3 

0191 



# 



9*IF CHAR CNT 4 30 THEN DCf 

0192 

0096 

0207 


LI 

R7,29*296 

30 CHARS w LEFT BYTE 


0060 

1000 





0193 

0062 

9607 


CB 

R7f4RB 


0194 

0004 

1108 


JLT 

6ETF30 




** INPUT CHARACTBR STHINS ♦♦ 945396-.99P1** PAGf PiPS 


0199 



« 



6*CHAR CNTtCMAR CNT*ll 

0198 

0066 

06D6 


8WPB 

»R8 


0197 

0068 

0996 


INC 

*R6 


0198 

0064 

06D9 


SWPB 

*R8 


0199 



♦ 



6»CSTRINC(CH4R CNT) ■ CHARf 

0100 

006C 

0106 


MOVB 

*R8fR7 


0161 

006C 

0687 


8RL 

R7|8 


0169 

0070 

A1C6 


A 

R6,R7 


0163 

0072 

0987 


INC 

R7 

(SKIP TERM CHAR) 

0164 

0074 

09CA 


MOVB 

R10»*R7 


0169 



♦ 



9»END| 

0166 



♦ 



4»EN0f 

0167 


0076' 

CSTF3(P 

EQU 

S 


0168 






4*CAU SETCHR(CHAR) 1 

0169 

0076 

06A0 


BU 

PGETCHR 



0078 

001A* 





0170 



# 



3»ENDl 

0171 

0074 

1003 


4MP 

GETP20 


0179 


007C» 

6ETF40 

EOU 

S 


0178 



♦ 



3*-TERM CHR »CHAR» 

0174 

007C 

OA0A 


MOVB 

R10,#1(R8) 



007E 

0001 





0179 






2»EN0 SET FIELD 

0176 

0060 

0420 


BUWP 

PRR 



0062 

0000 





0177 

0064 

C280 


MOV 

R0iRl0 


0176 

0066 

0499 


RT 



0179 




END 




0000 EPS 


PAGE 0006 


B6f • 

|»8 CONCORDANCE 





• 


0090 

0093 

0099 

0110 

0116 



0172 





ACL 


0063 

0097 




blank 


0052 

0U4 

0122 



88 


0050 

0131 




CONMA 


0081 

0128 




eoR 


0054 

0124 




E8C 


0093 

0126 




81 

§139 

013# 

0137 




SET010 

§095 

0092 





8CT0UR 


0899 

0100 




8ETCHR 


0098 

0112 

0169 



8ETR10 

0110 

0119 

0118 




8lTRa§ 

0116 

0171 





eiTRiS 

0143 

0132 





8ETR27 

0150 

0149 





8ITR30 

0167 

0108 

0141 

0148 

0194 


8fTR4§ 

0172 

0123 

0129 

0127 

0129 


8ITRLB 

0093 

0049 





8fTRLN 

0090 

0090 





LWR 


0061 





RC«IOO 


0099 

0117 




R§ 

0066 

0091 

0094 

0107 

0107 

0177 

R1 

0069 






RIB 

0078 

0101 

0104 

0109 

0114 

0117 



0131 

0144 

0164 

0174 

0177 

nil 

0079 






RlS 

0060 






Rl8 

0061 

0101 





Rl4 

0082 






Rli 

0083 






R2 

0070 






R3 

0071 






R4 

0072 






R8 

0073 






R6 

0074 






R7 

0078 

0152 

0193 

0160 

0161 

0162 

R8 

0076 

0109 

0134 

0139 

0138 

§140 



0198 

0160 

0162 

0174 


R8 

0077 






RETBUP 


0060 





RR 


0064 

0176 




RUIOUT 


0097 

0144 




RWR 


0062 






9^5356-9901** 

0}39 §143 §1S§ §167 


§]2§ §124 §12i §12(1 


§163 §164 

0147 §153 §156 0157 


THiRE ARE 


0041 


SVMI01.S 



A 


1 APPLICATION 

REVISIONS 1 

NEXT ASSY 

USED ON 

LTn 

DCSCPttPTlON 

DATE 

APPfK>VEO 


7506 

- 



- 



* 

' 


- 






• 



: 






. 



- 






, 





REV 













m 


□ 















SHEET 













m 

















— 

REV STATUS 
OF SHEETS 

REV 







B 

















SH 

EET 







B 

















UNLESS OTHEPfWISE SrcCtriCO 
DIMENSIONS APIE IN INCHES 
TOLERANCES 
ANGLES 

J PLACE DECIMALS 010 
2 PLACE DECIMAL 02 

^^WN DATE y 

fiiri Texas Instruments 

X J INCORFORAIED 

Equipfmnt Gnmp Dtifm. T§km$ 

iDENTirriNQ NUMSEfflS 
SHOWN IN PARENTHESES 
FOR REFERENCE ONLY 

INTERPRET DWG IN 
ACCORDANCE WITH 
MIL STO lOO 

ENGR 

QA yy 

APvo yv 

• 

: AL, GTHEX, INPUT HEXADECIMAL NUMBER-PX990 ; 


CONTR fSlC^y 

oesk^Activity release 

SIZE 

A 

CODE IC3ENT NO 

96214 

ORAWINQ HO 

945357-9901 ' 

/ \ 

SCALE 

REV. 

J 


Tf-I 







** INPUT HEXAOCCIMAL NUMBER ** 945357i»99Pl •* 


PA6E i0P8 




t 

PPOCEDUPE GET HEX VALUEfLO 8LNK , VALUE , ER«OR » 

0004 


* 

TERM CHAR, NO VALUE INPUT)! 

000 S 



IF LO BLNK then call GET FIELO(PTR, 

0000 


# 

ALLOW LEADING BLANKS)! 

0007 


♦ 

ELSE CALL GET FIELO(PTR,NO LEADING BLANKS) 

0008 


♦ 

PTP save fPTR! 

0009 


* 

CHAR COUNT ■ PTR.CHR CNT! 

0010 


* 

PTRsPTRfl! 

0011 


# 

TERM char i PTRtTERM CHAR! 

0012 



PTR • PTR4U 

0013 


* 

IF TERM CHAR«»eSC' THEN RETURN (ERROR) 1 

0014 


♦ 

IF CHAR COUNTuP THIN RETURN (NO VALUE INPUT)! 

001S 


« 

VALUE ■ 0! 

0016 


4r 

DO WHILE char COUNT ,6T, 0 ! 

0017 


♦ 

CHAR • PTR, CHAR 

0018 


« 

PTR«PTR+1! 3 

0019 


* 

Ii0! 

0020 


# 

00 while 1416 AND CHAR.NE.CLISTd) ! 

0021 


* 

I*I*1 

0022 


# 

END! 

0023 


t 

IF I .E0.16 THEN 00! 

0024 


t 

CALL ERROR (HEX CONV) ! 

0025 



RETURN (ERROR) 

0026 


# 

IF VLAUI P »FFF» then RETURN (ERROR) ! 

0027 


♦ 

VALUE * VALUE*16 ♦ I! 

0028 


H 

CHAR COUNT ■ CHAR COUNT •!! 

0029 


♦ 

end 

0030 



PTR ■ PTR SAVE! 

0031 


# 

CALL RET8UF(PTR)! 

0032 

0033 


♦ 

end get HEX VALUE! 
IDT *GTH|K» 

0034 


# 

TITLE* GETHEX 

0035 


# 

INPUT HEX VALUE 

0036 


t 

REVISION! 

0037 


* 

ORIGINAL 

0036 


* 

COMPUTER* 990, ASM 

0039 


# 

ABSTRACT* GETHEX WILL INPUT A HEXADECIMAL VALUE 

0040 



FROM THE KEYBOARD AND CONVERT IT TO 

0041 


* 

binary, separate entry points allow/excluoi 

0042 


t 

leading blanks, an error exit is taken if 

0043 


# 

an invalid value is input OP NO VALUE IS 

0044 


llF 

INPUT, THE terminating CHAR IS RETURNED, 

0045 


♦ 

calling SEQUENCE* 

0046 


# 

BL iGETHEX «• SKIPS LEADING BLANKS 

0047 


# 

m 

0048 



BL PGETHXN • DOES NOT ALLOW LEADING BLANKS 

0049 


♦ 

RETURN • 

0050 


« 

R10 « value 

0051 


♦ 

R980 i terminator 

0052 


♦ 

CALL+2 ■ ERROR OR ESC 

0053 


♦ 

CALL+6 • NO VALUE RETURNED (IMMEDIATE CR 

0054 


t ' 

OR BLANK OR COMMA) 

0055 


# 

CALL^4 ■ VALUE RETURNER 

0056 






** INPUT MEXAOECIMAI. NUMBEP ** 945357»99il •* PAGE P8IJ53 


0037 



4f 

REFIS ANO DEE'S 

0038 



♦ 



0059 




DEE 

gethex 

0060 




DEE 

GETMXN 

0061 




REE 

GETELD 

0062 




REE 

geteln 

0063 




REE 

ERROR 

0064 




REE 

ESC 

0063 




REE 

CUST 

0066 




REE 

GET8UE 

0067 




REE 

RET8UE 

0068 




REF 

LWP 

0069 




REF 

Rwp 

0070 




REE 

ACL 

0071 




REE 

RR 

0072 






0073 



♦WORKSPACE 

REGISTER DEFINITIONS 

0074 



* 



0075 


0000 

90 

EQU 

0 

0076 


0001 

R1 

EQU 

1 

0077 


0002 

R2 

EQU 

2 

0078 


0003 

R3 

EOU 

3 

0079 


0004 

R4 

EOLl 

4 

0080 


0005 

R5 

EOU 

5 3 

0081 


0006 

R6 

EOU 

6 

0082 


0007 

R7 

EQU 

7 

0083 


0008 

R8 

EQU 

0 

0084 


0009 

R9 

EQU 

9 

0085 


000A 

R10 

EQU 

10 

0086 


0005 

Rll 

EOU 

11 

0087 


000 c 

R12 

EQU 

12 

0088 


000D 

R13 

EQU 

13 

0089 


000E 

R14 

EQU 

14 

0090 


000F 

R15 

EQU 

15 

0091 



* 



0092 


0100 

DP00 

EQU 

»0li0 

0093 



* 



0094 



* 

REGISTER ASSIGNMENTS 

0095 



* 



0096 



* 

R10 

RUNNING PTR IN CHAR STRING BUFFER 

0097 



* 

R9 

TERM CHAR 

0098 



<* 

R8 

SAVE FOR PTR TO CHAR STRING BUEEER 

0099 



* 

R7 

CHAR COUNT 

0100 



♦ 

R6 

VALUE TO BE returned 

0101 



* 

R5 

CHAR 

0102 



* 

R4 

HEX ARRAY COUNT 

0103 



* 

R3 

TEMP 

0104 



* 


IwPROCEOURE GET HEX VALUECLO B 

0105 



* 


P.TERM char, NO VALUE INPUT) I 

0106 


0000' 

getmxn 

EQU 

$ 

0107 

0000 

04C9 


CLR 

R9 LD BLNK f FALSE 

0108 

0002 , 

1001 


JMP 

GET010 

0109 


0004 t 

GETHEX 

EOU 

S 

0110 

0004 

0709 


SETO 

R9 LD BLNK m true 

0111 


0006 t 

GET010 

EQU 

$ 


• ♦ INPUT HSXAOECIHAL number ♦* 94S357«*9901 


0112 



* *ALLOC 

iCOPY,LlNK 

0113 

0i0« 

0420 


BLWP 

PACL 


ii^0« 

0000 




0114 






011S 






0116 

0f0A 

C249 


MOV 

R9,R9 

0117 

000C 

1303 


JEO 

GET020 

01 1« 

0P0E 

06A0 


BL 

PGETFLD 


00 IP 

0000 




01 IP 

0B12 

1002 


JHP 

GET030 

0l2i 



t 



0121 


0014’ 

eiT02i^ 

EOU 

s 

0122 

0014 

06A0 


BL 

•6ETFLN 


0016 

0000 




0123 


0018» 

GCTi3i 

EQU 

S 

0124 



t 



0125 

0016 

C20A 


MOV 

R10,R6 

0126 



* 



0127 



♦ 



0128 

001A 

DIFA 


M0V8 

♦ Rl^'A.R? 

0129 

001C 

0987 


8RL 

R7»6 

0130 



« 



0131 






0132 

00 IE 

D27A 


MOVB 

♦R10+,R9 

0133 



♦ 



0134 

0020 

9609 


C0 

R9,#ESC 


0022 

0000 




0135 

0024 

1603 


JN| 

GET035 

0136 

0026 

066D 


DECT 

♦Rll#2(R13) 


0026 

0016 




0137 

002A 

101F 


JHP 

GET070 

0136 


002C’ 

GETf3S 

EQU 

S 

0139 



* 



0140 

002C 

C1C7 


MOV 

R7,R7 

0141 

002E 

1603 


JNE 

GET036 

0142 

0030 

05EO 


INCT 

PRllt2CRl3) 


0032 

0016 




0143 

0034 

101A 


JHP 

GET070 

0144 






0145 


0036 ♦ 

6iTi3a 

EQU 

S 

0146 

0036 

04C6 


CLR 

R6 

0147 



# 



0146 


0038 « 

GeT«40 

EQU 

S 

0149 






0150 






0101 

0036 

017A 


MOVB 

♦R10*»R5 

0IS2 



# 



0153 

003A 

04C4 


CLP 

R4 

0154 



# 



0165 


003C» 

SETi50 

EQU 

$ 

0156 

003C 

0203 


LI 

R3»CLST 


003E 

0000 




0157 

0040 

A0C4 


A 

R4»R3 

0156 

0042 

94C5 


CB 

R5,*R3 

0159 

0044 

130B 


JEO 

GET060 


•* page P 0«4 

C 

P*ir UD ItNK THIN CALt SET FIE 
3»AUI.0W LEADING BLANKS) | 

2*fLSI CALL SET FIELOCFTR,NO L 

p»PTR SAVE ■PTPI 

2»CHAR COUNT ■ PTR*CHR CNTI 
2 pPTRiPTR+ll 

?*TiRM char ■ PTR.TERH CHARI 
2..PTR « PTR*U 

g.IF TERM CHAR«»ESC» THEN RETU 

C 

8»IF char COUNTtP then RETURN! 
8«pVALUI p pi 

2»00 WHILE CHAR COUNT ,6T, 0 I 

3.CHAR i PTR.CHAR 
3»PTRpPTR+tl 

3»IP0I 

3»D0 WHILE IPIS AND CHAR,NI,CL 

c 



PASf ilZStiS 


** INPUT hexadecimal number ♦* 945357«99(^1 ** 


01§M 



« 



3 

0161 

0046 

0584 



INC 

R4 

0162 

0163 

0048 

0294 

♦ 


Cl 

R4,16 


004A 

0010 





0164 

018« 

004C 

16F7 

* 


JNE 

GET050 

0166 







0167 


004E' 

GET055 

EOU 

$ 

016B 

00 4F 

020A 



LI 

R10,DP00 


0050 

0100 





0169 

0052 

06A0 



BL 

•ERROR 


0054 

0000 





0170 

0171 

0066 

066D 

♦ 


DECT 

•R11*2(P 


0058 

0016 





0172 

005A 

1007 



JMP 

GET070 

0173 


006C 

GET060 

EQU 

S 

0174 

0175 

005C 

0286 

t 


Cl 

R6»0FFF 


005E 

0FFF 





0176 

0177 

0060 

1PF6 

« 


JH 

GET0S5 

017« 

0062 

0A46 



SLA 

R6,4 

0179 

0180 

0064 

A184 

♦ 


A 

R4,R6 

0181 

0066 

0607 



DEC 

R7 

0162 

0183 

0068 

16E7 



JNE 

GET040 

0184 


006A» 

GET070 

EOU 

$ 

0195 

0196 

006A 

C289 



MOV 

R8,R10 

0197 







0188 




♦ RETBUF 

0199 

006C 

0420 



BLRP 

•RETSUF 


006E 

0000 





0190 

0191 

0070 

CB49 



MOV 

R9*8R9*2 


0072 

0012 





0192 

0074 

CB46 



MOV 

«6,*R10* 


0076 

0014 





0193 

0078 

0420 



8LWP 

• RR 


007A 

0000 





0194 

007C 

06CB 



INCT 

Rll 

0195 

007E 

0465 



RT 


0196 





END 



0000 EPS 


3«*ENDf 

S*IF I .EQ.16 then DOf 
4*CAU ERPORtHEX CONV) | 


4-RETURN CERPORJ 

13) FORCE RETURN TO CALLUS 

3»IF VLAUE > »FFF' THEN RETURN 

3»-VALUE ■ VALUE*ie ♦ H 

3-CHAR COUNT ■ CHAR COUNT -If 
8-FNO 

2»PTR ■ PTR SAVEl 
2-CALL RETBUf(PTR)» 

l-ENO GET HEX VALUfi 

(R13) 

2CR135 


945357-9901 ** 


PAGE 0006 


960 - 980 CONCORDANCE 


f 


0106 

0109 

0111 

0121 

0123 

0138 

0145 

0148 



0167 

0173 

0184 






ACL 


0070 

0113 







CLST 


0065 

0156 







DP00 

0092 

0168 








ERROR 


0063 

0169 







ESC 


0064 

0134 







GET010 

0111 

0108 








GET020 

0121 

0117 








GET030 

0123 

0119 








GET035 

0138 

0135 








GET038 

0145 

0141 








GET040 

0148 

0183 








GET050 

0155 

0164 








GET055 

0167 

0176 








GET060 

0173 

0159 








GET070 

0184 

0137 

0143 

0172 






GETBUF 


0066 








GETFLD 


©061 

0118 







GETFLN 


0062 

0122 







GETHEX 

0109 

0059 








GETHXN 

0106 

0060 








LWP 


0068 








R0 

0075 









R1 

0076 









R10 

0085 

0125 

0128 

0132 

0151 

0168 

0186 

0192 


Rll 

0086 

0136 

0142 

0171 

0194 





R12 

0087 









R13 

0088 

0136 

0142 

0171 

0191 

0192 




R14 

0089 









R15 

009© 









R2 

0077 









R3 

0078 

0156 

0157 

0158 






R4 

0079 

0153 

0157 

0161 

0163 

0179 




R5 

0080 : 

0151 

0158 







R6 

0081 

0146 

0175 

mm 

mm 

0192 




R7 

0082 

0128 

0129 

0140 

§140 

0181 




R8 

0083 

012S 

0186 







R9 

0084 

©107 

0110 

0116 

0116 

0ij2 

0134 

0191 

0191 

RETBUF 


0067 

0189 







RR 


0071 

0193 







RWP 


0069 








THERE ARE 0041 

SYMBOLS 















•* MEXADfCIMAl. ARITHMfTle ** 


94i3SS»9f0l*t 


PA6i f0ia 


0003 

0004 
0009 
0006 
0007 
0000 

0009 

0010 
0011 
0019 

0013 

0014 
0019 
0016 
0017 
0019 
0019 
0090 
0021 
0029 

0023 

0024 
0029 
0026 

0027 

0028 

0029 

0030 

0031 
0039 

0033 

0034 

0038 

0036 

0037 
0030 

0039 

0040 

0041 

0042 

0043 

0044 
0048 

0046 

0047 

0048 

0049 

0090 

0091 

0092 


* 

* 

* 

* 

* 

# 

« 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

« 

* 

* 

* 

* 

* 

* 

* 

* 

« 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

« 

* 

« 

* 


PROCEDURE HXAR fCPl. POINTERJf 

OECUARi C8UM, OlPP, OPl, 0P2) PIXE0 (165f 
OECUARE (1 COMMAND PARAMETER U8T, 

3 CPL CONTROL (CPL POINTER), 

9 NUMBER PARM8 FIXED C8), 

9 PARM PRE8ENT C8) BIT Cl), 

9 PIR8T PARM FIXED (8))| 

DECLARE NUMERIC PARAMETER FIXED (16) 

CONTROL (PARM POINTER) I 
DECLARE Cl CHARACTER PARAMETER, 

3 char PARM CONTROL CPARM POINTER), 

9 8TRIN6 LIN8TH FIXED C8), 

8 PARM 8TRIN8 Cl) CHARACTER Cl))I 
DECLARE CCPL POINTER, PARM POINTER) POiNTERl 
OPl ■ 0| 

0P8 i 0f 

PARM POINTER • ADDR (FIR8T PARM) r 
IF FARM PRESENT Cl) • 1 THEN OOf 
OPl • NUMERIC PARAMETERf 
PARM POINTER • PARM POINTER ♦ 91 
END! 

IF PARM PRESENT C2) i 1 

THEN 0P2 • NUMERIC PARAMETERl 
SUM • OPl ♦ 0P2I 
OIFF ■ OPl • 0P2| 

CALL PRNTC CAOOR CPTSUM))! 

/* PRINT HEADING FOR SUM */ 

CALL PRNTHX C8UM)| 

/* PRINT VALUE OF SUM IN HEX */ 

CALL HXARPO C8UM)| 

/* PRINT VALUE OF SUM IN DECIMAL ♦/ 

CALL PRNTC CADDR CPTDIFF))! 

/♦ PRINT HEADING FOR DIFF */ 

CALL PRNTHX (OIFF) I 

/* PRINT VALUE FOR DIFF IN HEX */ 

CALL HXARPD (OIFF) I 

/♦ PRINT VALUE FOR OIFF IN DECIMAL */ 
RETURN! 

PROCEDURE HXARPO CVAL) ! /♦ PRINT DECIMAL */ 
DECLARE VAL FIXED (16)1 
DECLARE DEC STRINS CHARACTER (6)1 
CALL CBD CVAL, DEC STRING)! 

/* CONVERT TO ASCII STRING ♦/ 

CALL PRINT (DEC STRING, 6)! 

/♦ PRINT THE ASCII STRING ♦/ 

RETURN! 

END HXARPO! 

END HXAR! 

IDT *HXARTH» 



•* hexadecimal arithmetic *t 


84S3Sa«99el** 


RASE idiS 


0094 


* TITLEI 

HXARTM 


0095 




hexadecimal 

arithmetic 

0090 


« REVISION! 



0097 




ORIGINAL 


0098 


* COMPUTER! 

990 


0099 


* ABSTRACT! 



0090 




THE SUM AND 

DIPPERENCE OP TH| FIRST TWO 

0061 


* 


PARAMETERS 

ARE COMPUTED AND PRINTED IN 60TH 

0092 


H 


HEXADECIMAL 

AND DECIMAL FORMATS, 

0063 


« CALLING SEQUENCE! 


0004 




CALLED PROM 

COMMAND STRING PROCESSOR, 

0069 


* 




0066 


« 




0067 


*W0RK8PACE 

REGISTER DEPINITI0N8 

0068 


* 




0069 

0000 

R0 

EOU 

0 


0070 

0001 

R1 

EOU 

1 


0071 

0002 

R2 

EOU 

2 


0072 

0003 

R3 

EQU 

3 


0073 

0004 

R4 

EQU 

4 


0074 

0005 

R5 

EQU 

9 


0075 

0006 

R6 

EOU 

6 


0076 

0007 

R7 

EQU 

7 


0077 

0008 

R8 

EOU 

8 


0078 

0009 

R9 

EQU 

9 


0079 

000A 

R10 

EQU 

10 


0080 

0006 

Rll 

EOU 

11 


0081 

000C 

R12 

EQU 

12 


0082 

0000 

R13 

EQU 

13 


0083 

000E 

R14 

EQU 

14 


0084 

000F 

Rl6 

EQU 

15 


0085 


* 




0086 

0001 

PRMPST 

EQU 

1 


0087 


* 



IpPROCEOURE HXAR (CPL POINTER) 

0088 


h 



2-OECLARE (SUM, DIFF, CPl, 0P2 

0089 


* 



2»declare (1 command parameter 

0090 


* 



3» 3 CPL CONTROL CCPL 

0091 


* 



4» 5 NUM8ER FARMS FIXE 

0092 


* 



4m 5 FARM PRESENT C8) 

0093 


* 



4m 5 FIRST FARM FIXED 

0094 


* 



tpOfCLARE NUMERIC PARAMETER FI 

0099 


* 



2* CONTROL (FARM POINTER)! 

0096 


* 



2-DECLARE (1 CHARACTER PARAMET 

0097 


* 



3* 3 CHAR FARM CONTROL 

0098 


* 



4m 5 STRING LENGTH FIX 

0099 


* 



4* 5 FARM STRING (1) C 

0100 


* 



2-OECLARI (CPL POINTER» FARM P 

0101 



OEP 

HXAR 


0102 



REP 

PT8UM,PTDIPP 

0103 



REP 

PRNTC,PRNTHX|PRINT 

0104 



REP 

8VCALT 


0105 



REP 

CiD,CB08T8 


0106 

00001 

HXAR 

EOU 

t 


0107 0000 

G086 


MOV 

Rll»2 

SAVE RETURN, CPL POINTER 


♦ t NiXADfCIMAl, ARITHMfTIC ** 


9453Si»80it** 


PASi 9094 


0108 



# 



0109 

0008 

04C7 


CLR 

R7 

0110 



t 



0111 

0004 

04C8 


CLR 

R8 

0118 



t 



0113 

0006 

DIAA 


Move 

PPRMP8TCR10)»R6 


0006 

0001 




0114 

000 A 

05CA 


INCT 

R10 

0115 



■t 



0118 

000C 

0Ai6 


SLA 

R6,l 

illF 

000E 

1701 


JNC 

MXAH10 

0118 






0119 






0180 

0010 

CIFA 


MOV 

*R10+,R7 

0181 



♦ 



0188 


0018* 

HXAfHi 

EOU 

S 

0183 






0184 

0018 

0A16 


SLA 

R6,l 

0185 

0014 

1701 


JNC 

HXAR80 

0180 



t 



0187 

0016 

C81A 


MOV 

«R10,R8 

0188 


0018* 

HXAR2i 

EQU 

S 

0189 






0130 

0018 

C187 


MOV 

R7,R6 

0131 

001A 

A168 


A 

R8,R6 

0132 






0133 

001C 

61C0 


$ 

R8,R7 

0134 



# 



0135 



* 



0136 

001E 

080A 


LI 

R10,PTSUM 


0080 

0000 




0137 

0082 

06A0 


8L 

PPRNTC 


0084 

0000 




0138 

0086 

1013 


JMP 

HXAR90 

0139 



♦ 



8140 






0141 

0088 

C806 


MOV 

R6,R10 

0148 

008A 

06A0 


8L 

PPRNTHX 


008C 

0000 




0143 

008E 

100F 


JMP 

HXAR90 

0144 






0145 






0146 

0030 

C006 


MOV 

R6|R0 

0147 

0038 

06A0 


BL 

PMXARPO 


0034 

0050* 




0148 



t 



0149 



at 



0150 

0036 

080A 


LI 

R10,PTDIFF 


0038 

0000 




0191 

003A 

06A0 


BL 

PPRNTC 


003C 

0084* 




0188 

003E 

1007 


JMP 

HXAR90 

0183 



t 



0184 






0195 

0040 

C867 


MOV 

R7,R10 


a»oPi • if 

DIPAULT OPtPANDS TO lERO, 

a.opa » 01 

P»PAPM POINTIP • AOOi fPIRST P 
I801.ATI PAPP PRISENCB BITS 


a*IP PARP PRESENT Cl) • 1 THEN 
IF PIR8T PARAMETER NOT PRE8EN 

3»OPl ■ NUMERIC PARAMETER! 
S.PARM POINTER • farm POINTER 

3»EN0f 

$mlf FARM PRESENT £8) • 1 
IF FARM 8 NOT PRESENT 

3»TMEN OP2 P NUMERIC PARAMETER 


2»8UM • OPl ♦ 0P2I 
SUM IN R6 

2»0IFF p OPl • 0P8I 
DIFF IN RT 

SmCAU PRNTC (ADOR CPTSUM))! 
4*/* PRINT HEADING FOR SUM t/ 


**** ERROR EXIT 
gwCALI. PRNTHX (SUM) I 
4*/* PRINT VALUE OF SUM IN HEX 


**** ERROR EXIT 
g.CAlL HXARPO (SUM) I 
4m/* PRINT VALUE OF SUM IN DEC 


8»CALL PRNTC CAOOR fPTDIFF))) 
4m/* PRINT HEADING FOR DIFF */ 


**** ERROR EXIT 
8»CALL PRNTHX (OIFF)f 
4m/* PRINT value FOR DIFF 


IN H 



*• MeXADECiMAI. ARlTMMfTIC ** 


94SS9a«9O0t*« 


PA6I 0818 


0196 

0040 

06A0 


BL 

PPRNTHX 


0044 

002C* 




0197 

0046 

1003 


JMP 

HXARB0 

0198 



n 



0199 



« 



0160 

0048 

C007 


MOV 

R7#R0 

0161 

004A 

06A0 


BL 

•HXARPO 


004C 

0080* 




0iea 



# 



0163 


004E* 

HXARO0 

EQU 

f 

0164 

004E 

0492 


B 

*R2 


**•* ERROa EXIT 
a»CAU HXARPO (OlfPSl 
4*/« PRINT VALUE POR OIPP IN 0 


a.RETUPNf 


** hexadecimal arithmetic ** 


94SSSS»i9tt*« 


PA6E 9806 


1168 



# 



8» 

8167 



« 



8.PR0CE0URE HXARPO fVALll /* P 

8168 



■ t 



SfOECLARE VAL PIXEO C16)f 

8169 



♦ 



3»0ECLARE DEC STRING CHARACTER 

8178 


0080 « 

HXARPO 

E9U 

t 


8171 

0880 

C108 


MOV 

R11»P4 

SAVE RETURN 

8178 



* 



3-CALL CBO tVAL» DEC STRING) » 

8173 



t 



5-/* CONVERT TO ASCII STRING # 

8174 

0888 

080A 


U 

R10i CBD 



8884 

0080 





8176 

0886 

0480 


SLWP 

P8VCAUT 



0086 

8000 





8176 



t 



8-CALL PRINT (DEC STRING, 6)» 

8177 



♦ 



8-/* PRINT THE ASCII STRING */ 

8176 

008A 

880A 


LI 

R10»CBD8T6 



008C 

8080 





0179 

08SE 

0809 


LI 

R9,6 



0060 

0006 





8168 

8862 

06A0 


BL 

•PRINT 



8064 

0089 





0181 

0066 

10F3 


JMP 

HXAR90 

**** ERROR EXIT 

8188 






3-RETURNI 

8183 

0068 

0484 


B 

*R4 


8184 



* 



8-ENO HXARPDr 

8186 



« 



t-ENO HXARI 

8186 




END 
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** INSPfCT CRU PROCESSOR ♦* 945359*99R t *• PAGE P0f2 


0003 


IDT 

*IC’ 

0004 


# TITLEI 

ICP 

000« 


♦ 

inspect CRU processor 

0006 

0007 


* REVISIONI 

ORIGINAL 

0000 


♦ COWPUTERI 

990, ASM 

0009 


# ABSTRACT! 

THIS ROUTINE PROCESSES THE IC CMO, IT FIRST 

0010 


* 

CHECKS TO MAKE SURE THAT LOWER LIM « UPPER 

0011 


# 

LIM AND THAT THE CRU ADDRESSES ARE LEGITIMATE, 

0019 


t 

IT THEN CALLS THE PRINT C»U RANGE ROUTINE TO 

0013 



PRINT THE CRU INPUT VALUES, 

0014 

0019 


* 

* CAULIf^G SEOUENCII 

0016 


* 

R10«PTR TO CMD PARM LIST 

0017 


* 

CMD FARM list ■ RPARMS/PARM PRES LIST 

0010 


♦ 

PARM VALUES 

0019 


* 

BL ilCP 

0080 


♦ 

DESTROYS R0,R1 ,R2,R3,R5,R9,R8,R14,R12,R15 

0021 

0082 


* 

* REF8»0EFS 

i,FOU»S 

0083 

0084 


* 

OEF 

ICP 

008S 


REP 

PRTCRU • PRINT CRU RANGE ROUTINE 

0026 


PEP 

RANGEV • RANGE IXTRACTER 

0087 

000a 

PRBITS EOU 

8 

0086 

8000 

CRNUH FQU 

>2000 

0089 

0004 

0N16 FQU 

4 

0030 

0010 

CRWIOT POU 

>10 

0031 

0000 

R0 IQLl 

0 

0032 

0005 

R5 EQU 

5 

0033 

000S 

R6 FQU 

8 

0034 

0000 

R9 FQU 

9 

0036 

000A 

R10 EQU 

10 

0036 

000B 

Rll FQU 

11 

0037 

0007 

R15 fOU 

15 
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003P 



ICP 






004P) 

0000 

C3CB 

MOV 

R11.R18 


SAVE RT • 

1ST 

LEVEL 

0041 



* 






004? 



* 60 GET 1 

LIMITS 





0043 



* 






0044 

0002 

020S 

U 

R8,CRNUM 






0004 

2000 







0045 

0005 

05A0 

8L 

•rangek 






0000 

0000 







0045 

000A 

045P 

B 

*R15 





0047 

000C 

0840 

SR4 

R9f QN16 

truncate 



0045 

000C 

0440 

SU4 

R9,0N16 

BACK 




004P 



* 






0050 



* PRINT CRU RANGE AND 

RETURN 




0051 



* 






0052 

0010 

020S 

ICP050 U 

R8,CRWIDT 


RStCRU BIT 

WIDTH 


0012 

0010 







0053 

0014 

0640 

BL 

•PRTCRU 






001P 

0000 







0054 

0014 

1000 

NOP 



PALL TRHU' 

ON 

ERROR 

0055 

001A 

045F 

B 

*RIS 





0050 



end 
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PAGE 0004 


9fi0 « 

980 CORCOROANCE 


CRNUM 

002S 

0044 


CRWJDT 

0»3P 

0052 


ICP 

0I»9S 

0024 


ICP0SW 

0t»5S 



0NI« 

mzp 

0047 

0046 

PRilTS 

PRTCRU 

0027 

0025 

0053 

R0 

0091 



Rl» 

0036 



RU 

0036 

0040 


RiS 

0037 

0040 

0046 

RO 

0032 



R8 

0033 

0044 

0052 

R9 

003A 

0047 

0046 

RAN6EX 


0026 

0045 

THIRE 

are iil6 

SYMBOLS 
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IN8PICT 

MEMORY 

PROCESSOR *♦ 

949360ii990l** PACE 00P2 

0003 


lOT 

»IH» 

0004 


* TITLEI 

IM 

0009 


* 

INSPECT MEMORY COMMAND PROCESSOR 

0009 

0007 


* REVISIONI 

* 

original 

0009 


* COMPUTERI 

990;ASM 

0009 


* 4BTRACTI 

THIS ROUTINE PROCESSES THE INSPECT MEMORY fIM) 

0010 


* 

command by SETTING UP ANO CALLING THE PRINT 

00U 


* 

MEMORY RANGE ROUTINE (PRTMEM) , IT VERIFIES THA 

0012 


* 

LOWER LIMIT IS « UPPER LIMIT, 

0013 


* CALUMG SEQUENCEl 

0014 


* 

0L PIMP 

0019 


* 

R104PTR TP CMO FARM LIST 

0019 


* 

CMD FARM list m #PARM8/RARM PRES BITS 

0017 


* 

FARM VALUES 

0019 


* 

DESTROYS H0,R1,R2,R4,R5,R9,R9,R12,R14,R15 

0019 

0020 
0021 


* 

* 

* REFSiDEPS 

IrEQUS 

0022 


DEF 

IMP 

0023 


REF 

PRTMEM • PRINT MEMORY RANGE ROUTINE 

0024 


REF 

ERROR « ERROR PROCESS 

0029 


REF 

RANGEY « RANGE EXTRACTER ROUTINE 

0029 

Mil 

LIMERR iqu 

WU01 

0027 

0000 

R0 EQU 

0 

0029 

0005 

R5 EQU 

9 

0029 

0008 

R9 EQU 

a 

0030 

0009 

R9 EQU 

9 

0091 

0004 

R10 EQU 

10 

0032 

000B 

BU EQU 

11 

0033 

000F 

R15 EQU 

19 
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PROCESSOR ** 
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003S 

0000 

C3CB 

IMP MOV 

RII.R15 

SAVE RETURN • LEVEL 1 

0096' 



* 



0037 



* GO GET LIMITS 


003B 



* 



003<» 

0002 

04CS 

cu» 

R8 

NO MAX ADDRESS CHECK 

0040 

0004 

06A0 

BL 

•RANGEX 



0006 

000f 




0041 

0006 

1003 

JMP 

IMP060 


004S 



* 



0043 



* PRINT MEMORY AND E*IT 


0044 



* 



004S 

000A 

06A0 

IMP040 8U 

PPRTMEM 



000C 

0000 




0046 

000E 

1000 

NOP 



0047 

0010 

04BF 

IMP050 B 

*R19 


0046 



END 



0000 1 

EPS 






( 


c 


PAGE 0004 


960 « ; 

980 CONCOROAMCE 


945360-9901** 

iRRQR 


0024 



IMP 

0B3B 

0022 



1MP040 

0049 




IMP050 

0047 

0041 



UIPERR 

0026 




prTmeh 


0023 

0045 


R6 

0027 




R10 

0031 




Rll 

0032 

0035 



Rl» 

0033 

0035 

0047 


RS 

0028 




R§ 

0029 

0039 



R9 

0030 




RAN9EX 


0025 

0040 



THERE are «014 SyM$QL8 















*• INiPgCT SNAPSHOT PROCESSOR *• 94S36t»99Pl** PAGE 


0003 


♦ 

PROCEDURE INSPECT SNAPSHOT! CPL5I 

0004 


♦ 

/♦ INSPECT snapshot prints THE DISPLAY 

0005 


# 

FOR A RANGE OF DEFINED SNAPSHOTS. 

0006 


t 

*/ 


0007 



CALL 

RANGE (LOW, HIGH, 4#ERROi3l 

0008 


♦ 

IF . 

NOT, ERROR THEN OOf 

0009 


* 

00 UNTIL all snaps completei 

0010 


t 


CALL PRINT SNAPSHOKLOW) f 

0011 


♦ 


LOW i LOW + 11 

0012 


* 


IF LOW ,6T, HIGH THIN SIGNAL 

0013 


♦ 


ALL SNAPS COMPLETE! 

0014 



END! 

0015 


# 

ALL snaps COMPLETE! 

0016 


* 

endi 


0017 


# 

END INSPECT 8NAP8H0TI 

0018 



IDT 

»IN8P88» 

0019 


t 

TITLEI 

ISS 

0020 




INSPECT SNAPSHOT 

0021 


* 

REVISION! 


0022 


♦ 


ORIGINAL 

0023 


* 

COMPUTER! 

990, ASM 

0024 


♦ 

ABSTRACT! 

THIS ROUTINE PRINTS THE SNAPSHOT DISPLAY 

0025 


♦ 


ASSOCIATfO WITH ONI OR HQRE SNAPSHOTS 

0026 



CALLING SEQUENCE! 

0027 


# 


8L 4I8S 

0028 


# 


H10 • COMMAND PARAMETER LIST 

0029 





0030 


# 

REF'S AND DEF'S 

0031 


* 



0032 



DEP 

ISS 

0033 



REF 

NUMSNP 

0034 



REF 

8NPENT 

0035 



REF 

SNPTAB 

0036 



ref 

PRTSS 

0037 



REF 

RANGEK 

0038 



RIF 

GET8UF 

0039 



REF 

RET8UF 

0040 



REF 

LWP 

0041 



REF 

RWP 

0042 



REF 

ACL 

0043 



REF 

RR 

0044 


« 



0045 


♦WORKSPACE 

REGISTER OfPiNITIQNS 

0046 


♦ 



0047 

0000 

Ri 

EQU 

0 

0048 

0001 

R1 

EOU 

1 

0049 

0002 

R2 

EQU 

2 

0050 

0003 

R3 

EQU 

3 

0051 

0004 

R4 

EQU 

4 

0052 

0005 

R5 

EQU 

5 

0063 

0006 

R6 

EOU 

6 

0054 

0007 

R7 

EQU 

7 

0055 

0008 

R8 

EOU 

a 

0056 

0009 

R9 

EOU 

9 
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PAOE 0003 


0057 


000A 

RIB 


EQU 

10 


00S« 


000B 

Rll 


EQU 

11 


0059 


000C 

R12 


EQU 

12 


0060 


0000 

R13 


EQU 

13 


0061 


000E 

R14 


EQU 

14 


0062 


000F 

P15 


EQU 

15 


0063 



# 





0064 


00001 

I8S 


EQU 

S 


0065 



it 




l*PROC£0URE INSPECT SNAPSHOT ( 

0066 




*ALUOC 

, copy, link 


0067 

0000 

0420 



8LWP 

• ACL 



0002 

0000 






0066 



♦ 




2*/* INSPECT SNAPSHOT PRINTS T 

0069 



it 




2* FOR A RANGE OF DEFINE!) 8N 

0070 



if 




2**/ 

0071 



♦ 




2*CALL RANGEtLOW, HIGH, 4, ERROR) 

0072 



# 




2-IF .NOT, error then 001 

0073 

0004 

0208 



LI 

R8,NUM8NP 



0006 

0000 






0074 

0008 

06A0 



BL 

• RANGEK 



000A 

0000 






0075 

000C 

1008 



JMP 

IS8020 


0076 



t 




3*00 UNTIL ALL SNAPS COHPLETE) 

0077 

00 0E 

CICA 



MOV 

R10,R7 

HIGH LIMIT 

0078 

0010 

C189 



MOV 

H9,R6 

LOW LIMIT 

0079 


00i2» 

I8S010 

EQU 

$ 


0060 



♦ 




4*CALL print SNAPSHOT (LOW) I 

0081 

0012 

C285 



MOV 

R6,Rli 


0082 

0014 

06A0 



8L 

•PRT88 



0016 

0000 






0083 



« 




4*L0W a LOW 4 1 f 

0084 

0018 

0586 



INC 

R6 


0085 



« 




4»IF LOW ,GT, HIGH THEN SIGNA 

0086 







5*ALL SNAPS COMPLETE! 

0087 

001A 

aice 



C 

R6,R7 


0088 

001C 

12FA 



JLE 

ISS010 


0089 



n 




3*END! 

0090 



it 




3»ALL SNAPS COMPLETE! 

0091 



# 




2*EN0| 

0092 


001E’ 

IS8020 

EQU 

S 


0093 



* 




1*END INSPECT SNAPSHOT! 
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it 

♦ LINK 

TO P»EV WK8P, 

RET CUPR WKSP 

0095 

001E 

0420 



BLWP 

• RR 



0020 

0000 






0096 

0022 

049B 



RT 
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END 
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0003 

0004 

0005 

0006 
0007 
0001 !! 

0009 
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0011 
0012 

0013 

00 1 4 

0015 

0016 
0017 
001S 

0019 

0020 
0021 
0022 

0023 

0024 
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0020 

0029 
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0031 

0032 
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0034 

0035 

0036 

0037 
0036 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 
0046 
0049 

0030 

0031 

0052 

0053 

0054 

0055 

0056 


* PROCEDURE INSPECT WORKSPACE CCPU I 

* /» INSPECT WORKSPACE DISPLAYS THE 

* CONTENTS OP ONE OR MORE OP THp 

* USERS workspace REGISTERS, INPUT 

* IS A REGISTER OR RANGE OP REGISTERS 

* TO BE DISPLAYED (NULL DEFAULTS TO 

* ALL REGISTERS. 

* */ 

* CALL RANGE(CPL»L0W, HIGH, 'P». ERROR) I 

* IP .NOT, ERROR THEN DO» 

* HCNT ■ 61 MAX R REGS ON 1ST LINE 

* DO I ■ LOW TO HIGH /* REGISTER RANGE */ 

* CALL PRINT('CRLP»)I 

* HEG « CHAR LlSTCDf 

* CALL PRINT (HEG NO STR) I 

* VALUE ■ USER WORKSPACE (1)1 

* CALL PRINT HEX (VALUE) 1 

* RCNT * RCNT*1» 

* IP RCNT ,E§, 0 THEN CALL PRINT (* CRLF ») 1 

* Ifl4l /* NEXT REGISTER ♦/ 

* END 

* END 

* ENO INSPECT WDRKSPACi 

lOT 'INWKSP* 

* TITLEIINWK8P 

* INSPECT WORKSPACE 

* REVISION! 

* ORIGINAL 

* COMPUTER* 990, ASM 

* abstract* inspect WORKSPACE DISPLAYS ONE OR MORE 

* OF THE USER'S WORKSPACE REGISTERS, 

* CALLING SEQUENCE* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


BL PIWP 

R10 POINTS TO COMMAND PARAMETER LIST 

l»PROCEDURE INSPECT WORKSPACE! 
2*/* INSPECT WORKSPACE DISPLAY 
2* CONTENTS OP ONE OR MORE 0 

2* USERS workspace REGISTERS 

2* IS A register or range op 

2- TO BE DISPLAYED (NULL OEP 
2» ALL REGISTERS, 

2 »*/ 

REF'S AND OEP'S 

DEF |WP 
REP PRCRLF 
REF PHnTC 
REF PRNTHX 
REF RANGEX 
REF RGSTR 
REF RGSTRB 
REF GET8UF 
REF RETBUF 



** INSPECT workspace PROC *• 
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PAGE §003 


00S7 

REF 

LWP 

00SB 

REF 

RWP 

0059 

REF 

ACL 

0060 

REF 

RR 

0061 

REF 

CL8T 

0069 

REF 

USRWP 


0063 • 

0064 *WORKSPACF REGISTER DEFINITIONS 


0066 



* 





0066 


0000 

R0 

EOU 

0 



0067 


0001 

R1 

EQU 

1 



006S 


0002 

R2 

EQU 

2 



0069 


0003 

R3 

EQU 

3 



0070 


0004 

R4 

EQU 

4 



0071 


0005 

R5 

EQU 

5 



0072 


0006 

R6 

EOU 

6 



0073 


0007 

R7 

EQU 

7 



0074 


000S 

R8 

EQU 

8 



0076 


0009 

R9 

EQU 

9 



0076 


000A 

R10 

EQU 

10 



0077 


000B 

RU 

EQU 

U 



007« 


000C 

R12 

EOU 

12 



0079 


0000 

R13 

EQU 

13 



0080 


000E 

R14 

EOU 

14 



0081 


000F 

RIS 

EQU 

16 



0082 



* 





008v1 


0000 » 

IWP 

EOU 

$ 



0084 



* *ALLOC 

•COPY, link 



0085 

0000 

0420 


BLWP 

PACL 




0002 

0000 






0086 



* 



2*CALL 

RANGE CCPLi LOW, HIGH i 'P», 

0087 

0004 

0208 


LI 

R8,»10 




0006 

0010 






0088 

0008 

06 A0 


8L 

•RANOEX 




000A 

0000 






0089 

000C 

1022 


JMP 

IWP030 



0090 






2<-TF . 

NOT. ERROR then DO I 

0091 



* 



3P-RCNT 

■ 6f max « RIGS ON 1ST 

0092 

000E 

0205 


LI 

R5,8 




0010 

0008 






0093 






3*00 I 

■ LOW TO HIGH /* REGIS 

0094 

0012 

CICA 


MOV 

R10»R7 

UPPER 

REGISTER LIMIT 

0095 

0014 

C189 


MOV 

R9,R6 

LOWER 

REGISTER LIMIT 

0096 






3*CALL 

PRINTC’CRLF*) 1 

0097 

0016 

06 A0 


BL 

0PRCRIF 




0018 

0000 






0098 

001A 

1000 


NOP 




0099 


001C* 

IWP010 

EQU 

S 



0100 



if 



4»REG 

■ CHAR LISTdJl 

0101 

001C 

0204 


LI 

R4,CLST 8 




0018 

0000 






0102 

0020 

A106 


A 

R6,R4 



0103 

0022 

D814 


MOVB 

*R4,PRG8TRS 




0024 

0000 






0104 



♦ 



4fCALL 

PRlNTfREG NO STRJl 


( 
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0i0S 

0006 

0028 

020A 

0000 


LI 

R10,RGSTR 

0100 

002A 

0f2C 

06A0 

0000 


8L 

PPRNTC 

0107 

0108 

0021 

1011 

* 

JMP 

IWP030 

0109 

0030 

0032 

C2A0 

0000 


MOV 

i»USRwp,Ri0 

0ll« 

0034 

A285 


A 

R6,S10 

0111 

0036 

A286 


A 

R6,R10 

0110 

0113 

0038 

C29A 


MOV 

*R10»R10 

0114 

003A 

003C 

06A0 

0000 


bl 

PPRNTWX 

01 IS 
0U« 

003E 

1009 


JMP 

IWP030 

0117 

0118 

0040 

0605 

* 

DEC 

R5 

0UR 

0042 

1603 


JNE 

IWP020 

0100 

0044 

0046 

06A0 

0018» 


BL 

PPRCRLF 

0121 

0122 

0123 

0048 

1004 

JMP 

IWP020 

« 

IWP030 

0124 

ei2S 

004A 

0586 

t 

INC 

R6 

0126 

004C 

81C6 


C 

R6,R7 

8127 

004F 

1115 


JLT 

IWP010 

0128 

0129 

0080 

13E5 

« 

JEO 

IWP010 

0130 

0131 

0132 


0052* 

IWP030 FOU 

* 

* *LINK 

1 

TO PREV WKSP 

0133 

0134 
0138 

0052 

0054 

0056 

0420 

0000 

0455 


8LWP 

RT 

END 

»RR 

0000 

ERS 






c 

4-VALUE • USER WORKSPACEtm 
WORD OFFSET 

4-CALL print HEXCVALUE)| 

4-RCNT • RCNT-U 

4*IF RCNT .EfJ, 0 THEN CALL PRl 

4-ItI*l /* NEXT REGISTER */ 

3-END 

8-ENO 

1-ENO INSPECT WORKSPACE 
RET CURR WKSP 




900 - i 

200 CONCORDANCE 


• 


0082 

0098 

ACl. 


0058 

0084 

CL8T 


0060 

0100 

CETBUP 


0054 


IWP 

0082 

0047 


IWP010 

009P 

0128 

0127 

IWP020 

0121 

0118 


IWP030 

0129 

0088 

0106 

LWP 


0056 


PRCRLP 


0048 

0096 

PRNTC 


0049 

0105 

PRNTHV 


0050 

0113 

R0 

0089 



R1 

0065 



R10 

0075 

0093 

0104 

Rll 

0075 



R12 

0077 



R13 

007P 



R14 

0079 



«16 

0080 



R2 

0067 



R3 

0068 



R4 

0069 

0100 

0101 

RS 

0070 

0091 

0116 

R6 

0071 

0094 

0101 

R7 

0072 

0093 

0125 

R0 

0073 

0086 


R9 

0074 

0094 


RANGED 


0051 

0087 

RfTBUf 


0055 


RG8TW 


0052 

0104 

RGSTRP 


0053 

0102 

RR 


0059 

0132 

RWP 


0057 


U8RWP 


0061 

0108 


0129 


011 ^ 0180 
0119 

0100 0109 0110 0111 0111 


0108 

0109 0110 0123 012? 


TH69g are 0035 SVHBQLS 


Texas Instruments 


INCORPORATED 
DIGITAL SYSTEMS DIVISION 
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REVISION 


SHEET 

S 
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PASi PRSia 


mm 

mm 

00k!« 

mm 
mm 
eiias 
mm 
asiH 
99 u 
0912 
ifis 

0014 

0015 
001S 
0017 
00ia 
001,9 
0020 
0021 
0028 

0023 

0024 

0025 
0025 
1027 
1020 

0029 

0030 

0031 

0032 

0033 

0034 
1035 

0036 

0037 

0035 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 
0040 

0049 

0050 
0061 
0052 
0083 
0094 

0055 

0096 


* 

« 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

# 

*. 

* 

* 

« 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

« 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

h 


PROCEDURE MODCRU fCPt POINTER) I 
DECLARE CRU ADDRESS SIT fl6)| 

DECLARE eiT WIDTH SIT (1«)» 

DECLARE default SIT WIDTH LITERALLY «18«| 

DECLARE FLAG STT (1)1 

DECLARE ri COMMAND PARAMETER LIST, 

3 CPL control (CPL POINTER), 

5 number PARMS fixed C8), 

5 FARM PRESENT (0) BIT M), 

9 FIRST PARS FIXED (B))l 
DECLARE NUMERIC PARAMETER FIXED (16) 

CONTROL (PARM POINTER)! 

DECLARE (1 character PARAMETER, 

3 CHAR PARM CONTSOL (FARM POINTER), 

5 STRING LENGTH FIXED (6), 

5 PARM STRING (1) CHARACTER tl))| 
DECLARE rCPL POINTER, FARM POINTER) POINTER! 
DECLARE TERM CHARACTER fl)| 

DECLARE value BIT (l6)f 
DECLARE CR LITERALLY '"SD"*! 

CRU ADDRESS ■ 0! 

BIT WIDTH « DEFAULT SIT ADDRESS! 

PARM POINTER i AOOR (FIRST PARM) | 

IF PARM PRESENT (1) THEN DO! 

CRU ADDRESS ■ NUMERIC PARAMETER! 

PARM POINTER i PARM POINTER ♦ 2! 

END! 

IF PARM PRESENT (2) THEN DO! 

BIT WIDTH f NUMERIC PARAMETER! 

IF PIT WIDTH ■ 0 ,0R, BIT WIDTH N 16 

CALL ERROR (»DP12«)I /* NO RETURN */ 

END! 

FLAG ■ 0! 

DO WHILE FLAS10 AND LT 2000! 

CALL PRTCRU (CRU ADDRESS, CRU ADDRESS, 

BIT WIDTH)! 

CALL GETHXN (value, TERM, FLAG) I 

IF FLAG • 0 THEN CRU (CRU ADDRESS) ■ VALUE! 

CRU ADDRESS ■ CRU ADDRESS ♦ BIT WIDTH * 2! 

IF TERM m CR THEN FLAG ■ *1 ELSE FLAG F 0! 

END! 

RETURN! 

END MODCR! 

IDT ’MODCR* 

TITLE! MODCR 

MODIFY CRU COMMAND PROCESSOR 

revision » 

original 

COMPUTER! 990 
ABSTRACT! 

THIS SUBROUTINE PROCESSES THE MODIFY CRU (MC) 
COMMAND, parameters ARE STARTING ADDRESS 
ANO BIT WIDTH, WHICH DEFAULT TO ZERO AND 
sixteen RESPECTIVELY, CRU INPUT LINES ARE 
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0087 




displayed and CPU OUTPUT lines are modified 

0088 


★ 


IN A manner similar TO MODIFY MEMORY, NOTE 

0059 




THAT BIT WIDTH 

IS ALSO USED AS THE ADDRESS 

0060 




increment when 

SUCCESSIVE values ARE DISPLAYED 

0061 


t 


AND/OR MODIFIED 

• 

0062 


♦ CAUUJNG SEQUENCE! 


0063 


t 


called by command string processor 

0064 






0068 





1-PROCEOURE modcru (CPI POINTS 

0066 


# 



2#DECLARE CRU ADDRESS BIT (16) 

6067 


♦ 



9«-neCLARE BTT WIDTH BIT (16)| 

0068 





2-DECLARE DEFAULT BIT WIDTH LI 

0069 

0010 

WlOl 

EQU 

*10 

default bit WIDTH 

6070 0000 

300A 

LDCR 

LDCR 

R10P0 


0071 


♦ 



9*DECLARE flag SIT (1)1 

0078 


# 



2*0ECLARE (1 command PARAMETER 

0073 


t 



3« 3 CPL CONTROL (CPL 

0074 


it 



4- 5 NUMBER PARMS FIXE 

6078 


* 



4* 5 FARM PRESENT (8) 

0076 


« 



Am 5 FIRST FARM FIXED 

0077 





2*DECLARE NUMERIC PARAMETER FI 

0078 


* 



pm CONTROL (FARM POINTER)! 

0079 


it 



2*DECLARE (1 CHARACTER PARAMET 

6080 


it 



3f. 3 CHAR FARM CONTROL 

0081 


it 



Am 5 STRING length FIX 

0082 


it 



Am 5 FARM STRING (1) C 

0083 


it 



2-DECLARE (CPL POINTER, FARM R 

0084 



REF 

CR 


0085 


it 



2»DECLARE TERM CHARACTER (1)! 

6086 


♦ 



2pDECLARE value BIT (16)! 

0087 


♦ 



2-DECLARE CR LITERALLY "'0D"»! 

6088 



DEF 

modcru 


0089 



REF 

gethxn 


0090 



REF 

PRTCRU 


0091 



REF 

ERROR 


6092 


it 




0093 


•WORKSPACE 

REGISTER definitions 

0094 


* 




6095 

000?! 

R0 

EQU 

0 


0096 

0001 

Rl 

EQU 

1 


0097 

0002 

R2 

ECU 

2 


609H 

0003 

R3 

EQU 

3 


0099 

0004 

R4 

EQU 

4 


0100 

0005 

RS 

EQU 

8 


0101 

0006 

R6 

EQU 

6 


0102 

0007 

R7 

EQU 

7 


0103 

0008 

R8 

EQU 

B 


0104 

0009 

R9 

EQU 

9 


0105 

000A 

R10 

ECU 

10 


0106 

0006 

Rll 

EQU 

11 


0107 

000C 

R12 

EQU 

12 


0108 

000D 

R13 

EQU 

13 


0109 

000C 

R14 

EQU 

14 


0110 

000F 

RlS 

EQU 

15 


0111 


* 
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0ua 


0002’ 

Hoocmj 

eau 

$ 


0113 

0002 

C08B 


60V 

P11.R2 

SAVE RETURN 

ill 4 



♦ 



Ji-CRU ADDRESS ■ 01 

0 i 15 

0004 

04C4 


CLP 

R4 

R4 ■ CRU address 

0115 



* 



2-BIT RIOTH 9 DEFAULT BIT AOOR 

0117 

0006 

0205 


u 

R5,CRWI0T 

R5 9 BIT WIDTH 


0009 

0010 





ills 



♦ 



2-PARM pointer f AODR (FIRST P 

iiip 

000A 

C0U 


MOV 

*RMf P0 


0120 

000C 

06CA 


INCT 

R10 


0121 



♦ 



2-IP FARM PRESENT CO THEN 001 

0122 

000E 

0A90 


SLA 

R0,9 


0123 

0010 

1701 


JNC 

MOD010 


0124 



# 



S-CRl* ADDRESS • NUMERIC PARAME 

0125 



* 



3*PARM pointer • PARM POINTER 

0126 

0012 

C13A 


MOV 

*RM#,R4 


0127 



* 



3-ENDl 

0195 


0014’ 

mmiB 

I: Oil 

$ 


0129 



t 



2»IF PARM PRESENT (2) THEN 001 

§130 

0014 

0A10 


SLA 

R0,l 


0131 

0016 

1705 


JNC 

MOO020 


0132 



t 



3-BIT WIDTH 9 NUMERIC PARAMETE 

1133 

0019 

C15A 


MOV 

*R10f PS 


§134 



♦ 



3-IF BIT WIDTH • 0 ,0R, BIT WI 

0135 






5-CALL ERROR ('•DPl2'nf /* NO 

§136 

001A 

132C 


JEQ 

MOOEl 


0137 

00 1C 

0295 


Cl 

RSfCRWIDT 



00 IF 

0010 





0138 

0020 

192B 


JH 

modei 


0139 



# 



3-ENDf 

0140 


0022’ 

mmzB 

EOU 

$ 


0141 

0022 

C165 


MOV 

R5,«6 

GENERATE LDCR INSTRUCTION 

0142 

§024 

0AC5 


SL 4 

R6.12 


0143 

0026 

0966 


SRL 

R6,6 


1144 

0029 

A1 AO 


A 

9L0CR,R6 



002A 

§000’ 





0145 



t 



a-PLAC til 

0146 

002C 

04C7 


CLP 

R7 


0147 






2-00 WHILE ELAGii AND LT 2iiil 

0149 


002E’ 

MOD»30 

EQU 

S 


0149 

002E 

CIC7 


MOV 

R7,R7 


015« 

0030 

1622 


4NF 

MOD100 


0151 

0032 

C284 


MOV 

R4.R10 


§152 

0034 

A295 


A 

H5,R10 


0153 

0036 

A285 


4 

R5,RM 


§154 

0038 

029A 


Cl 

Rl0,»20i§ 



003A 

2000 





0155 

003C 

MIC 


JHE 

MOO100 


0156 



t 



S-CALL PRTCRU (CRU ADDRESS, CR 

§157 



t 



S-BIT WIDTH) 1 

0159 

003E 

ca«4 

HOO04CI 

MOV 

R4,R10 


0159 

0040 

C244 


MOV 

R4,R9 


0160 

0042 

C205 


MOV 

R5M9 


0161 

0044 

06A0 


ML 

PPRTCRU 



0046 

0000 
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PAGf P0«S 


ei62 

0163 

0048 

1016 

* 

JMP 

MOD20O 

0164 

004A 

06AO 


BL 

♦GETHXN 


004C 

0000 




0165 

0O4F 

10P7 


JMP 

M0D040 

0166 

0050 

1001 


JMP 

M0D050 

0167 

0052 

0707 


seto 

R7 

016R 


0O54» 

MOO090 

EQU 

$ 

0169 

017M 

0054 

C20O 


MOV 

R9,W8 

0171 

0056 

CIC7 


MOV 

H7»R7 

0172 

0058 

1806 


JNE 

MOD070 

0173 

0OSA 

0285 


Cl 

R5,8 


005C 

0O0S 




0174 

0O5F 

1B01 


JH 

M0D060 

0175 

0060 

66CA 


SWP8 

R10 

0176 


0062 • 


EQU 

S 

0177 

0062 

C304 


MOV 

R4,R12 

017H 

0179 

0064 

0466 


X 

R6 

0160 

0066 

A10S 

MOO«7« 

A 

RS,R4 

0181 

0068 

A105 


A 

N5«R4 

0162 

0163 

0O6A 

04C7 

# 

CLR 

R7 

0184 

0O6C 

9220 


ce 

#CR,R8 


0O6E 

0000 




0185 

0070 

16DE 


JNE 

MCI0030 

0186 

0072 

0707 


SETO 

R7 

0187 

018P 

0074 

lODC 

* 

JMP 

MOO 030 

0189 


0076 » 


EQU 

« 

0190 


0076« 

HOO00« 

EQU 

$ 

0191 

0192 

0076 

0462 

« 

8 

*R2 

0193 


0078* 

HOORl 

EOU 

$ 

0194 

0078 

020A 


LI 

RIO, >1112 


0O7A 

1112 




0195 

0O7C 

06A0 


BL 

PERROP 


00 7 F 

0000 




0196 

0197 

0080 

lOFA 

* 

JMP 

MOD20O 

0198 




END 



000id ER8 


**** ERROR EXIT 

3»CALL SfTHXN eVAlUE, TERM, EL 


**** recycle CONVERSION ERROR 
FLAR NO INPUT 

3»IF flag i 9 THEN CRU CCRU AO 
SAVE TERM character 


SET CRU BASE 

LDCR R1P,<0IT WIDTH* 

5»CRU address • CRU ADDRESS ♦ 


3*1F TERM ■ CR then FLAG • •! 


3*EN0» 


f«RETURN» 


•*DP12'' BIT width error 


2»END MODCRf 
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980 « 1 

980 CONCOROANCf 



• 


0112 

0128 

0140 

CR 


0084 

0184 


CRHIOT 

0069 

0117 

0137 


ERROR 


0091 

0195 


eCTHXN 


0089 

0164 


UDCR 

0070 

0144 



MOD010 

0128 

0123 



MOO020 

0140 

0131 



MOO030 

0148 

0185 

0187 


MOD040 

0158 

0165 



MQO080 

0166 

0166 



MO0000 

0176 

0174 



MOO070 

0180 

0172 



MOP100 

0189 

0150 

0156 


MOP800 

0190 

0162 

0196 


MODCRU 

0U2 

0088 



MOBSl 

0193 

0136 

0138 


RRTCRU 


0090 

0161 


R0 

0096 

0119 

0122 

0130 

R1 

0Cf96 




R10 

0105 

0070 

0119 

0120 



0158 

0175 

0194 

RU 

0106 

0113 



R18 

0107 

0177 



R13 

0108 




RI4 

0109 




Rl5 

0110 




R8 

0097 

0113 

0192 


R3 

0098 




R4 

0099 

0115 

0126 

0151 

RS 

0100 

0117 

0133 

0137 



0181 



R0 

0101 

0141 

0142 

0143 

R7 

0102 

0146 

0149 

0149 

RS 

0103 

0160 

0170 

0184 

R9 

0104 

0159 

0170 



0188 0178 0189 0190 0193 


0126 0133 0181 0152 0183 0184 


0158 

0159 

0177 

0180 

0181 

0141 

0152 

0153 

0160 

0173 0180 

0144 

0167 

0171 

0171 

0171 

0183 

0186 


THERE are 0034 


SYMBOLS 
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0Oi3 



IDT 

*MOOMEI 

1004 



TITLE! 

MDDHE 

0iis 


# 


MfiOIFY MEMORY PROCESSOR 

0006 


t 

REVISIONI 


0007 




ORIGINAL 

000S 


if 

COMPUTERI 

990»ASH 

0009 


♦ 

ABSTRACT! 


0010 


t 


DISPLAYS AND ALLOWS THE USER TO 

mxi 


♦ 


MODIFY ONI OR MORE CONSECUTIVE WORDS OP MEMORY 

0012 


■ ♦ 



0013 


t 



0014 



CALLING SEQUENCE! 

0013 


* 


BL fMOOMEM 

0016 


« 


R10P POINTER TO COMMAND FARM LIST 

0017 


♦ 


CMD FARM list I M PARMS/PARM PRES BITS 

001S 




LOCATION 

0019 


♦ 


DESTROYS R0,R1,R2,R3,R4,R5,R9,R12,RI4,R15 

0080 


♦ 



0021 





0022 


« 

RIFSf DEES 

0023 


♦ 



0024 



DEF 

MODMEM 

0025 



REF 

GETHXN 

0026 



REF 

blank 

0027 



REF 

PRTMEM 1. PRINT MfMDRY RANGE ROUTINE 

002i 



REF 

RANGEX 

0029 


t 



0030 


♦ 

EQU»S 


0031 


# 



0032 

§000 

Ri 

ECU 

0 

0033 

0003 

R3 

EQU 

3 

0034\ 

0005 

RS 

f QU 

5 

0035 

0008 

Ri 

FOU 

8 

0036 

0009 

RR 

EQU 

9 

0037 

000A 

R10 E0U 

10 

0036 

000B 

Rll FQU 

U 

0039 

000F 

RIB EQU 

15 

0040 

0008 

BYTE EQU 

8 


** MooiFv Hewa«Y processor ** 


94SSe8»99Pl** 


PA6E 00i3 


0049 





EVEN 



0043 

0000 

C3CB 

MOOMEm 

60V 

RllfRlS 

SAVE RETURN 

0044 



« 





0045 



t 

CALCULATE 

LOCATION 


0046 

0047 

0002 

04CS 

♦ 


CLR 

R8 


0046 

0004 

D0OA 



MQVB 

*P10,R3 


0049 

0006 

1601 



4NE 

MOD005 


0080 

0006 

05SS 



INC 

RR 


0081 


000A» 

HOD00S 

EOU 

$ 


0082 

000A 

06A0 



BL 

PRANSiX 



000C 

0000 






0083 

0084 

000E 

100P 

* 


JMP 

MOO 030 

IF ERROR 

0085 




PRINT LDC 

AND value 


0086 



t 





0087 

0010 

C24A 

MDD010 

HOV 

R10,R9 

R9,R104RAN6E 

0086 

0012 

C0C9 



^'-OV 

R9,R3 

R3iSAVED LOC 

0089 

0014 

06A0 



BL 

PPRTMEM 



0016 

0000 






0080 

0061 

0018 

100A 



JMP 

MOO030 

ESC ERROR EXIT 

0062 



♦ 

SET 

NEW 

VALUE 


0063 

0064 

001A 

06A0 



8L 

PGETHXN 



001C 

0000 






0065 

001E 

1007 



JMP 

MOO 030 


0(d66 

0020 

C4CA 



MOV 

R10r*R3 


0067 

0022 

9800 



CB 

R9f PBLANK 



0024 

0000 






0066 

0069 

0026 

1603 

♦ 


JNE 

MOO 030 

IF terminator 

0070 




SET 

FOR 

NEXT LOCATION 


0071 



* 





0072 

0028 

C2S3 

MOD020 

MOV 

R3,R10 


0073 

002A 

05CA 



INCT 

R10 

R10-NEXT LOC 

0074 

0075 

002C 

10F1 

♦ 


JMP 

MOO010 

CONTINUE 

0076 



♦ 

RETURN 



0077 



«< 





0076 


002E’ 

MOO030 

EQU 

$ 


0079 

002E 

046F 



8 

*R15 


0060 





END 




0i«0 EPS 


NOT A BLANK 


945365-9901** 


PAGE 0004 


900 •• ! 

90B CONCORDANCE 




i 


0051 

0078 



BLANK 


0086 

0067 



BYTE 

»B4fc 





0ETHKN 


0085 

0064 



MOO005 

0i51 

0049 




MOOOU^ 

0057 

0074 




MOO02H 

0«72 





M0DB3!?' 

0078 

0083 

0060 

0066 

0068 

MODMgM 

0043 

0024 




PRTMEH 


0087 

0089 



m 

0032 





RiB 

0037 

0048 

0057' 

0066 

0072 0073 

Rii 

0038 

0043 




Rie 

0039 

0043 

0079 



RS 

0033 

0048 

0058 

0066 

0072 

R5 

0034 





R« 

0038 

0047 

0050 



R9 

0036 

0057 

00 58 

0067 


RANSEY 


0028 

0052 




there are Mi9 SYMBOLS 



A 


1 APPLICATION 

REVISIONS 1 

NEXT ASSY 

USED ON 

LT^ 

DESCPHPTION 

DATE 

APf*ROVeO 


7506 

• 









- 



I 



- 






: 






- 






. 




REV 













■ 


□ 















SHEET 













■ 

















REV STATUS 
OF SHEETS 

REV 







■ 

















SHEET 







■ 

















unless OTHENWfSC SPECIFIED 
DIMENSIONS AltE IN INCHES 
TOLERANCES 
ANGLES 

9 PLACE DECIMALS 010 
2 PLACE DECIMAL± 02 

IDENTIFYING NUMSEftS 
SHOWN IN PARENTHESES 
FOR REFERENCE ONLY 

INTERPRET DWO IN 
ACCORDANCE WITH 
mil STD lOO 

DATE > 
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% 

Texas Instruments 

INCORPORAftO 

Eguipfmnt Group M9m, Tonm 


: AL, MODREG, MODIFY REGISTERS-PX990 I 


CONTR no/' N. 

OESI^ ACTIVITY RELEASE N. 

SIZE 

A 

CODE lOENT NO 

96214 

DRAWING NO 

945366-9901 


[ SCALE 

REV. 

of 6 1 


Tl-«»tSC 








t45ae«-99f I** 


#* MOOirV U8fR RESISTIRS ** 


PA6E ieiRa 


01903 

# 

PROCEDURE MODIFY Rf SI8TER8 (CPt , FLAS) 1 

0004 

# 

/* MODIFY RE0ISTIR8 PRINTS THE 

000S 

t 

USER PC# wp, ST AND ALLOWS THE 

0000 

# 

USER TO modify any OR ALL OF THEM 

0007 

♦ 

*/ 

0008 

t 

STRING i LOC(»WPf»3l 

0009 

♦ 

STRING • LOCC'PC«ni 

0010 


PI ■ LOCCUSER PC3 

0011 

♦ 

CALL MRSU8f8TRIN6,Pi) 

0012 

t 

PI ■ LOC(USER WP5I 

0015 

t 

CALL MR8UB(STRING,P1)I 

0014 

n 

STRING i L0CC»ST«»3| 

0015 

♦ 

PI i LOCCUSER ST) 

0018 

if 

CALL MR8UatSTRIN5#Pl) 

0017 

if 

RETURN! 

0018 

if 

END MODIFY REGISTERS 

0019 

* 

PROCEDURE MR8UBCSTR,PTR) ! 

0020 

* 

IF .NOT, NO USER INPUT THEN CALL PRINT('CRLF» 

0021 

t 

CALL PRINTC8TR)! 

0022 

t 

CALL PRINT HEX (PTR. VALUE)! 

0023 

« 

IF FLAGfINSPECT ONLY THEN RETURN! 

0024 

# 

CALL SET HEX VALUECNO LEADING BLANKS# 

0025 

« 

HEX VALUE»fRROR.TERM CHAR#N0 USER INPUT) ! 

0028 

t 

IF ERROR THEN RETURN (ERROR) ! 

0027 


IF .NOT, NO USER INPUT THEN DO! 

0028 


PTR. VALUE • HEX VALUE! 

0029 

* 

IF TERM CHAR ,N|, « 1 THIN RETURN ( *CR ») 1 

0030 


END! 

0031 

♦ 

RETURN 

0032 


END MRSUB 

0033 

♦ 

END modify REGISTERS! 

0034 


IDT 'MOOREG* 

0038 

t 

TITLEI MR 

0036 

♦ 

MODIFY registers COMMAND PROCESSOR 

0037 

t 

IR 

0038 

t 

INSPECT REGISTERS COMMAND 

0039 

♦ 

REVISIONI 

0040 

« 

ORIGINAL 

0041 

♦ 

COMPUTER! 990#A8M 

0042 


AB8RACTI MR PRINTS THE PROCESSOR REGISTERS (WP,PC»8T) 

0043 

♦ 

AND ALLOWS THE USER TO MODIFY THEM, 

0044 

H 

CALLING SEQUENCE 

0049 

# 

8L PMRP 

0046 


R|0 i POINTER TO COMMAND PARAMETER LIST 

0047 

« 

BL PIRP 

0048 

n 


0049 

if 

REF«S AND DEF»S 

0090 


REF U8RPC 

0051 


REF USRWP 

0092 


REF USRST 

1093 


OEF MRP 

0094 


DIF IRP 

0099 


REF PRINT 

0096 


REF PRNTHX 



♦* MODIFY USER RC6I8TER8 *•* 


94B86«ii99Ml*'* 


PACE §893 


§§S7 




REF 

PRNTC 

0§SS 




REF 

PRCRLF 

0§S9 




REF 

GETHXN 

0060 




REF 

BLANK 

0061 




REF 

GET8UF 

0069 




REF 

RET8UF 

0863 




REF 

LWP 

0064 




REF 

RWP 

0065 




REF 

ACL 

0066 




REF 

RR 

0067 



# 



0066 



*WQRKSPACE 

REGISTER 

0069 



* 



0070 


0000 

R§ 

EOU 

0 

0071 


0001 

R1 

EQU 

1 

0072 


0002 

R2 

EOU 

2 

0073 


0003 

R3 

EQU 

3 

0074 


0004 

R4 

EQU 

4 

0075 


0005 

RS 

EQU 

5 

0076 


0006 

R6 

EQU 

6 

0077 


0007 

R7 

EQU 

7 

0078 


0008 

R8 

EOU 

8 

0079 


0009 

R9 

EQU 

9 

0080 


000A 

RIO 

EOU 

10 

0081 


000B 

Rll 

EQU 

11 

0082 


000C 

R12 

EOU 

12 

0083 


0000 

RlS 

EQU 

13 

0084 


000E 

R14 

EOU 

14 

0085 


000F 

RlS 

EQU 

15 

0086 



* 



0067 

0000 

03 

WPSTR 

BYTE 

3 

0066 

0001 

57 


TEXT 

*WRb * 

0089 

0004 

05 

PCSTR 

BYTE 

S f M D » w A 


0008 

00 





0006 

0A 




0090 

0007 

50 


TEXT 

IPC«* 

0091 

000A 

03 

8T8TR 

BYTE 

3 

0092 

000B 

S3 


TEXT 

*ST»* 

0093 


000E« 

IRP 

EOU 

S 

0094 



* 

♦ALLOC 

, COPY. LI 

0095 

000E 

0420 


BLWP 

PACL 


0010 

0000 




0096 

0012 

04C4 


CLR 

R4 

0097 

0014 

1003 


JMP 

MRPiBB 

0096 


0016* 

MRP 

EOU 

$ 

0099 



* 



0100 



* 



0101 






0102 



* 



0103 



* 



0104 



* 

♦ ALLOC 

.COPY, LI 

0105 

0016 

0420 


BLWR 

PACL 


0018 

0010* 




0106 

001A 

0704 


8ET0 

R4 

0107 



* 




definitions 


I-PRCICEOURE MODIFY REGI8TER8CC 
2*/* MODIFY RE8I8TIRS PRINTS T 
9- USER PC» WP# 8T AND ALLOW 
gp USER TO MODIFY ANY OR ALL I 
8 »*/ 

LINK TO NEW WORKSPACE 


9PSTRING » LOC(»WP»l)f 


** MOOIPY USfR RCCISTfiS ** 




PAGf i0i4 


0t0i 

0109 

0110 

0111 

0112 

0113 

0114 

0118 

0118 

ni7 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0128 

0127 

0128 

0129 

0130 

0131 
§192 

0133 

0134 

0135 
0138 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 
0148 

0147 

0148 
1149 
ilS« 



001C» 

MRP005 

' A 

EfiU 

$ 

001C 

020A 

W 

LI 

R10,RC8TR 

001E 

0004 f 

A 



0020 

0205 

w 

LI 

R8,USRPC 

0022 

0000 

A ' 



0024 

08A0 

w 

BL 

8MR8UB 

0028 

004C» 




0028 

100E 


JMP 

MRP010 

002A 

020A 


LI 

R10.WP8TR 

002C 

0000' 

A 



002E 

§206 

w 

L I 

R8,USRNP 

0030 

0000 

▲ 



0032 

08A0 

w 

BL 

fHRSUB 

0034 

004C 




0038 

1007 

# 

JMP 

MRP010 

0038 

020A 

LI 

R10,8T8TR 

00 3 A 

000A' 




003C 

0206 


LI 

R6,U8RST 

003E 

0000 




0040 

08A0 

♦ 

BL 

PMRSUR 

0042 

004C 




0044 

1000 


NOP 



0045 » 

# 

SOU 

f 



♦ 

* *LINK 

TO PREV WK8P 

0048 

0420 


8LMP 

8RR 

0048 

0000 




00 4 A 

04SB 


RT 



004C» 

MRSUB 

▲ 

EOU 

S 

i04C 

C148 

w 

MOV 

RllfRB 

00 4 E 

C0CA 

db 

MOV 

Rl0fR3 

0050 

C104 

W 

MOV 

R4fR4 

0052 

1303 


JEQ 

MRS00S 

0054 

06A0 


BL 

fPRCRLF 

0056 

0000 




0058 

1000 


NOP 



005A» 

MR8008 

EOU 

8 

008A 

C283 

* 

MOV 

RSfRlP 

005C 

06A0 

BL 

8PRNTC 

005E 

0000 




0060 

0455 


B 

*R5 


* 

MOV #R8,R10 


2 * 8 TRlNe » LOC('RCt»5l 
2»P1 • LaCtUSfR PC) 

2»CAUU MR8UB(8TRINS,P1) 

2*P1 • L0CCU8IR WP)| 

2*CAI,U MR8UB(8TRINS»P1) I 

IP fRROR OR TERM PROM USER 
2*8TRIN6 • LOC(»8Ti»)f 

2»P1 • LOCtUSfR ST) 

2»CAM. MRSUBeSTRiNS,?!) 

2.RETURNI 

2»END MOOIPY RfSISTERS 
RET CURR WK8P 

2»PR0CI0URE MR8U8(8TR,PTR) f 

3p1p .not, no user input thin 

3»CALU PRINT(8TR)| 

SpCALI. print HiXePTR, VALUE) I 


0P82 


C29S 



** modify user RE0I3TER8 *♦ 


94S36««98il** 


PAGE 09M5 


0181 

0064 

06A0 


BL 

♦PRNTHX 



0066 

0000 





0192 

0065 

0459 


6 

*R9 


0193 



t 



3*IF FLAStlNSPECT ONUY THIN If 

0194 

006A 

C104 


MOV 

R4,R4 


0195 

006C 

1308 


JEQ 

MR8010 


0195 






3-CAU GET HEX VALUE(NQ LEADIN 

0197 



* 



4»HEX VALUE«ERR0R»TERM CHANiNO 

0195 

006E 

06A0 


8L 

PGETHXN 



0070 

0000 





0199 



★ 



3*IF ERROR THEN RETURN (ERROR) I 

0190 

0072 

0495 


B 

*R9 


0161 



* 



3*IF .NOT. NO USER INPUT THIN 

0162 






4*>PTR. VALUE • HEX VALUEl 

0163 

0074 

C98A 


MOV 

R10,*R5 


0164 



* 



4*1F term char ,NE, » » THIN R 

0195 

0076 

9509 


CB 

RRfPBLAMK 



0075 

0000 





0166 

007A 

1301 


JEO 

MR8010 


0167 

007C 

0545 


DECT 

R6 

FORCE «CR» RETURN 

0165 






5*ENDI 

0169 



♦ 



3»RETURN 

0176 


007E» 


EOU 

8 


0171 

007E 

05C5 


INCT 

R5 


0172 

0060 

0499 


B 

*R9 


0173 



♦ 



2»EN0 MR8U8 

0174 



# 



l-END MODIFY REGI8TER8I 

0178 




END 




00M0 ERS 
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REV 
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SHEET 













B 
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B 

















SH 
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modify 

NORKSPACf 1 

PR0CISS09 ** 946367«9901** PAGE 0002 



* 

PROCEDURE modify WORKSPACE tCPU f 




/•MODIFY WORKSPACE ACCEPTS AS INPUT 


000S 

♦ 

A USER REGISTER AND PRINTS THE 


$000 


CONTENTS OF EACH REGISTER AND AUOW8 


0007 

★ 

THE USER TO MODIFY IT, 


000» 

★ 

*/ 


0009 

♦ 

CAU RANGEfCPL, low, HIGH, »F», ERROR) » 


00 IM 

★ 

/* range is from user specified REG 


0011 

t 

TO MAY POSSIBLE REG */ 


0010 

* 

IF ,NOT, ERROR THEN DO UNTIL REGS EYHAU8TE0 


0013 

t 

OR USER CR| 


00H 


REG ■ CLSTtLOW) 


001S 

♦ 

CALL PRINTCREG STR) /* CR,LF,'RX»« •/ 


0016 

t 

RGPTR « LOCtUSER WORKSPACE (I )) » 


0017 

t 

CALL PRINT HEYCRGPTR, VALUE) 


0018 

Hr 

CALL GET HEY VALUE(HEY VALUE, 


0019 

# 

TERM CHAR, ERROR)! 


0020 

# 

IF ERROR THE SIGNAL USER CRi 


0021 

* 

USER WORKSPACEfl) « HEY VALUE! 


0022 

t 

IF TERM char ,NE, blank 


0023 

Hr 

THEN SIGNAL USER CRf 


0024 

# 

END! 


0025 

t 

LOW « LOW+lf 


0026 

# 

IF LOW ,GT. high then SIGNAL 


0027 

♦ 

REGS EYHAUSTEOi 


0020 

Hr 

END! 


0029 

Hr 

REGS EYHAUSTEOI 


0030 

Hr 

USER CRI 


0031 

Hr 

END MODIFY WORKSPACE 


0032 


IDT 'M0DWP» 


0033 

# 

TITLE! MODWP 


0034 

Hr 

MODIFY WORKSPACE 


0035 

Hr 

REVISION! 


0036 

* 

ORIGINAL 


0037 

* 

COMPUTER! 990, ASM 


0038 

Hr 

ABSTRACT! MODIFY WORKSPACE PRINTS THE CONTENTS OF 


0039 

Hr 

A USERS WORKSPACE AND ALLOWS THE USER 


0040 

H 

TO MODIFY THEM, 


0041 

Hr 

CALLING SEQUENCE! 


0042 

Hr 

BL FMODWSP 


0043 

♦ 

R10 • POINTER TO COMMAND PARAMETER LIST 


0044 

# 



0045 

# 

REF'S AND OEF'S 


0046 


DEF HOOWSP 


1047 


»EF USRwp 


0048 


REF CLST 


0049 


REF PRNTC 


0090 


REF PRNTHY 


0091 


REF PRCRLF 


0092 


REF blank 


0093 


REF GETHXN 


0094 


REF RANGEY 


0095 


REF RGSTR 


0096 


REF RGSTRB 

c 



** MODIFY WORKSPACE PROCESSOR *★ 945367*99P1 ** 


PACE 0003 


0057 

0058 
0050 
0060 
0061 
0062 

0063 

0064 

0065 
0065 
0t^67 
0W68 
ii?60 
007M 

0071 

0072 

0073 

0074 

0075 
007« 

0077 

0078 
0070 
0060 
0M81 
0062 

0003 

0004 

0085 

0086 

0087 

0088 
0080 
0000 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0090 

0100 

0101 

0102 

0103 

0104 

0105 

0106 


0000 

0002 


00104 

0006 

0008 

000A 

000C 

000P 


0010 

0012 

0014 


0016 
0018 
001 A 


REF 

GETftUF 

REF 

RET0UF 

REF 

LWP 

REF 

RWP 

REF 

ACL 

REF 

RR 


* 

♦WORKSPACE REGISTER DEFINITIONS 


* 


0000 

R0 

EQU 

0 

0001 

R1 

EOU 

1 

0002 

R2 

EQU 

2 

0003 

R3 

EQU 

3 

0004 

R4 

EOU 

4 

0005 

R5 

EQU 

5 

0006 

R6 

EOU 

6 

0007 

R7 

EOU 

7 

0009 

R8 

EOU 

8 

0009 

R9 

EOU 

9 

000A 

R10 

EQU 

10 

000B 

Rll 

EOU 

11 

000C 

R12 

EQU 

12 

0000 

R13 

EOU 

13 

000E 

R14 

EOU 

14 

000F 

HI 5 

EOU 

15 


♦ 

* 

00001 MOOWSP EOU S 

* *AULQC, COPY, LINK 

0420 8LWP PACL 

0000 

♦ 

* 

« 

♦ 

* 

* 

* 


04ca 

06A0 

0000 

1025 

0207 

000P 


CLP H8 
BL PRANGEX 

JHP MOD030 

LI R7,»F 


C189 

8187 

H20 

0016' MOO010 

* 

0204 

0000 

A106 


NOV R0,R6 
C R7,R6 
JLT MOO030 
EOU S 

LI R4,CL8T 
A 


l^PROCEOURE MODIFY WORKSPACECC 


2»/* modify workspace ACCEPTS 
2* A USER REGISTER AND PRINT 
9m CONTENTS OF EACH REGISTER 

2- THE USER TO MODIFY IT, 

2*** / 

2-CALL RANGE (CPL, LOW, HIGH, 1F», 
2»7* range IS FROM USER SPECIF 
9m TO MAY POSSIBLE REG */ 


FORCE HIGH LIMIT 

2-IF .NOT, ERROR THEN DO UNTI 
2-OR USER CRf 
LOW LIM 


3-REG ■ CLSTaOW) 


0107 


R6,R4 


** MOOirv WORKSPACE PROCESSOR ** 945367»R9«1*# 


page PPRA 


9lDa 

0«lC 

0614 


HOVB 

*R4*6RGSTRB 



mil 

0000 





eioi 






3»CALL PRINT CREG STR) /* CR* 

eU0 

0020 

06A0 


BU 

6PRCRLP 

CR / LE 


0022 

0000 





0UI 

0024 

1000 


NOP 



0112 

0026 

020 A 


u 

R10,RG8TR 



002S 

0000 





0113 

002A 

06 AS 


BL 

• PRNTC 



002C 

0000 





0114 

002E 

1013 


JMP 

MOD030 


0119 



* 



3»R8PTR R L0CCU8ER WORKSPACE (I 

01ia 

0030 

C120 


MOV 

«USRMP,R4 



0032 

0000 





0117 

0034 

A10S 


A 

R6«R4 


0110 

0036 

A106 


A 

R6,R4 


0119 



t 



3-CALL PRINT HEX (RGPTR, VALUE) 

ilse 

0036 

C294 


MOV 

• R4.R10 


0121 

003A 

06A0 


8L 

fPRNTHX 



003C 

0000 





0122 

003E 

100B 


JMP 

MOD030 


0123 



t 



3-CALL GET HEX VALUEfHEX VALUE 

0124 



t 



4-TERM CHAR, ERROR) 1 

0129 



# 



3»IF ERROR THE SIGNAL USER CRI 

0126 

0040 

06 A 0 


BL 

6GETHXN 

R9B0 ■ TERM CHAR, R10 ■ R8L 


0042 

0000 





0127 

0044 

1009 


JMP 

MOD03i 


0126 



* 



4-USER WORKSPACE (I) ■ HEX VALU 

0129 

0046 

C90 A 


MOV 

R10f *R4 


0190 






4-IF TERM CHAR ,NE. BLANK 

0191 






5-THIN signal USER CRi 

0192 

0046 

9609 


CB 

R9,#BIANK 



004A 

0000 





0133 

004C 

1604 


JNE 

MOD030 


0194 



t 



3-INOI 

0199 


004E» 

MOO020 EQU 

8 


0196 



* 



3-LOW ■ L0W*1| 

0137 

004E 

0586 


INC 

R6 


019S 



# 



3-IF LOW ,GT, HIGH THIN SIGNAL 

0139 



t 



4-regs exhausted, 

0140 

0090 

6IC6 


C 

R6»R7 


0141 

0092 

1901 


JGT 

MOO030 


0142 

0054 

1010, 


JMP 

MOO010 


0143 



# 



a-ENOI 

0144 



* 



2-REGS EXHAUSTEOi 

0149 



* 



2-USER CRI 

0146 



# 



2-ENO MOOIFT WORKSPACE 

0147 


0096 » 

MOO030 iOU 

S 


tl4« 



t 

• link 

TO PREV WK8P» 

RET CURR WK8P 

0149 

0096 

0420 


BLWP 

6RR 



0096 

0000 





0190 

009A 

0450 


RT 



0151 




END 




eepe ers 
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PAGE 0005 


960 « { 

980 CONCORDANCE 


$ 


0084 

0104 

ACl 


0061 

0086 

0L*NK 


3052 

0132 

ClST 


0048 

0106 

getbuf 


0057 


GETHAN 


0053 

0126 

LWP 


0059 


MOO010 

0104 

0142 


500021^ 

0135 



MOO03C' 

0147 

0097 

0103 

MOOW8R 

0084 

0046 


PBCHLF 


0051 

0110 

PRNTC 


0049 

0113 

PBNTHY 


0050 

0121 

R0 

0065 



«1 

0067 



R10 

0076 

011? 

0120 

Rll 

0077 



ftl2 

0078 



Rl3 

0079 



R14 

0080 




0081 



R2 

0068 



R3 

0069 



R4 

0070 

0106 

0107 

R5 

0071 



R6 

0072 

0101 

0102 

R7 

0073 

0098 

0102 

R0 

0074 

0095 


R9 

0075 

0101 

0132 

RANGEX 


0054 

0096 

RfTBUF 


0058 


rgstr 


0055 

0112 

RGSTRB 


0056 

0108 

RR 


006? 

0149 

RWP 


0060 


USRWP 


0047 

0116 


0135 0147 


0114 012 ? 0127 0133 0141 


0129 


0108 

0116 

0117 

0118 

0120 

0107 

0140 

0117 

0118 

0137 

0140 


0129 


TH6RE ARE 0037 SYMBOLS 






APPLICATION 


REVISIONS 


NEXT ASSY 

USED ON 

LTR 

DESCRIPTION 

DATE 

APPROVED 






• 






- 






4» 






z 






- 






. 



‘J 


REV 













■ 

















SHEET 













■ 

















REV STATUS 
OF SHEETS 

REV 







■ 

















SH 

EET 







■ 

















UNLESS OTHERWISE SPECIFIED 
DIMENSIONS APE IN INCHES 
TOLERANCES 
ANOLES Tl* 

3 PLACE DECIMAL ± 010 
2 PLACE DECIMAL ± 02 

IDENTIFYING NUMSERS 
SHOWN IN PARENTHESES 
FOR REFERENCE ONLY 

INTERPRET DWG IN 
ACCORDANCE WITH 
MIL STD lOO 

OATE^ 

"7^ 

fiSn Texas Instruments 

^rjrj INCORPORATED 

€quipmmt Group Mtm, Toxm 

ENGR 

- \ / 

7 ^ 

. AL, OVERLAY, OVERLAY PR0CESS0R-PX990 



CONTR 

OESIG^I^CTIVITV RClEASeV 

SIZE 

A 

CODE IDENT NO 

96214 

DRAWING NO 

945368-9901 


7 

SCALE 

REV. 

SMEET 1 of 7 1 








•• PViRiAY PROCESSOR ** 


R453ei|M9901** 


PASf 0B02 


0005 

0004 

0005 
0000 
0007 
0000 

0009 

0010 
00U 
00ia 

0013 

0014 

0015 

0016 
0017 
001S 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 
8027 
§026 
0029 

8030 

8031 
8832 
0833 
8034 
0035 

8036 

8037 

8038 
0039 
8040 
884 } 
8842 

8043 

8044 

8045 

8046 

8047 

8048 

8049 

8050 
8081 
8852 
0083 

8084 

8085 

8086 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

t 

* 

«r 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 


PROCEDURE OVERUAYI 
/* 

OVERLAY IS RESPONSIBLE FOR 
MANAGING THE PY990 TRANSIENT 
AREA, this INCLUOESi 

1) DISABLING COMMANDS FOR THE 
CURRENT AREA, 

2) CALLING THE LOADER TO LOAD 
THE NEW OVERLAY, 

3) ENABLING the COMMANDS IN THE 
NEW overlay, 

4) building a transfer vector for 

USE BY THE OVERLAY IN CALLING 
THE system, 

*/ 

DECLARE 

TRANSIENT AREA (7083 FIXED (16) CONTROL TPTR» 
veCTDR(2) PTR CONTROL TPTR> /# SVC CALL •/ 
DECLARE 

1 COMMAND ENTRY CONTROL CPTRf 
2 command string CHAR(2), 

2 COMMAND ROUT POINTERI 

CPTR ■ LOCfTRANSIENT AREA) * LEN(VECTOR)f 

DO while command entry ,NE, 01 
CMDPTR ■ LOCCCOmmAND TAeLE)| 

CCNT ■ NO CMOSI 
00 WHILE CCNT»0| 

IF command string ,ne, cmoptr, command 

THEN DOl 

CMOPTR a CMDPTR ♦ LEN (COMMAND) 

CCNT ■ CCNT *11 
ENDI 

CPTR ■ CPTR ♦ LEN(C0MMAND ENTRY) I 

END 

eiASa LOC(INIT) 

CALL LOAIMFLAG, BIAS, ERROR) 

IF LOAD successful THEN 00| 

CPTR ■ LOCITRANSIENT AREA) 

DO while command entry ,NE, if 

CMDPTR a LOCICOMMANO TABLE) | 

CCNT ■ NO CMOS 
DO while CCNTW0P 

IF COMMAND STRING ,EQ. CMOPTR .COMMAND 
THEN OOf 

CMDPTR ■ CMOPTR ♦ LEN (COMMAND) I 
CCNT ■ CCNT •!» 

ENDI 

CMDPTR, COMMAND SVC ROUTINE i COMMAND ROU 
CPTR a CPTR ♦ LEN(COMMANO ENTRY) | 

ENDI 

ENDIELSE D0| 

/* INDICATE NO COMMANDS ♦/ 

L0C(T«AN8IENT AREA) a 0| 

ENDI 



•* overlay processor ** 


9A5368«990ll** 
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0087 

005B 

0089 

0060 

0061 

0062 

0063 

006A 

0065 

0066 
0067 
0066 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 
0076 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 
0087 
0086 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 
0096 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
iUl 


»nVERLAY» 

OVERLAY 

overlay supervisor 
original 

990 r ASP 

ovly is responsible POR panaging the 

PX990 transient aria, SPEC1EICAU.YI 

1) disable COPPANOS in current overlay, 

2) CALL LOADER TO LOAD OVERLAY, 

3) IP LOAD SUCCESSPUL# ENABLE COMPANDS 
IN NEW OVERLAY. 

* CALLING SEOLIENCEI 

* PL BOVLY 

* R10 contains POINTER TO COMMAND PARAMETER LIST 

* REF'S AND DEE'S 

* 

REP GETBUF 
REP RET8UP 
REP LWP 
REF RWP 
REP ACL 
REP RR 
OEP OVLY 
DEP OVLHET 
REF LDAOOV 

REP TRNARA start op TRANSIENT AREA 

REF INIT 

REP CPDTiL 

REF NOCMOS 

REP PRCRLF 

REP PRINT 


IDT 

TITLE* 

REVISION* 

COMPUTER* 

ABSTRACT! 


* 

♦WORKSPACE REGISTER DtFINITIOMS 


♦ 


0000 

R0 

EQU 

0 

0001 

R1 

EOU 

1 

0002 

R2 

EQU 

2 

0003 

R3 

EQU 

3 

0004 

R4 

EOU 

4 

0005 

R5 

EQLI 

5 

0006 

R6 

EQU 

6 

0007 

R7 

EOU 

7 

0008 

R8 

EQU 

8 

0009 

R9 

EOU 

9 

000A 

R10 

EOU 

10 

0000 

Rll 

EQU 

11 

000C 

Ria 

EOU 

12 

0000 

R13 

EQU 

13 

000C 

R14 

EQU 

14 

000F 

Rl9 

EQU 

15 


♦ 


♦ 

♦ 

♦ 


IfiPROCIOURE OVERLAYl 
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R4S3eS«99Rl*« 


PAGE P0P4 


0118 


0000' 

OVLY 

IQU 

6 


0113 



* *ALLOC 

, COPY, LINK 


0114 

0P00 

0480 


euwp 

iACL 



0008 

0000 





0115 






a*/* 

0116 






8- OVERLAY IS RESPONSIBLE FOR 

0117 



♦ 



a* MANAGING THE PX990 TRANSIE 

0U« 






9m AREA, THIS INCLUDES! 

0119 



♦ 



2m 1) DISABLING COMMANDS FOR 

0120 



♦ 



2m CURRENT AREA, 

0181 



# ■ 



8* 2) calling the loader to 

0188 



* 



2m THE NEW OVERLAY, 

0123 






2m 3) enabling the commands 

0184 



♦ 



2** new OVERLAY, 

0185 



it 



2m 4) BUILOING A TRANSFER VE 

0186 



# 



8* USE BY the overlay IN 

0127 



t 



2m THE system. 

0186 



* 



2m*/ 

0129 



* 



8..DECLARE 

0130 






3*TRANSIENT AR|A(700) FIKIDde 

0131 



t 



3-VECT0RC8) PTR CONTROL TPTR! 

0138 



♦ 



S*DECLARE 

0133 



# 



Zmi COMMAND ENTRY CONTROL CPT 

0134 



H 



4*8 command string CHAR(8), 

0138 



# 



4»8 command rout POINTER! 

0136 


0004 

CWD^TN 

EQU 

4 


0137 


0005 

CHDLEN 

EOU 

6 


0136 


0000 

CDSTR 

f QU 

0 

COMMAND TEXT STRING 

0139 


0008 

CDRTN 

eon 

2 

COMMAND SERVICE ROUTINE, 

0140 



# 




0141 




REGISTER assignments 


0148 



t 




0143 



♦ 

R10 



0144 



t 

R9 



0145 



♦ 

R8 



0146 




R7 



0147 



* 

R6 

w command entry 

POINTER 

0146 




R5 

* command table 

pointer 

0149 



# 

R4 

- temp 


0150 



it 



8»CPTR m L0C(TRAN8IENT ARIA) ♦ 

0151 

0004 

0800 


LI 

R6,TRMARA 



0006 

0000 





0158 



it 



8*D0 WHILE command ENTRY ,NE, 

0153 


0005' 

OVLYIS^ 

EQU 

s 


0154 

0006 

C596 


MOV 

*R6,*Re 


0155 

000A 

1310 


JEO 

OVLY50 


0156 






SpCMDPTR b LOCeCOMMAND TABLE)! 

0157 

000C 

0205 


LI 

R5,CM0TBL 



000E 

0000 





0156 



n 



3»CCNT i NO CMOS! 

0159 

0010 

C120 


MOV 

PN0CMD8,R4 



0018 

0000 





0l6i 






3»00 while CCNT»0! 

0151 


0014' 

OVIY20 

EQU 

$ 

' ■ j 

0168 

0014 

1305 


JEO 

OVLY50 

( 
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0163 



t 



4»IF COMMAND STRING ,Nf, CMOPT 

0164 



# 



4»THEN OOl 

0165 

0016 

8556 


c 

*R6f *R5 


0166 

0018 

1304 


JEO 

OVLY40 


0167 



* 



4wCM0PTR « CMOPTR ♦ LENtCOMMAN 

0168 

001A 

0225 


AI 

rs.cmolen 



001C 

0006 





0189 






4»CCNT • CCNT 

017f< 

001E 

0604 


DEC 

R4 


0171 






3*END| 

0172 

0020 

10F9 


JMP 

OVLY20 


0173 


0022’ 

0VIY4«! 

EQU 

S 


0174 

0022 

04E5 


CLR 

PCMDRTNfRS) 



0024 

0004 





0175 



t 



3«>CPTR ■ CPTR ♦ LENCCOMHANO EN 

0178 

0026 

0226 


AI 

R6,CDRTN42 



0028 

0004 





0177 



it 



?«-end 

0178 

002A 

10EE 


JMP 

OVLY10 


0179 


002C’ 

OV1Y50 

EOU 

S 


0180 



Hit 

LOAD 

OVERLAY 


0181 






2PBIAS1 LOCtINIT) 

0182 

002C 

0201 


LI 

R1»INIT 



002E 

0000 





0103 



* 



2*CALL LOADtFLAC, BIAS, ERROR) 

0184 

0030 

06A0 


8L 

8L0A00V 



0032 

0000 





0105 


0034’ 

ovLRer 

EQU 

S 


0166 






2#IF LOAD SUCCESSFUL THEN OOf 

0107 

0034 

C000 


MOV 

R0,R0 


0168 

0036 

161E 


4NE 

OVLZ50 


0189 



it 




0191* 



it 



3»CPTR i LOC (TRANSIENT AREA) 

0191 

0038 

0206 


LI 

R6,TRNARA 



003A 

0006' 





0192 



H 



3*00 WHILE command ENTRY ,NE, 

0193 


003C’ 

0VL7|{« 

EOU 

S 


0194 

003C 

C596 


MOV 

*R6»*R6 


0195 

003E 

131C 


JEO 

OVLZ60 


0196 



it 



4..CMDPTR * LOCCCOMMAND TABLE)! 

0197 

0040 

0205 


LI 

R5,CM0T8L 



0042 

000E’ 





0198 



it 



4»CCNT ■NO CMOS 

0199 

0044 

C120 


MOV 

PN0CH08,R4 



0046 

0012’ 





0200 



t 



4mf)0 WHILE CCNT>0| 

0201 


0049’ 

OVL220 

EQU 

S 


0202 

0048 

1315 


JEO 

OVLZ50 


0203 



it 



5»*IF command string ,EQ. CMOPT 

0204 



# 



5««*THEN DO! 

0205 

004A 

8556 


C 

*R6 $ *R5 


0206 

004C 

1304 


JEO 

OVLZ30 


0207 



t 



5*CH0PTR ■ CMOPTR ♦ LEN(COMMAN 

0208 

004E 

0225 


AI 

R5,CM0LEN 



0050 

0006 
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mm 

Z2Vfl 

0052 

0604 

♦ 

DEC 

R4 

5»CCNT ■ CCNT .11 

B2U 






4.ENDI 

0212 

0054 

10F9 


JMP 

OVLZ20 


0213 


0056* 

OVU230 

t'OU 

$ 


0214 



♦ 



6. CMOPTR, COMMAND SVC ROUTINE ■ 

0215 

0056 

C966 


HOV 

PCDRTNCR01 , 

#CMDRTN(R5) 


0056 

0002 






005A 

0004 





0216 

005C 

06A0 


fiU 

PPRCRLF 



00 5E 

0000 





0217 

0060 

1000 


MOP 



0216 

0062 

caas 


MOV 

R5»R10 


0219 

0064 

0209 


II 

R9,2 



0066 

0002 





022 

0066 

06A0 


BL 

PPRINT 



006A 

0000 





0221 

0222 

006C 

1000 

« 

NOP 


4.CPTR ■ CPTR ♦ LENCCOMMANO EN 

0229 

006C 

0225 


AI 

R6,CDRTN42 



0070 

0004 





0224 



t 



3. END 1 

0225 

§226 

0072 

10E4 

t 

JMP 

OVLZ10 

2.ENDIELSE DOT 

0227 


0074* 

OV1250 

EQU 

S 


0226 



♦ 



3./* indicate NO COMMANDS */ 

0229 

0230 

0074 

04E0 


CLP 

•trnara 

3.LOC (TRANSIENT AREA) • 0| 


0076 

003 A* 





0231 - 



♦ 



2*ENDf 

0232 


0078* 

DVtl6i 

EQU 

s 


0233. 

0076 

0420 


BLWP 

fRR 



007A 

0000 





0234 

0235 

007C 

0458 


PT 

END 




SB00 EPS 



960 «• 980 CONCORDANCE 



$ 


0112 

0153 

0161 



0227 

0232 


ACC 


0078 

0114 


CDRTN 

013^ 

0176 

0215 

0223 

CDSTH 

013*- 




CNOLEN 

013/ 

0168 

0208 


CmOKTn 

013B 

0174 

0215 


Cmdtbl 


0085 

0157 

0197 

GEtBUF 


0074 



INIT 


0084 

0182 


UOAHOV 


0082 

0184 


LWP 


0076 



NOCMDS 


0086 

0159 

0199 

OVIRET 

0185 

0081 



ovuv 

011? 

0080 



OVLV 10 

0153 

0178 



OVCY20 

0161 

0172 



OVCV40 

0173 

0166 



0VCY54 

0179 

0155 

0162 


OVCZH 

0193 

0225 



OVUZ20 

0201 

0212 



OVCI30 

0213 

0206 



OVUZSt'- 

0227 

0188 

0202 


0VI.76V1 

0232 

0195 



PRCRLF 


0087 

0218 


PRINT 


0088 

0220 


«0 

0092 

0187 

0187 



0093 

0182 



R10 

0102 

0218 



«ll 

0103 




«12 

0104 




Rl3 

0108 




R14 

0106 




«16 

0107 




R2 

0094 




R3 

0095 




R4 

0096 

0159 

0170 

0199 

R5 

0097 

0157 

0165 

0168 

R6 

0098 

0151 

0154 

0154 



0215 

0223 


R7 

0099 




R8 

010? 




R9 

0101 

0219 



retbuf 


0075 



RR 


0079 

0233 


RWF 


0077 



TRnaRa 


0083 

0151 

0191 


9^5368-9901** 
0173 0179 0185 


PAGE 0007 

0193 iail 


001 ffl 
0174 
0165 


0197 

0176 


0P05 

0191 


0008 

0194 


0215 

0194 


0230 


THfc«e ARE 0045 SVM0CLS 


0213 


0218 

0205 








OA 


. AL, 

APVD 

.A . 


CONTR NO 



\ 

"sis' 

DESIGN ^TIVITY RELEASE 

A 


SIZE CODE IIDENT NO 

A 96214 


SCAL£ 



SH6ET2 of 3 





















*t output TO UX6HTS ** 


849369«99i|*« 


PAGE P9ie 


0089 




lOT 

»PCOUT» 

0004 



♦ 

title 1 OUTPUT U8PPC 

0009 



* REVISIONI 


0000 





original 

0007 




COMPUTER 1 

990«A8M 

0000 



# 

A88TRACTI 

OUTPUTS USER 

0009 



♦ 

CALLING SEQUENCE 1 

0010 





BL PPCeUT 

9011 



♦ 



0010 

■ i 




DESTROYS RI2 

0013 

\ 


♦ 



0014 





REFS AND DEFS 

0019 




DEP 

PCOUT 

0010 




REF 

CRUOFF 

0017 




REF 

U8RPC 

8018 






1019 


000C 

R18 

EQU 

12 

0000 


000A 

Ri« 

EOU 

10 

0001 



« 



0000 


0000’ 

PCOUT EOU 

S 

0003 

0000 

090C 


LI 

R12iCRUQFF 


0009 

0000 




0084 

0004 

C2A0 


MOV 

PU8RPC#R10 


0006 

0000 




0889 

0008 

990A 


LDCR 

R10»8 

9088 

000A 

06CA 


$MPB 

R10 

8087 

008C 

320A 


LDCR 

Rl0iS 

0088 

000E 

0499 


RT 


0089 




END 



0008 EPS 


PC TO PPONT PANEL LI6HTS 


P10 





PAGE 0003 


96t • 9le CONCORDANCf 
S 0982 

CRUOFF ®R1* ®®2* 

( PCOUT 0982 001S 

R10 0029 0024 0025 0026 

Rl8 0018 0083 

U8«PC 001^ ®®24 

THIRE ARE 0005 8VM80L8 








Tl-t*tSC 





















** PRINT HIM AND CPU PANGES ** 945S7a«if9e!l** PASS i8«8 


ii03 

if 

PROCEDURE PRTMEN CSTART AD0R, END A00R3 1 

mm 4 

# 

DECLARE (start AODR, END AODR) BIT Cl6)| 

0f 05 


DECLARE MULTIPLIER LITERALLY »2'f 

0005 

# 

DECLARE NOT CRU LITERALLY »0'l 

0007 

# 


0008 

I* 

CALL PRT000 CSTART ADDR» END AODR, NOT CRU, 

0009 

♦ 

MULTIPLIER)! 

0010 

♦ 

RETURN! 

00U 

# 

END PRTMEM! 

00 IP 

# 

PROCEDURE PRTCRD (4I0TW, START AODR, 

0013 

if 

END AODR)! 

0014 

if 

DECLARE (START AODR, END AOOR) BIT (16)! 

0015 

# 

DECLARE WIDTH FIXED! 

0018 

t 

DECLARE MULTIPLIER LITERALLY »32»! 

0017 

if 

DECLARE CRU LITERALLY »•!»! 

00lfl 

t 


iilP 

# 

CALL PRTi00 (START ADDR, END AODR, CRU, 

mm 

t 

MULTIPLIER, WIDTH)! 

0001 

♦ 

RETURN! 

0022 


END PRTCRU! 

0023 


procedure PRT000 (START, END, CRU FLAG, 

0024 

* 

multiplier, WIDTH) 

0025 

★ 

DECLARE (START, END, MULTIPLIER, WIDTH, 

0026 


CRU FLAG) BIT (16)! 

0027 

# 

DECLARE I BIT (15)! 

0020 

* 

DECLARE AODR POINTER! 

0029 

# 

DECLARE MEMORY WORD BIT (16) CONTROL (AODR)! 

0030 

# 

I • 0! 

0031 

♦ 

DO while (START 4 - I * MULTIPLIER) 41 END! 

0032 

# 

AODR ■ START ♦ I * MULTIPLIER 

0033 

t 

IF MOD (I, 8) « 0 THEN DO! 

0034 

if 

CALL PRCRLF! 

0035 

if 

CALL PRNTHX (ADOR)! 

0035 

a 

CALL PRNTC (»■')! 

0037 

if 

END! 

0035 

# 

ELSE IF MOO (1, 4) i 0 THEN CALL PRNTC (»»')! 

0039 

# 

IF CRU FLAG ■ 0 

0040 

♦ 

THEN DATA ■ MEMORY WORD 

0041 

t 

ELSE DATA « CRU (AOOR) ! 

0042 

# 

CALL PRNTHX (DATA)! 

0043 

t 

If I ♦ 1! 

0044 

♦ 

END! 

0045 

t 

RETURN! 

0045 

t 

END PRT000! 

0047 


IDT iPRTMMCRf 

0045 

t 

TITLE! PRTMEMCR 

0049 

♦ 

PRINT MEMORY AND CRU RANGES 

0050 


REVISION! 

0051 

♦ 

original 

0052 

t 

COMPUTER! 990 

0053 

* 

ABSTRACT! 

0054 

# 

THIS SUBROUTINE PRINTS MEMORY AND CRU RANGES. 

0015 

♦ 

THERE ARE Two ENTRY POINTS! PRTMEM ANO PRTCRU, 

iP«ii 

♦ 
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0PSP 

0(^6P 

0W61 

0«62 

0W63 

0(^64 

0«65 

00«« 

0H67 

M06B 

0069 

0000 

0070 

0001 

0071 

0002 

0072 

0003 

0073 

0004 

0074 

0005 

0075 

0006 

0076 

0007 

00 77 

0008 

0076 

0009 

0079 

000A 

0080 

000B 

0081 

000C 

0082 

000D 

0083 

000E 

0084 

000F 

0085 




DEF 

PRTMEH 


PEF 

PRTCRU 


REF 

PRNTHN 


REF 

PRNTC 


REF 

PRNTHX 


REF 

ACt.RR 


ref 

prcrlf 


REF 

EQSIGN, 

* 



tWQPKSPACE 

REGISTER 

* 



R0 

EQU 

0 

R1 

F«U 

1 

R2 

FQU 

2 

R3 

EQU 

3 

R4 

EQU 

4 

R5 

EQU 

5 

R6 

EQU 

6 

R7 

FQU 

7 

RR 

FQU 

8 

RO 

EQU 

9 

R10 

EQU 

10 

Rll 

FQU 

u 

R12 

FQU 

12 

R13 

EQU 

13 

R14 

EQU 

14 

R15 

EQU 

15 


* 


DMPSPR 

definitions 
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PAGE 0014 

e»i7 



t 

TITLEI 

PRTHEN 



etis 





print memory 

RANGE 




t 

RIVJSIONI 




8091^ 





ORIGINAL 



8081 



* 

COHPUTERI 

990 



0098 



t 

AB8TRACTI 




0093 



* 


THIS SUBROUTINE 

PRINTS THE CONTENTS OF MEMORY, 

0094 



# 


EIGHT WOROJ 

PER 

LINE, FOR THE INCLUSIVE RANGE 

009S 



# 


<START ADOR8 

TO 

«ENO AOOR», THIS DATA IS 

0096 



■ t 


printed as four 

HEXAOECIMAL DIGITS. 

0097 



t 

CALUNS SEOUENCEl 



0098 



♦ 


MOV <8TART 

AOOR»,R9 

0099 



# 


MOV <END ADORs*i 

R10 

0100 



t 


BL PPRTMEM 



0101 



* 


JMP 


*** ERROR EXIT 

0102 



# 


R0 AND R1 ARE DESTROYED 

0103 



# 




1 •PROCEDURE PRTMEM (START AOOR 

0104 



it 




2-DECLARE (START AODR, END ADD 

0105 



it 




2*DECLARE MULTIPLIER LITERALLY 

0108 



it 




2*DECLARE NOT CRU LITERALLY »0 

0107 


0002 

WORD EQU 

2 


MULTIPLIER ■ 2 

0108 


0000’ 

PRTMEM EOU 

$ 



0109 

0000 

0420 


BUWP 

PACL 




0002 

0000 






0110 



t 




9m 

0111 



* 




2«CALL PRT000 (START AODR» END 

0112 



it 




5*MULTIPL1ER)1 

0113 

0004 

0249 


AND! 

R9#»FFFE 


ASSURE WORD ADDRESS 


0006 

FFFE 






0114 

0008 

04C3 


CLR 

R3 


FLAG NOT CRU 

0115 

000A 

0204 


U 

R4,HORD 


MULTIPLIER 


000C 

0002 






0116 

000E 

1008 


JMP 

PRT000 



0117 



if 




PipRETURNi 

0118 



# 




2»END PRTMEMI 
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«ia« 



* TITIEI 

PRTCRU 

H6i2i 



* 

print CPU RANGE 

6)122 



* REVISION! 


0129 



* 

ORIGINAl 

0124 



♦ COHPUTEI^I 

990 

0129 



♦ ASSTRACTI 


012« 




THIS subroutine prints the values of the CRU 

0127 



n 

INPUT LINES, THE CRU INPUT LINES ARE TREATED 

012S 



«r 

IN GROUPS OP SIXTEEN, ALTHOUGH NO BOUNDARY 

0129 



* 

RESTRICTION IS PLACED UPON THE STARTING ADDRESS 

0130 



♦ 

OF A GROUP. only THE FIRST 4WI0TH> LINES OF 

0131 



if 

EACH SIXTEEN LINE GROUP ARE READ AND DISPLAYED, 

0132 



* CALLING SEQUENCE! 

0133 




MOV <HI0TH»,R8 

0134 



* 

MOV 4START A00R>,R9 

0139 



* 

MOV <ENO ADDR»,Rlf 

0136 



♦ 

BL PPRTCRU 

0137 



« 

JMP *** ERROR EXIT 

0138 



♦ 

R0 AND Rl APE DESTROYED 

0139 



# 

IwPROCEOURE PRTCRU (WIDTH, STA 

014M 



♦ 

S-INO AOORII 

0141 




2#0ECLARE (START AODR, END ADD 

0142 



# 

2-DECLARE WIDTH FIXED! 

0149 




2-DECLARE MULTIPLIER LITERALLY 

0144 



it 

pwDECLARE CRU LITERALLY ’•I’f 

0145 


0020 

CRUHLT EQU 

16*2 INC CRU BASE BY SIXTEEN BITS 

0146 

0010 

340A 

8TCR STCR 

R10,0 

0147 


0012’ 

PRTCRU EOU 

$ 

0148 

0012 

0420 

BLWP 

PACL 


0014 

0002» 



0149 



t 

2* 

01S0 



* 

2-CALL PRT000 (START ADDR, END 

0191 



* 

9-MULTIPLIER, WIDTH)! 

0192 

0016 

C088 

HOV 

R8,R2 GENERATE STCR INSTRUCTION 

0193 

0018 

0AC2 

SLA 

R2,12 

0154 

001 A 

0262 

SRL 

R2,6 

0199 

001C 

A0A0 

A 

•STCR,R2 


0018 

0010» 



0196 

0020 

0204 

LI 

R4,CRUMLT MULTIPLIER 


0022 

0020 



0197 

0024 

0703 

8ET0 

R3 CRU FLAG 

0198 



* 

2-RETURN! 

0192 




2*END PRTCRU! 


C 
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§161 






1#PROCEOURE PRTii0 ISTART, END 

§162 



♦ 



SwMULTIPLIER, WIDTH) 

016S 


0025 » 

PRTiii 

EOU 

$ 


§164 



# 



2»OECLARE (START, END, MULTIPLI 

§16S 



t 



5»CRU FLAG) BIT (16)| 

§166 



#' 



9*0ECLARf I ilT Cl6)f 

0167 



t 



2-OECLARI ADDR POINTER! 

0168 



# 



2»DECLARf memory WORD BIT (16) 

0189 



t 



R2 ■ STCR instruction FOR CRU 

0170 



♦ 



R3 ■ CRU FLAG (NONZERO ■ CRU) 

0171 



t 



R4 ■ multiplier 

0172 

0026 

CHS 


MOV 

R9,R8 

R5 » start 

0173 

0«?28 

C18A 


MOV 

R10»R6 

R6 ■ END 

0174 



* 



2»I • 01 

0175 

002A 

04C7 


CLR 

R7 

R7 ■ I 

0178 



# 



2»D0 WHILE (START ♦ I * MULTIP 

0177 


002C« 

PRTili 

EQU 

$ 


0178 

802C 

C2C7 


MOV 

R7,Rll 

I * multiplier 

0179 

002E 

3AC4 


MPY 

R4,RU 


8180 

0030 

A305 


A 

R5,R!2 

1 * multiplier > START 

0181 

0032 

182C 


JOC 

PRT200 


0182 

0034 

818C 


c 

R12»R6 


0183 

0036 

IB2A 


JH 

PRT200 

IF END,0F,L00P 

0184 



t 



S»ADDR i START ♦ 1 * MULTIPLIE 

0185 



it 



3»»IF MOD (I, 8) 9 0 THEN DO! 

§186 

§038 

C247 


MOV 

R7,»9 

1 : 

0187 

003A 

0249 


ANDI 

R9,7 



003C 

0007 





0188 

003E 

1601? 


JNE 

PRT030 

IF I MOO 8 N0N*ZER0 

0189 



♦ 



5*CAU PRCRLF! 

0190 

0040 

06A0 


8L 

•prcrlf 

NEXT LINE 


0042 

0000 





0191 

0044 

1025 


JMP 

PRT500 

**** ERROR EXIT 

0192 



Hr 



5*CALL PRNTHX (ADDR)! 

0193 

0046 

C28C 


MOV 

R12»R1§ 

PRINT STARTING ADDR OF LINE 

0194 

0048 

06A0 


BL 

•PRNTHN 



004A 

0000 





0195 

004C 

1021 


JMP 

PRTS00 

**** ERROR EXIT 

0196 



♦ 



5-CALL PRNTC (»!»)! 

0197 

004E 

020A 


UI 

Rli,E08IGN 

PRINT EQUAL SIGN 


0080 

0000 





0198 

0082 

06A0 


Bl 

8PRNTC 



0084 

0000 





0199 

0056 

10 1C 


JMP 

PRT500 

**** ERROR EXIT 

0200 



t 



5-ENO! 

0201 

0058 

1008 


JMP 

PRT050 


0202 



t 



4*ELSE IF MOO (I, 4) i § then 

0203 


008A» 

PRTi3i 

EQU 

$ 


0204 

005A 

0249 


ANDI 

R9.3 



00sr. 

0003 





0205 

00 5E 

1605 


JNE 

PRT050 

IF X MOO 4 NON.IIRC 

0200 

0060 

§20 A 


LI 

R10»DMP8PR 

PRINT separator 


§062 

0000 





0207 

§064 

06A0 


BL 

iPRNTC 




PRINT mem 
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0068 

0054' 





0208 

0068 

1013 


JMP 

PRT500 

**♦* ERROR EXIT 

020R 



♦ 



3*IF CRU FUA6 ■ 0 

0210 


006A» 

PRTi50 

EOU 

S 


0211 

006A 

C0C3 


MOV 

R3,R3 


0212 

006C 

1602 


JNE 

PRT070 

IF CRU flag NON.2EHO 

0213 






4.THEN DATA • MEMORY WORD 

0214 

006E 

C29C 


MOV 

*R12|R10 


021i 

0070 

1008 


JMP 

PRT110 


0218 



# 



4»EU86 DATA « CRU (AODR)f 

0217 


0072' 

PRT«I7«» 

EQU 

S 


0218 



♦ 




0219 

0072 

04CA 


CUR 

R10 


0220 

0074 

0482 


X 

R2 

STCR INTO R10 

0221 

0076 

0288 


Cl 

R8»8 

IF byte or LES8, RIGHT 


0078 

0008 





0222 

007A 

1501 


JGT 

PRT110 

JUSTIFY 

0223 

007C 

08CA 


SWP0 

R10 


0224 



t 



3»CAU PRNTHX (0ATA5I 

0225 


007E' 

PRTUR 

EQU 

S 


0228 

007E 

06A0 


BL 

PPRNTHX 



0080 

0000 





0227 

0002 

1006 


JMP 

PRT500 

***• ERROR EXIT 

0228 



« 



3f*I ■ I ♦ If 

0229 

0084 

0587 


INC 

R7 


023» 






3»ENDf 

0231 

0086 

028C 


Cl 

R12,>FFFE 



0088 

FFEE 





0232 

008A 

1 AD0 


JL 

PRT010 


0233 



t 



2*R|TURN| 

0234 


008C 

pRTaai 

EQU 

S 


0235 

008C 

06EO 


INCT 

PRU*a(Rl8) 

INDICATE NORMAU exit 


008E 

0016 





0238 


0090' 

PRT5i<?l 

EQU 

» 


0237 

0090 

0420 


8LWP 

PRR 

BACK TO OLD HKSP 


0092 

0000 





0238 

0094 

0450 


RT 



0239 






2»EN0 PRT000I 

024M 




END 



0000 E9S 
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0148 






CiUMLT 

0146 

0156 








omrspr 


0065 

0206 







EStIGN 


0065 

0197 







RRCRIF 


0084 

0190 







PRNTC 


0061 

0198 

0207 






PRNTHN 


0060 

0194 







PRNTMX 


0062 

0226 







PRT0iP) 
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0116 








PRT01P! 

0177 
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0188 








PRT050 

0010 
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0212 
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0226 
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0234 
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0191 

0196 
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0227 
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0147 

0058 








prtmeh 

0106 

0057 








R0 

0069 









Rl 

0070 









R10 

0079 

0146 

0173 

0193 

0197 

0206 

0214 

0219 

0223 

Rll 

0080 

0178 

0179 

0235 






Ri« 
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0180 

0182 

0193 

0214 

0231 




Rl3 

0082 

0235 








RJ4 

0083 









R18 

0084 









RR 

0071 

0152 

0155 

0154 

0155 

0220 




R3 

0072 

0114 

0157 

0211 

0211 





R4 

0073 

0115 

0156 

0179 






R5 

0074 

0172 

0180 







R8 

0078 

0173 

0 1 82 







R7 

0076 

0175 

0178 

0186 

0229 





R8 

0077 

0152 

0221 







R9 

0078 

0113 

0172 

0186 

0187 

0204 




RR 


0063 

0237 







8TCR 

0146 
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WORD 

0107 

0115 
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REV 
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SHEET 
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'M. PRTSSN, PRINT SNAPSH0T-PX990 - 



CONTP NO X X 

— — 

oesicw^tivity pelease X 

SIZE 

A 

CODE lOENT NO 

96214 

ONAWING NO 

945371-9901 


X 

1 SCALE 

J 

1 of 5 1 


Tl-I 












** PRINT SNAPSHOT PROCSSSOP ** 94SS71p 99«1** PASS P0Se 


0003 


PROCEDURE PRINT SNAPSHOT C8S#3 1 

0»04 

* 

/* PRINT snapshot PINOS THE SNAPSHOT 

0005 

# 

ENTRV ASSOCIATED WITH A SNAPSHOT 

0005 

t 

AN PRINTS THE CONTENTS OP THE 

0007 

♦ 

SNAPSHOT 

000i 


*/ 

000§ 


DECLARE 

0010 

* 

1 SNAPSHOT CONTROL SNAP ENTRVI 

0011 

* 

2 SSPLAG ilTC85, 

0012 

« 

2 PILLERC8), 

0013 

* 

2 LOW REG PIXID(S) 

0014 

# 

2 HI8H RES PIXEDfS) 

0015 

♦ 

2 HEM RANGE 1(2) PIXID(IS), 

0016 

♦ 

2 hen range 2(2) PIXEDdi)! 

0017 

# 

DECLARE 

0016 

t 

8P0EF LITERALLY »80», /• 88 DEPlNEO */ 

0019 

# 

SPMRl literally »40«, /* MEM RNS 1 ♦/ 

0020 


SFMR2 literally »20» /* MEM RNG 2 ♦/ 

0021 

* 

SNAP ENTRY ■ L0C(8NAP TA6LE) ♦ 88R*88LEN| 

0022 

t 

IF (SSOEF 6SSFLAG) ,E0, 0 THEN RETURN! 

0023 

t 

CALL PRINT( 'SNAP ',880)1 

0024 

# 

CALL PRINT REG(LOW REG, HIGH RES) » 

0025 

★ 

CALL PRINT MEMORY(M|M RANGE 1)1 

0026 

♦ 

ENDI 

0027 

♦ 

end PRINT snapshot 

0026 


lOT 'PRT88N' 

0029 

♦ TmSl PRTSS 

0030 

# 

PRINT SNAPSHOT 

0031 


RIVI8I0NI 

0032 

t 

original 

0033 

♦COMPUTSRI 990, ASM 

0034 

♦AiSTRACTl PRINT SNAPSHOT PRINTS THE CONTENTS OP A 

0035 

# 

SNAPSHOT, IT IS ASSUMED THAT THE SNAPSHOT 

0036 

♦ 

IS PROPERLY DEFINED 

0037 

♦ CAUINS SEOUENCEI 

0039 

♦ 

BL 4PRT8S 

0039 


R10 • SNAPSHOT # 

0040 



0041 

# 

REF’S AND DEF'S 

0042 

♦ 


0043 


DEF PRTSS 

0044 


REF 8NPENT 

0045 


REF SNPTAB 

0046 


REF CLST 

0047 


REF PRTMEM 

0046 


REF IWP 

0049 


REF PRNTC 

0090 


REF 88STR 

0091 


REF S8STRB 

0092 


REF CETSUF 

0093 


REF RETBUF 

0094 


REF ACL 

0099 


REF RR 

0096 

♦ 
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0057 



♦WORKSPACE 

REGISTER OEFINTTIONS 

0058 



♦ 




0059 


0000 

R0 

eou 

0 


0060 


0001 

R1 

EQU 

1 


0061 


0002 

R2 

EQU 

2 


0069 


0003 

R3 

EOU 

3 


0063 


0004 

R4 

EQU 

4 


0064 


0005 

R5 

EQU 

5 


0065 


0006 

R6 

EOU 

6 


0066 


0007 

R7 

EOU 

7 


0067 


0008 

R8 

EQU 

S 


0068 


0009 

R9 

EQU 

9 


0069 


000A 

R10 

EQU 

10 


0070 


0006 

Rll 

EQU 

11 


0071 


000C 

R12 

EOU 

12 


0072 


0000 

R13 

EQU 

13 


0073 


000E 

R14 

EOU 

14 


0074 


000f 

R15 

EQU 

15 


0075 



♦ 




0076 



* 



1»PR0CSDURE PRINT SNAPSHOT tSSP 

0077 



♦ 



2*/^ PRINT SNAPSHOT PINOS THE 

0078 



* 



im ENTRY associated WITH A 8 

0079 



* 



2* AN PRINTS THE CONTENTS OF 

0080 



♦ 



Sm snapshot 

0081 



♦ 



2**/ 

0082 



♦ 



2-DECLARE 

0083 



♦ 



3»t SNAPSHOT CONTROL SNAP ENTR 

0034 



* 



4*2 SSFLAG BIT(S), 

0085 



* 



4*2 FILLERfBli 

0086 



♦ 



4«2 LOW REG FIXED C85 

0087 



♦ 



4*2 HIGH REG FlXEOtSl 

0038 



♦ 



4*2 HIM range 1C2) FIXED C185, 

0089 



♦ 



4.2 HIM range 2(2) FIXEOa«)l 

0090 


0000 

SSFLAG 

EOU 

0 

FLAGS 

0091 


0002 

8Si.ORG 

EQU 

2 

LOW REG 

0092 


0003 

8SHIRG 

EOU 

3 

HIGH REG 

0093 



♦ 



2.DECLARE 

0094 



♦ 



3.8FDEF LITERALLY *80', /• 8S 

0095 



♦ 



3.SFMR1 LITERALLY *40«, /* ME 

0096 



♦ 



3.8FHR2 literally *20* /*HE 

0097 


0080 

8S0EF 

EQU 

880 


0098 


0004 

SSHRl 

EOU 

4 

MEM RNG 1 

0099 


0100 

U8YTE 

EOU 

256 


0100 


00001 

PRTS8 

EQU 

S 


0101 

0000 

042f 


8tWp 

PACL 



0002 

0000 





0102 



* 



2.8NAP ENTRY • LOCCSNAP TABLE) 

0103 

0004 

C18A 


HOV 

R10fR6 

8S# 

0104 

0006 

0205 


LI 

R6,8NPENT 

ENTRY length 


0008 

0000 





0105 

0004 

3985 


MPY 

R5,R6 

R6 ■ SNAP ENTRY PTR 

0106 

000C 

C187 


HOV 

R7,R6 


0107 

0001 

0226 


41 

R6,SNPTAB 



0010 

0000 





0108 



♦ 



2*IF (S80IF S8SFLA6) .EQ, 0 TH 


*♦ P»1NT SNAPSHOT 

PROCESSOP ** 94637t«9901** 

PAGE 0004 

SI 09 

0012 

C016 

MOV *R6»Pi 

FLAGS 

SUP 

0014 

0016 

0240 

8000 

ANDI R0,88DEP*l.evTE 


0111 

0110 

0018 

1325 

460 PPTi20 

# 

2»CALL PRINT f ’SNAP »»88#)f 

0113 

001A 

001C 

022A 

0000 

AI P10,CUT 


01H 

001E 

0020 

D81A 

0000 

M0V8 #P10,F8S8TRi 


0118 

0022 

0024 

020A 

0000 

LI R10,888TR 


0116 

0026 

0028 

06A0 

0000 

8L PPRNTC 


0117 

0118 
0119 

002A 

1000 

NOP 

* 

* *GETBUF 

2»CALL PRINT REGtLOW REG#HIGH 

0100 

002C 

002E 

0420 

0000 

PLWP PGET0UF 


0121 

0030 

C10A 

MOV R10,R4 

SAVE BUFFER PTR 

0122 

0032 

0034 

0200 

02C0 

LI R9r2*LBVTE4PC0 

AND USE INSPECT WORKSPACE 

0123 

0036 

CE80 

MOV R9,*R10* 


0124 

0038 

003A 

0266 

0002 

MOVB PS8L0Re(R6),R9 

LOW REGISTER 

0125 

003C 

0989 

SRL R9,8 


0126 

003E 

CS89 

MOV R9,*R!0* 


0127 

0040 

0042 

0266 

0003 

M0V8 »88HIRGCR6)»R9 

HIGH RiGISTER 

0128 

0044 

0989 

SRL R9,8 


0129 

0046 

C689 

MOV R9,*R10 


0130 

0048 

004A 

022A 

FPFC 

A I R10fw4 

PTR TO CPL 

0131 

004C 

004E 

06A0 

0000 

8L ilWP 

RESTORE 0UF PTR 

0132 

0133 

0050 

C284 

MOV R4,R10 
> ♦RET8UF 

0134 

0135 

0052 

0054 

0420 

0000 

8LWP FRET8UF 

* 

f^CALL PRINT HEMORVIMEM RANGE 

0136 

0050 

0058 

C266 

0004 

MOV 088MR1 (R6) »R9 


0137 

005A 

00SC 

C2A6 

0006 

MOV i8SMRl42(R63,R10 


0138 

006E 

0060 

06A0 

0000 

BL 0PRTMEM 


0139 

0140 

0141 

0142 

0062 

1000 

0064< 

NOP 

n 

1 PRT020 EQU $ 

* 

2i«EN0l 

1-ENO PRINT SNAPSHOT 

0143 

0064 
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0420 
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BLWP PRR 


0144 
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0068 
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RT 

END 
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0100 
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0054 

CL8T 


0046 

SET0UF 


0052 

IMP 


0048 

UBYTE 

0099 

0110 

PRNTC 


0049 

PRT020 

0141 

0111 

PRTMEM 


0047 

PRTS8 

0100 

0043 

R0 

0059 

0109 

R1 

0060 


RIB 

0069 

0103 

0132 

Rll 

0070 


Rl2 

0071 


Rl3 

0072 


R14 

0073 


Rl6 

0074 


R2 

0061 


R3 

0062 


R4 

0063 

0121 

R5 

0064 

0104 

R6 

0065 

0103 

R7 

0066 

0106 

R8 

0067 


R9 

0068 

0122 

RE10UF 


0053 

RR 


0055 

snpent 


0044 

8NPTAB 


0045 

S80EF 

0097 

0110 

ssflas 

0090 


SSHIRG 

0092 

0127 

SSL.ORG 

0091 

0124 

8SHR1 

0098 

0136 

8S8TR 


0050 

SS8TRB 


0051 


0141 

0101 

0113 

0120 

0131 

0122 

0116 

0138 


0110 


0113 

0114 

0115 

0121 

0137 




0132 

0105 




0105 

0106 

0107 

0109 

0123 

0134 

0143 

0104 

0107 

0124 

0125 

8126 


0137 
01 IS 
0114 


THCRe ARE 0037 3YM801.S 


0123 0126 0129 0130 
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0127 

0136 

0137 

0127 

0128 

0129 

0138 
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A 
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1 SCALE 

REV. 
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tl-tttl-C 







8Y8TIM 

WORKSPACES 


94B372»9001«^ 

PACE 

0002 

0ies 


IDT 

tPXOATAt 



0004 


♦tmii 

PX990 DATA SBSMENT 



000S 


« 

PXDATA 



0006 


* REVISION! 




0007 


* 

ORieiNAU 



0006 


♦COMPUTER! 

990# ASM 



0000 


♦ABSTRACT! 

THIS 8E8MINT DEPINIS 

THE 

PX9B0 

0010 


♦ 

REAO/WRITE DATA AREA 



0011 


♦ CAUING SCOUENCE! 



0012 


♦ 

REF’S TO APPROPRIATE 

VARIABLES 

0013 

0008 

RS EQU 

S 



0014 

0007 

R7 EQU 

7 



0016 

000A 

R10 EQU 

10 



0016 

0000 

R}3 EQU 

13 




8UPIRV180R CAU8 




PA8E i083 


i0l9 


* 




0020 


* 

0EPINITI0N»8 FOR 

SVC'8 AND PRB I/O CODES 

0021 


* 




0022 

0000 

IQ 

EQU 

0 


0023 



DEF 

BHA 


0024 

000C 

BHA 

EQU 

»C 

BINARY-HEX A8C11 

0029 



DEF 

BOA 


0026 

000A 

BDA 

EQU 

»A 

binary-decimal ASCII 

0027 



DEF 

HAB 


0028 

000D 

HAB 

EQU 

»D 

HEX ASCII - BINARY 

0029 



DEF 

DAB 


0030 

000B 

DAB 

EQU 

»B 

DECIMAL ASCII • BINARY 

0031 


* 




0032 


* 




0033 



DEF 

OPEN 


0034 

0000 

OPEN 

EQU 

0 

OPEN LUNO 

0035 



DEF 

RDA8C 


0036 

0009 

R0A8C 

EQU 

9 

READ ASCII 

0037 



DEF 

WTA8C 


0038 

000B 

WTA8C 

EQU 

>B 

WRITE ASCII 


( 
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ASCII - BINARV CONVERSION BLOCKS 848878*9Sftlt* 


PACE itt4 


0041 



« 



8042 




HEX TO 5INARY 


0043 






8044 




DEP CM6 


8046 




DEP CHBVAL 


0046 


0000 t 

CHI 

EQU S 


8047 

0880 

80 


BYTE HAB 

SVC ID 

8046 

0001 

00 


BYTE 0 

ERR RETURN 

8049 

0082 

20 

CHSVAt 

TEXT ♦ » 

STRING TO BE CONVERTED 

8050 




EVEN 


8051 



* 



8052 



n 

binary to hex 


8053 



« 



0054 




OEP CBM 


8055 




DEP CBHi 


8056 




OEP CBH2 


0057 


8006 < 

CSH 

EQU S 


0056 

0006 

0C 


BYTE BHA 

SVC ID 

0059 

0007 

80 


BYTE 0 

ERR RETURN 

8060 

0008 

20 

ClHi 

TEXT » ' 


0061 

000A 

20 

CBHt 

TEXT » ' 


8062 




EVEN 


0063 



♦ 



0064 




BINARY TO DECIMAL 

ASCII 

0065 






0066 




DEP CBO 


0067 




DEP CBDSTO 


0068 

808E 

8A 

CiD 

BYTE BDA 

SVC ID 

0069 

008F 

00 


BYTE 0 

ERR RETURN 

0070 

0010 


CiOSTS 

B8S 6 

CONVERTED RESULT 
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EVEN 
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0079 * INPUT ONE CHARCTER PROM KEYBOARD 

0076 * IN CHARACTER MODE, TEST POfi ESC 

0077 ♦ INPUT, 

0075 * 


0079 




DEP 

avcPRB 

TOP OP 8VC BLOCK 


0060 




DEP 

8VCSP6 

SYSTEM FLAGS BYTE 


0061 




OEP 

INCHAR 

one char input SUPPER 


0062 




DEP 

SVCU8R 

USER FLAGS BYTE 


0069 








0084 

0016 

00 

8VCPR8 

BYTE 

10 

I/O SVC 


0066 

0017 

00 


BYTE 

0 

ERR return 


0066 

0018 

00 


BYTE 

RDA8C 

READ ASCII 


0067 

0019 

00 


BYTE 

0 

LUNO « keyboard 


0086 

001A 

00 

svcsre 

BYTE 

0 

SYSTEM FLAGS 


0069 

001B 

If 

8VCU8R 

BYTE 

»10 

USER FLAGS • CHARACTER 

MODE 

0090 

001C 

0022 f 


DATA 

INCHAR 

BUFFER 


0091 

001E 

0001 


DATA 

1 

BUFFER LENGTH 


0092 

0020 

0000 


DATA 

0 

character COUNT 


0099 

0022 

00 

INCHAf? 

BYTE 

0 



0094 




EVEN 




0098 



♦ 





0096 



it 





0097 



it 

OUTPUT CHARACTER 

STRING TO 739 PRINTER 


0098 



n 





0099 




DEP 

SVCWRT 

TOP OF SVC BLOCK 


0100 




DEP 

PRBiUF 

BUFFER ADDRESS 


0101 




DEP 

PRBCC 

CHARACTER COUNT 


0102 




OEP 

PRBUER 

SYSTEM FLAGS (UNRECOVERABLE 

ERR BX 

0109 



♦ 





0104 

0024 

00 

8VCWRT 

BYTE 

10 

I/O SVC 


0105 

0025 

00 


BYTE 

0 

ERR RETURN 


0106 

0026 

0B 


BYTE 

WTA8C 

WRITE ASCII 


0107 

0027 

00 


BYTE 

0 

LUNO • 733 PRINTER 


0106 

0028 

00 

PRiUER 

BYTE 

0 

SYSTEM FLAGS 


0109 

0029 

00 


BYTE 

0 

USER FLAGS 


0110 

002A 


PRB8UF 

BSS 

2 

BUFFER ADDRESS 


0111 

002C 

0000 


DATA 

0 

UNUSED (BUFFER LENGTH) 


0112 

002E 


PRBCC 

BSS 

2 

CHARACTER COUNT 


0119 



* 





0114 



# 





0115 



n 

SUPERVISOR CAU 

ENTRY 


0116 



' t 





0117 




DEP 1 
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0118 




OEP 

SVC4P 



0119 




REF 

SVCSRA 



0120 

0090 

01A6I 

SVCAIT 

DATA 

svcwp 



0121 

0092 

0000 


DATA 

SVCSRA 



0122 



it 





0129 



H 

loader PRB t SUPPER 


0124 



n 





0128 




DEP 

LDPRB 

TOP PO SVC BLOCK 


0126 




OEP 

LDOPCO 

10 OP CODE 


0127 




OEP 

LOLUN 
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DEE 

OEF 

OEF 

DEF 

OEF 

DEF 

UDFW6 

UDAODP 

UDCC 

U0C8A 

lOBUF 

UDCSBC 

SYSTEM FLAS8 
BUFFER POINTER 
CHARACTER COUNT 
CURRENT BUFFER ADDRESS 
BUFFER 

8138 

8034 

88 

LOPP0 

BYTE 

ID 

ID SVC 

8136 

8035 

88 


BYTE 

8 

ERR RETURN 

8137 

8836 


UOOPCD 

BS8 

1 

OP CODE 

8136 

8837 


LDUIN 

BS6 

1 

LUND 

8139 

8838 

88 

LOPkS 

BYTE 

0 

SYSTEM FLA68 

0140 

8839 

88 


BYTE 

8 

USER FLA6S 

8141 

883A 

0844* 

tOADOR 

DATA 

LOBUF 

BUFFER POINTER 

8142 

883C 

8868 


DATA 

B8 

BUFFER LENSTM 

8143 

0144 

81 3E 

8888 

UDCC 

* 

DATA 

8 

CMARACTifl COUNT 

8145 

0848 


LDCBA 

BS3 

2 

CURRENT BUFFER ADDRESS 

8146 

8147 

8042 


LDC68C 

* 

B88 

2 

CURRENT BYTE BIT COUNT 

8146 

8149 

8160 

8144 


LOBUF 

* 

688 

EVEN 

82 

BUFFER 
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PASE f0fP 


0isa 



* 

tOAOER PARM 

table 


0154 



* 





0155 




DEF 

LDT8L 

START OF TAIL! 

0155 




DEF 

LOENTV 

ENTRY POINT 


0157 




DEF 

LDLOPT 

LOAT POINT 


0158 




DEF 

LONMCC 

PROGRAM NAME 

character count 

0159 




OEF 

LOPSNM 

PROGRAM NAME 


0160 




DEF 

0F6IA8 

DEFAULT 

LOAD BIAS 

0161 



* 





0162 


0096 < 

LDTBt 

EOU 

f 



0163 

0096 

0000 

LOENTV 

DATA 

0 



0164 

0098 

0000 

LDLOPT 

DATA 

0 



0165 

009A 

00 

LONMCC 

BYTE 

0 



0166 

0090 


LDPSNM 

B88 

2S 

(MAX NAME • 

23 CHAR) 

0167 



* 





0168 

00B2 

00A0 

0PBIA8 

DATA 

P00A0 



0169 




EVEN 





( 


C 



CHAiACTiRi AND PRINTABLI BTRJNS8 8488Pa«990|** 


PA6B BfiBB 


0i72 



■* 




il73 



« 

CHARACTER OfPINlTlONS 


8174 



* 




8178 




OEP 

ZERO 


8176 




OEP 

blank 


8177 




Dip 

MINUS 


8178 




DEP 

COMMA 


8179 




OEP 

PLUS 


8188 




DEP 

EOR 


8181 




OEP 

CR 


8182 




DEP 

PERIOD 


8183 




OEP 

LP 


8184 




OEP 

68 


8189 




OEP 

ESC 


8186 




DEP 

RU80UT 


8187 




OEP 

TERMCR 


8188 



■* 




8189 


8886 

CRC 

EQU 

>0 

CARRXA6E 

0198 


800A 

LPC 

EOU 

»A 

LINE PEE 

0191 


8100 

UlYTi 

EQU 

*»i0i 

8HIPT PA 

8192 


8828 

8P 

EOU 

I 1 


8193 

0iB4 

20 

BIANK 

TEXT 

f 1 


8194 

8888 

30 

2IR0 

TEXT 

101 


8199 

8866 

20 

MINUS 

TEXT 

1 « t 


8196 

8887 

2C 

comma 

TEXT 

* # * 


8197 

8888 

28 

PLUS 

TEXT 

»♦* 


8198 

88B9 

2C 

period 

TEXT 



8199 


88BA' 

iOR 

EQU 

S 


8280 

888 A 

80 

CP 

BYTE 

CRC 


8281 

8888 

8A 

LP 

BYTE 

LPC 


8282 

88BC 

88 

88 

BYTE 

»8 


8283 

0880 

18 

ESC 

BYTE 

RIB 


8284 

80BE 

If 

PUBOUT 

BYTE 

>7P 


0889 



* 




0286 



« 

LAST 

command string TERMINATOR 

8287 



* 




0208 

08BP 


termcr 

BS8 

1 


8289 



« 




8210 



♦ 

PRINTABLE STRIN68 


8211 



♦ 




8212 




EVEN 



8213 




OEP 

CRLP 


8214 

00C0 

83 

CRLP 

BYTE 

3 1 *0 » R A 



88C1 

00 






88C2 

0A 





8219 







8216 




DEP 

PROMPT 

MONITOR 

8217 

8iC4 

0380 

PROMPT 

DATA 

8Tl«PR0MPT»t*LBYTE*CRC 

8218 

88C6 

8A 


BYTE 

LPC»»,' 



00C7 

2C 





0219 


00C8> 

8T1 

EQU 

s 


8220 



* 




8221 



* 




8228 
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PAQE ee«9 


9923 




EVEN 


9924 




DEF 

ER8TR ERROR CODES 

9295 




DEF 

ERBUF 

9296 

90C8 

9A0O 

ER8TR 

DATA 

ST2-ER8TR-ULBYTE4.CBC 

9227 

00CA 

0A 


8YTE 

LFC 

922S 

90CB 

2A 


TEXT 


9229 

90CD 


ERBUF 

B88 

4 ERROR CODE 

9239 

9001 

2A 


TEXT 


9231 


0003’ 

ST2 

EQU 

S 

9232 



* 



9233 



* 



9234 



* 



9235 




EVEN 


9236 




DEF 

PTSUM HEXADECIMAL SUM 

9237 

9004 

050A 

PTSUM 

DATA 

8T3-PTSUM.UL8YTE+LFC 

9235 

9006 

53 


TEXT 

•SUMii 

9239 


09OA' 

ST3 

EQU 

S 

9249 



* 



9241 



* 



9242 




EVEN 


9243 




DEF 

PTOIFF HEX, decimal DIFFERENCE 

9244 

990A 

0720 

PTOIFF 

DATA 

8T4»PTDIFF»1*LBYTE*SP 

9245 

00OC 

20 


TEXT 

» DlFFf’ 

9246 


00E2» 

ST4 

EQU 

$ 

9247 



* 



9245 



* 



9249 




EVEN 


9250 




DEF 

EQSIGN EQUAL SYMBOL 

0251 

00E2 

0130 

EQSIGN 

DATA 

8T8»Ee8IGN»l*LBYTE4»P» 

9252 


00E4> 

8T5 

EQU 

S 

9253 



* 



9254 



* 



9255 



* 



9256 




EVEN 


9257 




DEF 

DMPSPR DUMP SEPARATOR 

9255 

90E4 

013E 

DMPSPR 

DATA 

8T6i»DMP8PR»14LBYTE*'>» 

9259 


90E6» 

STS 

EQU 

S 

9260 



« 



9261 



« 



9262 



* 



9263 




EVEN 


9264 




DEF 

PRTPRP 

9265 

00E6 

012E 

PRTPRD 

DATA 

8T7*PRTPRD»l*L8YTE+». * 

9266 


90ES’ 

8T7 

EQU 

$ 

9267 



* 



9265 



* 



9269 



* 



9270 




EVEN 


9271 




DEF 

BKSTR 

9272 




DEF 

8K8TRB 

0273 

99EB 

0000 

BK8TR 

DATA 

8T8»BK8TR-1*LBYTE+CRC 

9274 

90EA 

0A 


BYTE 

LFC 

9275 

00EB 

42 


TEXT 

’BKPTR» 

0276 

00F0 


BKSTRB 

B8S 

1 

9277 


00F1' 

STS 

EQU 

S 


PA6B if 10 
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* 

0278 



* 

0280 



* 

0281 




0282 




0283 




0284 

00F2 

0362 

RS8TR 

0288 

00F4 


R68TRB 

0288 

0iF6 

3D 


0287 


00F6» 

8 T9 

0288 



* 

0288 



* 

0280 




0201 




0282 

00F6 

0700 

S88TR 

0293 

00F8 

0A 


0294 

00F9 

S3 


0299 

00FO 


888TRB 

0296 


0tPE« 

STli 

0297 
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OEP RS8TR 
OEF HCSTRI 

data 8T8*R68TR»l*LBYTl4»R» 
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TEXT »•» 

EQU I 
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DEF SSSTRi 
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BYTE LFC 
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EVEN 
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0305 
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0006 

TRVl 

EQU 
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NUHTR 

EQU 
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0316 
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DATA 
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DEFNITION 

0338 
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0339 




OEP 

SNAPS 

0340 




OEF 

NUMSNP 

0341 




OEP 

8NPENT 

0342 




DEF 

SNPTAB 

0343 


0008 

8NPENT 

EQU 

8 SNAPSHOT entry SUE 

0344 


0004 

NUHSNP 

EQU 

4 NUHBER SNAPSHOTS 

034S 



* 



0346 

0146 

014C» 

SNAPS 

DATA 

SNPTAB, NUH8NP,8NPENT SNAPSHOT DEFINITION TABLE 


0148 

0004 





014A 

0008 




9347 






0348 


014CI 

8NPTA6 

EQU 

S 

0349 

8140 

0000 


DATA 

0|0»0i0 


0141 

0000 





0190 

0000 





0192 

0000 




0390 

0154 

0000 


DATA 

0»0#0f0 


0156 

0000 





0198 

0000 





015A 

0000 




0391 

015C 

0000 


DATA 

8 1 8 , 8 , 8 


015E 

0000 





0160 

0000 





0162 

0000 




0392 

0164 

0000 


DATA 

0,8, 8, 8 


0166 

0000 





0168 

0008 





016A 

0008 





breakpoint ' 

TABLES 



949372«9901** PA6E 8014 


B39S 



« 




1396 



tuSKPT 

OEFINXTION 


0397 



t 




0398 




DEP 

NUMBPS 


0399 




OEp 

ENTSn 


0360 




DEF 

BKPT 


0361 




OEF 

BPTAB 


0360 


000A 

ENTSn 

EQU 

10 BREAKPOINT ENTRY SIZE 


0363 


0004 

NUHSPS 

EQU 

4 NUMBER BREAKPOINTS 


0364 



# 




0369 

016C 

0172» 

0KPT 

DATA 

BPTAB, NUMlPSiENTSIZ BREAKPOINT DEFINITION TAB 



0161 

0004 






0170 

000 A 





0366 



♦ 




0367 


0172 » 

8PTAS 

EQU 

S 


0368 

0172 

0000 


DATA 

0,0, 0,0,0 



0174 

0000 






0176 

0000 






0178 

0000 






017A 

0000 





0369 

017C 

0000 


DATA 

0,8, 0,0,0 



0171 

0000 






0180 

0000 






0162 

0000 






0164 

0000 





0370 

0186 

0000 


DATA 

0,0, 8, 0,0 



0168 

0000 






018A 

0000 






018C 

0000 






018E 

0000 





0371 

0190 

0000 


DATA 

0,0, 8, 0,0 



0192 

0000 






0194 

0000 






0196 

0000 






0198 

0000 





0370 



n 




0373 



* 

STORE 8TATU8 AND WORKSPACE 


0374 



# 




0379 




DEF 

81EWP 


0376 




OEF 

SIEST 


0377 




OEF 

8IINP6 8IE INPR06RBS8 FLAG 


0378 




OEF 

SAVWP 


0379 

019A 

8000 

SlfwP 

DATA 

0 


0380 

019C 

0000 

SIEST 

DATA 

0 


0311 

019C 

0000 

8IINPG 

DATA 

0 


0382 

01A0 

0000 

8AVWP 

DATA 

0 


0383 



♦ 




0384 



♦ 

CONMAND PARMETER LIST ADDR SAVE WORD 


0365 



# 




0386 




DEF 

CPL8AV 


0387 

0) A2 


CPL8AV 

8S8 

2 


0388 



# 




0369 



at 


SAVE WRITE PROTECT BOUNDS TO RESTORE AFTER VIOL 


0390 



# 


( 

fT%. 

Li^' 



BRiAKPOINT TABLES 945372»9e0l** 

0301 DEP 8TRPRT 

0392 01A4 0000 8TRPRT DATA 0 

0393 • 

0394 • BACKSPACE PLAQ 

0398 * 

0396 DEF BSFL6 

0397 01A6 0000 B8PL6 DATA 0 


PAGE 0018 


BACKSPACE FLAG 


USfR PROSRAH CONTROL 
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0400 



« 




0401 




RUN 1 

COMMAND INSTRUCTION COUNT 

0402 







0403 




OEF 

IN8CNT 


0404 

01A6 

0§0§ 

1N8CNT 

DATA 

0 


0405 







0406 



* 

USER 

PROGRAM START 

VICTOR 

0407 



« 




0406 




OEf 

U8RWSP 


0409 




OEF 

USRMP 


0410 




OEF 

U8RPC 


0411 




DEF 

USR8T 


0412 




REF 

INIT 


0413 


019§« 

U8RWSP 

EQU 

S«Rt3«R13 

NORKSPACE BASE 

0414 

01AA 

0000 

U8PHP 

DATA 

0 

WITH fRTWP' 

0415 

0UC 

0000 

U8RPC 

DATA 

INIT 


0416 

01AE 

0000 

U8R8T 

DATA 

0 


0417 



♦ 




0416 




MONITOR PC LIMITS 


0419 







0420 




DEF 

LOWLIM 


0421 




OEF 

HILIM 


0422 

0IB0 

01AC» 

LOWLIH 

DATA 

INIT 


0423 




OEF 

TRNARA 


0424 

0102 

031C» 

HIUH 

DATA 

TRNARA 




SYSTEM M0RK8PACE8 


949378*9001** 


PASS 0017 


0427 



« 



0426 




SUPERVISaR CALL WORKSPACE 

0409 




(USED TILL dynamic wKSP CAN BE ALLOCATED) 

0430 



« 



0431 




DEP 

8VCW7 

0432 




OEF 

8VCW10 

0433 


01A8t 

8VCWP 

EQU 

S*R7*R7 

0434 


0194* 

8VCW7 

EQt' 

S 

0435 


01BA* 

8VCW10 

EQU 

8VCWP*R10*R10 

0436 

0194 



SSS 

32-R7-R7 

0437 






0438 



♦ 

MEMORY MANAGEMENT WORKSPACE 

0439 



* 



0440 





R9«tR19 only 

0441 






0442 




DEP 

MEMWP 

0443 






0444 


019C» 

MEHWP 

ECU 

S«R9*R9 

0449 

01C6 



B8S 

22 

0446 



♦ 



0447 






0448 



# 



0449 






0490 




FREE 

MEMORY POOL 

0491 






0492 




DEP 

FREMfM 

0493 




DEP 

NOCELS 

0494 



t 



0499 


000A 

N0CEL8 

EQU 

10 

0496 

01OC 


FREMEH 

BSS 

32*N0CEL8 

0497 



♦ 



0498 




TRANSIENT AREA 

0499 



♦ 



0460 




EVEN 


0461 


031C* 

TRNARA 

EQU 

S 

0462 




END 


000 EPS 
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060 « ! 

980 CONCORDANCE 



i 


0046 

0097 

0168 



0860 

0266 

0277 



0348 

0367 

0413 

so A 

0020 

0085 

0068 


9MA 

0024 

0083 

0098 


8KPT 

0365 

0360 



8K8T0 

0273 

0871 

0273 


9K8TR0 

0276 

0878 



blank 

0103 

0176 



B8TA8 

0367 

0361 

0365 


88 

0202 

0164 



BSFlO 

0307 

0396 



CBO 

0068 

0066 



CBD8T6 

0070 

0067 



CBH 

0097 

0054 



CBM0 

0060 

0055 



CBH2 

0061 

0056 



CHS 

0046 

0044 



CH8VAL 

0049 

0045 



COMMA 

0196 

0178 



cplsav 

0387 

0388 



CR 

0200 

0181 



CRC 

0180 

0800 

0217 

0826 

CRLF 

0214 

0213 



0A8 

0030 

0029 



0P8XA8 

0168 

0160 



0MP8PR 

0298 

0887 

0896 


ENT9IZ 

0368 

0399 

0365 


EOS 

0100 

0180 



EQ816N 

0291 

0850 

0291 


ERBUF 

0220 

0885 



ER8TH 

0226 

0824 

0286 


esc 

0203 

0185 



FseMEM 

0466 

0458 



HA6 

0028 

0027 

0047 


MIIIM 

0424 

0421 



ZNCHAR 

0093 

0081 

0090 


INST 


0412 

0419 

0428 

IN8CNT 

0404 

0403 



10 

0022 

0084 

0104 

0135 

X8RF1.0 

0325 

0306 



U8YTI 

0191 

0217 

0826 

0837 



0292 



LOAODR 

0141 

0129 



LDBUF 

0148 

0132 

0141 


I.0C8A 

0145 

0131 



U0C68C 

0146 

0133 



locc 

0143 

0130 



loenty 

0163 

0196 



LOFUO 

0130 

0128 



UOLOPT 

0164 

0197 



LOlUN 

0138 

0127 



lonmcc 

0169 

0158 



UOOPCO 

0137 

0126 



LDPONM 

0166 

0159 



LOPftS 

0135 

0125 



L0I8L 

0162 

0155 



LP 

0201 

0163 



UPC 

0190 

0201 

0818 

8287 

LOWLIM 

0422 

0420 




et89 eeis east eess et4s esse 

0287 0206 0317 0310 0328 0333 

0433 0434 0444 0401 


0873 0202 


0844 0891 0898 0869 0873 0884 


0837 0874 0803 



MSHWP 

0444 

0442 



HINU8 

0195 

0177 



N0CEU8 

0455 

0453 

0456 


NUMBPS 

0365 

0358 

0365 


NUWSNP 

0344 

0340 

0346 


NUMTrt 

0315 

0307 

0323 


nuptte 

0333 

0327 



OPEN 

0034 

0033 



pekiod 

0198 

0182 



PLUS 

0197 

0179 



pReeup 

0110 

0100 



PR6CC 

0112 

0101 



PR6UER 

0106 

0102 



PROMPT 

0217 

0216 

0217 


PRIPRD 

0265 

0264 

0265 


PTOIFF 

0244 

0243 

0244 


PTSUM 

0237 

0236 

0237 


Rl» 

0015 

0435 

0435 


R13 

0016 

0413 

0413 


R9 

0013 

0444 

0444 


R7 

0014 

0433 

0433 

0436 0436 

ROF8C 

0036 

0035 

0086 


RGSTR 

0284 

0282 

0284 


RGSTRB 

0285 

0283 



RUBOUT 

0204 

0186 



SAVWp 

0382 

0378 



SIEST 

0380 

0376 



siewp 

0579 

0375 



SXXNPG 

0381 

0377 



SNAPS 

0346 

0339 



snpent 

0343 

0341 

0346 


3NPTA8 

0348 

0342 

0346 


SP 

0192 

0244 



SSSTN 

0292 

0290 

0292 


SSSTRB 

0296 

0291 



8Tl 

0219 

0217 



ST10 

0296 

0292 



ST8 

0231 

0226 



ST3 

0239 

0237 



8T4 

0246 

0244 



ST6 

0252 

02^51 



STB 

0259 

0258 



ST7 

0266 

0265 



STS 

0277 

0273 



ST9 

0287 

0284 



8TRPRT 

0392 

0391 



svcalt 

0120 

0117 



8VCPRB 

0084 

0079 



SVC8FG 

0086 

0080 



SVCSHA 


0119 

0121 


SVCU8R 

0069 

0082 



svcnib 

0435 

0432 



SVCW7 

0434 

0431 



svcwp 

0433 

0118 

0120 

0435 

8VCRRT 

0104 

0099 



TERMOR 

0208 

0187 



TRACE 

0323 

0303 



trflgs 

0310 

0305 



TRMIOH 

0312 

0305 



trlnth 

0324 

0306 



TRLOW 

0311 

0305 



TRNARA 

0461 

0423 

0424 
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TRTBL 

TRT8l.a 

TRTYPf 

TRVl 

TTTBW 

U8RPC 

U8R8T 

U8RMP 

USRW8P 

PTA8C 

ZERO 


0317 

0304 

0383 0384 

0310 

0384 


0313 

0305 


0314 

0308 


0308 

0387 

0333 

0418 

0410 


0416 

0411 


0414 

0409 


0413 

0408 


0038 

0037 

0106 

0184 

0178 
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THERE APE 0130 


SYHI0U8 



APPLICATION 


LTn 


REVISIONS 


DATE 


APPROVED 



NEXT ASSV 

USED ON 



7506 

* 













OESCPI1PTION 





REV 













■ 

















SHEET 













B 

















REV STATUS 
OF SHEETS 

REV 







B 

















SH 

EET 







B 

















UNLESS OTHERWISE SPECtriCO 
DIMENSIONS ARE IN INCHES 
TOLERANCES 
ANGLES 

3 PLACE DECIMAL ± 010 
2 PLACE DECIMAL ± 02 

IDENTirriNQ NUMSERS 
SHOWN IN PARENTHESES 
FOR REFERENCE ONLY 

INTERPRET DWG IN 
ACCORDANCE WITH 
MIL STD lOO 

OATE^ 

"K;; 7^ 

fiSr, Texas Instruments 

STjrJ INCORPORATED 

Bquifffmnt Group Mfm, Toxm 

Ef>»GP y 

- — : 

.1 

.AL, PXLDDR, LOADER DIRVER-PX990 



CONTR HO / X. 

DESIGN ApTfVfTV RELEASE 'V 

SIZE 

A 

CODE lOENT NO 

96214 

DRAWING NO 

945373-9901 


/ 

1 SCALE 

REV. 

1 of 10 1 










♦* LOADfR 08IVER #* 


945S73i»99EU* 
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0003 

0004 

0005 
0000 
0007 
0000 

0009 

0010 
0011 
0018 

0013 

0014 

0015 
8016 
8017 

0016 
0019 
0080 
0081 
0088 

0083 

0084 

0085 

0086 

0087 

0088 
0089 

0030 

0031 

0038 

0033 

0034 

0035 

0036 

0037 
0036 

0039 

0040 

0041 

0048 

0043 

0044 

0045 

0046 

0047 
0046 

0049 

0050 

0051 
0058 

0053 

0054 

0055 

0056 


* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


PROCEDURE LOADER ORlVERCCPDf 

/* LOADER DRIVER WILL ACCEPT THE 
INPUT LUNO AND CALL THE LOADER 
TO LOAD THE U8ERIS PROGRAM, 

*/ 

LOADER LUNO ■ 71 /* DfF • C«1 */ 

IF CPL.PARMl .NE; null THEN 
LOADER LUNO ■ CPL.PARMl 
LOAD PR8 LUNtl ■ LOADER LUNOf 

IF DEVICE Type .ne, cs signal error 

LOAD PRB OPCOOS ■ »0P|N»| 

CALL SVC (SVC CALL BLOCK)! 

IF(LO FLAG.LE. 1) THEN 

IF (CPL PARM8 ,NE. NULUTMN 
BIAS* PARM8I 
END IF! 

ELSE BIA8*0fFAULT BIAS! 

CALL SET LOADER WORKSPACE! 

CALL SET WORK8PACE(R11,LOC(LOAOER 10))! 

CALL 8ETW0RKSPACE(R9,BIAS) 

CALL LOAOERCLOAOER ID, 

BIAS, CASS FLAG) 

IF ERROR ,NE, 0 THEN 00! 

IF PROGRAM NAME char COUNT ,NE, 0 
THEN CALL PRINT (PROGRAM NAME)! 

IF PROGRAM ENTRY ,NE, 0 THEN 

IF caller ne ovlv thin 

USER PC • PROGRAM ENTRY 
IF CALLER EG LOADUPFRONT THEN 
CALL UPFRONT loader 

END!ELSE 

CALL ERROR('LDii»)! 

END! 

RETURN! 

PROCEDURE LOADER I0| 

/♦ LOADER 10 PROVIDES 10 SUPPORT 
FOR THE ROM LOADER, THE OPEN 
HAS BEEN PROCESSED BY THE MAIN 
DRIVER, 

*/ 

CHAR COUNTiCHAR COUNT *l! 

IF CHAR COUNT *i»l THEN DO! 

LOAD PRI OPCODE i *READ«! 

CALL SVC(8VC CALL BLOCK)! 

IF ERROR THEN EXIT! 

IF EOF THEN EXIT! 

CURR BUFF ADDR * LOADER BUFFER AOCJRl 
OUTPUT LOAD ADDRESS TO LIGHTS 
END! 

CALL MOVE R1T(RETURN VALUE, CURR BUF ADDR)! 
CURR BUFF ADDR ■ CURR BUFF A0DR41! 

END! 

END LOIO! 

DO FOREVER! 



♦ * U0AC5ER DRIVER *♦ 
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00S7 

4t 

CALL GETCHARI 

0058 

it 

END 


0059 

♦ 

END LOADER ORTVERl 

0060 


IDT 

*PXLDDR» 

0061 


TITLEI 

PX990 loader driver 

0062 

♦ 


PXLDDR 

0063 


REVISIONI 


0064 

H 


original 

0065 

it 

COMPUTEPI 

990f ASP 

0066 

it 

abstract* 

PXLDDR IS RESPONSIBLE FOR FOUR FUNCTIONS! 

0067 

it 


1) PROCESS LPiLA KEYBOARD COHMANOS AND 

0068 

it 


CALL RDM LOADER AND ABS LOADER RE8PECTIVEL 

0069 

it 


2) interface to the ROM LOADER 

0070 

♦ 


33 PERFORM 10 TO SUPPORT THE ROM LOADER, 

0071 



4) CALL ROM loader TO LOAD OVERLAV 

007Z 

♦ 

CAULING SEOUENCEl 

0073 



1* keyboard command 

0074 

# 


R10 • POINTER TO COMMAND PARAMETER LIST 

0075 

♦ 


0L 8L0AD 

0076 

* 


LOAD PROGRAM 

0077 

♦ 


BL fLDABS 

0078 

it 


LOAD ABSOLUTE 

0079 

♦ 


BL PLDADOV 

0080 

* 


LOAD overlay 

0081 

♦ 


ENTRY 

0082 

♦ 


Pl® • POINTER TO COMMAND FARM LIST 

0083 

t 


Rl - LOAD BIAS FOR OV COMMAND ONLY 

0084 

* 


EXIT 

0085 

t 


R0 NOT EQUAL TO ® FOR ERROR 

0086 

* 


2- LOADER 10 

0087 



8L PRll (MAIN DRIVER SITS POINTER 

0088 

« 


IN Pin 

0089 

it 



0090 

it 

REF«8 AND DEPIS 

0091 

it 



0092 


DEF 

LDUFL 

0093 


OEF 

LDAB8 

0094 


DEF 

LOAD 

0095 


DEF 

LOAOOV 

0096 


REF 

svcalt 

0097 


REF 

svcwp 

0098 


REF 

SVCSR 

0099 


REF 

SAVWp 

0100 


REF 

cs 

0101 


REF 

cldt 

0102 


REF 

OVLRET 

0103 


REF 

LOPRB 

0104 


REF 

LOOPCD 

0105 


REF 

LOLUN 

0106 


REF 

LDFLG 

0107 


REF 

ldaddr 

0108 


REF 

LDCC 

0109 


REF 

LDC8A 

0110 


REF 

LDBUF 

0111 


REF 

CR 


•* 4QA0IR 

DRIVER < 

1# 


945373»99f !♦♦ PASE 0004 

mu 



REE 

ABSLDR 

0tt3 



REF 

ROMLOR 

0U4 



REF 

LDTBL 

0115 



REF 

PRNTC 

0116 



REF 

PRCRLF 

0117 



REF 

TRNARA 

0116 



REF 

U8RPC 

0110 



REF 

ERROR 

0100 



REF 

LDC8BC 

01S1 



REF 

LONHCC 

0102 



REF 

DFBIA8 

0123 



REF 

INIT 

0104 



REF 

CRUDFF 

0105 



REF 

GET8UF 

0126 



«EF 

RET8UF 

0127 



REF 

LWP 

0126 



REF 

RWP 

0129 



REF 

ACL 

0130 



REF 

RR 

0131 





0132 


♦WORKSPACE 

REGISTER definitions 

0133 


♦ 



0134 

0000 

R0 

EQU 

0 

0135 

0001 

R1 

EOU 

1 

0136 

0002 

R2 

EQU 

2 

0137 

0003 

R3 

EQU 

3 

0136 

0004 

R4 

EQU 

4 

0139 

0005 

R5 

EQU 

5 

0140 

0006 

R6 

EQU 

6 

0141 

0007 

R7 

EQU 

7 

0142 

0006 

R6 

EQU 

a 

0143 

0009 

R9 

EQU 

9 

0144 

000A 

R10 

EQU 

10 

0145 

0006 

Rll 

EQU 

1 1 

0146 

000C 

R12 

EQU 

12 

0147 

0000 

R13 

EQU 

13 

0146 

000E 

R14 

EQU 

14 

0149 

000F 

Rl5 

EQU 

15 

§150 


♦ 



0131 



Dxnp 

SVCilB 

0132 

0100 

IBYTi 

EQU 

256 

0133 

0000 

OPN 

EQU 

0 

0134 

0009 

READ 

EQU 

9 

0185 

2400 

UOERR 

EQU 

A2400 

0186 

2401 

LUNERR 

EOU 

>2401 INVALID LUNO 

0137 


♦ 



0136 


♦ 

UPFRONT LOADER DEFAULT BIAS 

0139 





0130 

FES0 

UFLBIA 

EQU 

p>160 

0161 


* 



0162 


t 


IpPROCEDURI loader driver ccpu 

0163 


# 


2p/> loader driver will accept 

0164 


♦ 


2» INPUT LUNO AND CALL THE L 

0168 


t 


2p to load the USER’S PROSRA 

0166 


t 


2«"*/ 


** UQADER DRIVER *♦ 
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0167 



♦ 



0I6B 



***** UP FRONT loader ENTRY POINT ****************** 

0169 


0000? 

LOUFt 

EOU 

S 

0170 

0000 

04CE 


CLR 

R14 

0171 

0002 

1005 


JMP 

LOA002 

0172 



******1 

*** ROM LOADER ENTRY POINT *********** 

0173 


0004t 

LOAD 

EQU 

S 

0174 

0004 

020E 


LI 

R14,l 


0006 

0001 




0179 

0008 

1002 


JMP 

LDA002 

0176 



***** 

ABS LOADER ENTRY POINT ************ 

0177 


000A« 

LOA08 

EQU 

S 

0176 

000A 

020E 


LI 

R14,2 


000C 

0002 




0179 



# 



0180 




XOP 

INTERRUPT VECTOR 

0161 


000E' 

LOA002 

EOU 

S 

0182 

000E 

0209 


LI 

H9,avcwp 


0010 

0000 




0163 

0012 

C809 


MOV 

R9,#>7C 


0014 

007C 




0184 

0016 

0209 


LI 

R9fSVCSR 


0018 

0000 




0185 

001A 

C809 


NOV 

R9,P»7E 


00 1C 

007E 




0186 



* 



0187 

001E 

1002 


JMP 

LOA00S 

0168 



***************** OVERLAY ENTRY POINT ***************** 

0189 


0020 » 

UOAOOV 

EQU 

t 

0190 

0020 

020E 


LI 

R14.S 


0022 

0003 




0191 


0024» 

LOAffS 

EQU 

$ 

0192 



* *ALLOC 

, COPY, link 

0193 

0024 

0420 


BLWP 

PACL 


0026 

0000 




0194 

0028 

C80D 


MOV 

R13,#8AVWP 


002A 

0000 




0196 

002C 

C0ED 


MOV 

PR14*2(R13) ,R3 RETRIEVE R14 FROM OLD WS 


002E 

0PIC 




0196 

0030 

C10A 


MOV 

R10,R4 

0197 





2..L0A0ER LUNO ■ 7| /* DEE ■ C 

0198 

0032 

0209 


LI 

R9,7*LBYTE 


0034 

0700 




0199 



♦ 


2pTF CPL.PARMl ,NE. NULL THEN 

0200 





3-LOAOER LUNO ■ CPL.PARMl 

0201 

0»36 

C034 


MOV 

*R4*,R0 

0202 

0038 

0A90 


SLA 

R0,9 CHECK PRESENCE BITS 

0203 

003A 

1702 


JNC 

LOA010 

0204 

003C 

C274 


MOV 

*R44,R9 

0208 

003E 

0A85J 


SLA 

R9,8 BYTE SIZE PARM 

0206 


0040' 

LOAil® 

EQU 

S 

0207 



t 


p*LOAO PRB LUNO ■ LOADER LUNOl 

0208 

0040 

0800 


NOVB 

R9,#LDLUN 


0042 

0000 





* 


0209 


2»IF DEVICE TYPE .Nf, CS 81GNA 


•O LOADER DRIVER •* 




RASE «S0«e 


ati0 

0644 

C9i§ 


MOV 

R9iRl6 


02U 

0640 

098A 


SRL 

R10»8 


2912 

0646 

06A0 


8L 

fCLDT 



064A 

0000 





0913 

064C 

0900 


LI 

R8,C8 



064E 

0000 





0914 

0666 

0909 


SRL 

R9,8 


0915 

0659 

090A 


II 

R16»L0RERR 



0654 

2401 





0216 

0660 

8209 


C 

R9»R6 


0917 

0666 

164C 


4NE 

L0A659 


0916 






2*LQAD PRB OPCODE ■ 'OPIN'I 

0219 

068A 

0209 


LI 

R9,0PN*L8YTE 



065C 

0000 





0920 

065E 

0809 


MOVB 

R9,»L00PCD 



0666 

0600 





0921 






2»CALL SVCtSVC CALL BLOCK) 1 

0229 

0662 

090 A 


LI 

R16,LDPRB 



0604 

0000 





0923 

0660 

0426 


8LWP 

iSVCALT 



0666 

0600 





0224 



# 



9*IE(LD ELA5.Lt. 1) THEN 

0928 

066A 

0903 


Cl 

R3,l 



066C 

0601 





0926 

066E 

180C 


JH 

L0A614 


0927 



* 



3*lEfCPL PARM2 ,NE. NUUTTHN 

0926 



# 



4*0lA8i PAiM9l 

0229 



t 



3-ENO lEl 

0230 



t 



3*ELSE BlASfDEEAULT BIAS! 

0231 

0676 

0A16 


SLA 

R6, 1 

CHECK PRESENCE BIT 

0939 

0679 

1809 


JQC 

LOA619 


0933 

0674 

C6C3 


»^0V 

R3,«3 


0234 

0676 

1605 


JNE 

LOA011 


0235 

0678 

0201 


LI 

RlflNIT 



067 A 

mm 





0230 

067C 

0921 


AI 

R1,UFLB1A 



007E 

FE56 





0237 

0606 

1003 


JHP 

LnA614 


0236 


0609» 

LOAill 

EQU 

$ 


0239 

0682 

C520 


MOV 

•DpSIASf *R4 



0684 

mm 





0240 


0606' 

L0ASI12 

EQU 

S 


0241 

0006 

C674 


MOV 

*R4+»R1 


0949 


6688' 

L0Ail4 

IQU 

$ 


0943 






8»CALL 8tT loader WORKSPACfl 

0944 

0608 

04E0 


CLP 

fLDCC 


♦ 

060A 

0606 





0945 

000C 

0983 


Cl 

R3»9 



000E 

0602 





0940 

0696 

1307 


JE0 

L0A636 


0247 



t 



2»CALL SET WORKSPACE (RU »L0C 

0248 

0692 

090B 


LI 

Rll.WOlO 



0094 

0102' 





0246 



« 



2»CALL 8ITW0RK8PACE(R9#BIAS) 

0950 

0096 

C241 


MOV 

Rl,«9 




** loader driver ** 


948373»99DI** 


rase R0R7 


0251 

0(”98 

04C0 

CLR 

R0 

SET FLAG FOR CASSETTE LOAD 

%§ Wk ^ A 

<A9S9 



h 


2pCALL ldaoer(loaoir io» 

V c w e- 

0253 



* 


3-BlA8,CA89 FLAB) 

0254 

009A 

C0A0 

hOV 

#P0MLnR,R2 



009C 

0000 




9255 

0J'9f 

0452 

H 

4R2 


«I55 


04 ah"* 

V^AASkA 1 ji;, 

% 


t257 

(^4AR 

06 40 

8L 

PAB8LDR 



00A2 

0000 




02SR 

00A4 

0000 

DATA 

lotbl 


0299 



*******RETURN FROM ABSLOADER 

ifiiitii4fit.il it tit 

0260 

00A6 

1023 

JMP 

LOA050 

ERROR RETURN 

0261 



* 


a»IF ERROR ,NE, 0 THEN D0| 

0262 



* 


3--IF program name CHAR COUNT . 

0263 



* 


4»THEN CALL PRINT (PROGRAM NAME 

0264 

0P<A8 

D0A0 

M0V8 

PL0NMCC,R2 



0<?AA 

0000 




0265 

0<^Ar. 

1309 

JEO 

LOA035 


0266 

Bff'AF 

06A0 

BL 

♦PRCRLF 



00B0 

0000 




0287 

0RB2 

1000 

NOP 



0268 

0064 

020A 

LI 

R10»LDNMCC 



00B6 

00AA* 




0269 

00B8 

06A0 

8L 

•PRNTC 



008A 

0000 




027« 

00BC 

1000 

NOP 



0271 


00BE» 

LOA035 EQLI 

$ 


0272 

00BE 

C0E0 

MOV 

•LOTBL, R3 



00C0 

00A4f 




0273 



**«***«*« RETURN FROM CASSETTE LOADfR **** 

0274 


00C2* 

retuor EOU 

$ 


0276 

00C2 

C360 

MOV 

•SAVWP,R13 



00C4 

002A» 




0276 

00C6 

04OD 

CLR 

*R13 


0277 

00C8 

C0CS 

MOV 

R3,P3 


0278 

0t^C* 

1319 

JEO 

LOA060 


0279 



* 


3»IF PROGRAM ENTRY .NE. i THIN 

0280 



* 


A^IF caller Nf OVLY THEN 

0281 

0i^CC 

C2AD 

MOV 

•R14*2(R13) ,Rlf 



00CE 

001C 




0282 

0000 

028A 

Cl 

R10,3 



0002 

0003 




0283 

0004 

1313 

JEO 

LOA060 


0284 



# 


S»USER PC ■ PROGRAM ENTRY 

0285 

0006 

C803 

MOV 

R3,iUSRPC 



0008 

0000 




0286 



* 


S»IF CALLER EO LOADUPFRONT THE 

0287 



* 


6»CALL UPFRONT LOADER 

0288 

00DA 

C28A 

MOV 

R10,R10 


0289 

00DC 

160f 

JNE 

LOA060 


0290 

00DE 

05C3 

INCT 

R3 


0291 

00E0 

0693 

BL 

*R3 


0292 

0062 

1005 

JMP 

LOA050 

ERROR RETURN 

0293 

00E4 

C809 

MOV 

R9,iU9RPC 



0066 

0009* 





c 


** LOADER DRIVER ** 


9453I73.R901** 


RASE 0008 


0294 

00E8 

C360 


MOV 

•SAVWP,R13 


00EA 

00C4 » 




0295 

00EC 

1007 


JMP 

LOA060 

0296 



# 



0297 


00EE» 

L0A«5?i 

EQU 

i 

0298 



* 



0299 

00EF 

020A 


LI 

R10»LDERR 


00F0 

2400 




0300 


00F2* 

tOAeisa 

EQU 

S 

0301 

00F? 

06A0 


BL 

• ERROR 


00F4 

0000 




030? 

00F6 

C360 


HQV 

#SAVWP,R13 


00F8 

00EA’ 




0303 

00FA 

0710 


SETQ 

*R13 

0304 



# 



0309 


00FC» 

LOAiS0 

EQU 

S 

0306 



# 



0307 



* *LINK 

TO PREV RK8P 

0308 

i0Ft 

0420 


BLWP 

• RR 


00FE 

0000 




0309 

0100 

045B 


RT 



gwENniELSE 

SpCAU iRRORC't.D00«3 I 


0»|ND| 

2»-RETURNI 
RET CURE WKSR 






*♦ loader driver ** 


945373 * 89 ^ 1 ** 


page PCteii 


il5U 



# 



2*PR0CE0URE loader ioi 


9312 



if 



3*/* LOADER 10 PROVIDES 

10 SUP 

0313 



a 



3» FOR the ROM loader. 

THE 

0314 



if 



3* HAS BEEN PROCESSED 

BY THE 

0315 



* 



3* DRIVER. 


0316 



* 



5**/ 


0317 



♦ 





0318 


0102* 

LDIO 

EQU 

s 



0319 





HAY USE Rfi THIS 

SUBROUTINE IS 


0320 



♦ 


non*stamoaro« 



0321 



* 



5*CHAR COUNTbCHAR COUNT 

• 1 ! 

0322 

010? 

0620 


DEC 

4LDCC 




0104 

008A» 






0323 

0106 

151F 


JGT 1 

LUI050 



0324 

0108 

131E 


JEO 1 

LDI0S0 



0325 






4pIF char COUNT **l THEN 

DOI 

0326 






5*L0A0 PRB OPCODE ■ ’READ'f 

0327 

010A 

0200 


LI 

R8,RE4D*LPYTE 




010C 

'‘1 900 






0328 

010E 

t)808 


Move 

RPf ALDOPCD 




0110 

<'5060 f 






0329 






8*CALL SVCCSVC CALL BLOCK)! 

0330 

0112 

t^20A 


II 

R10,LOP»8 




0114 

H0$4 ! 






0331 

0116 

1^420 


BLWP 

4SVCALT 




0118 

0068 » 






0332 






5-IF ERROR THEN EXIT! 


0333 

011A 

0220 


MOV0 

•L0FLG,R8 




011C 

0000 






0334 

0UE 

0A28 


SLA 

R8,2 



0335 

0120 

18E6 


JOC 

LOA050 



0336 






5*IF EOF then EXIT! 


0337 

0122 

oAia 


SLA 

H8,l 



0338 

0124 

18CE 


JOC 

HETLOR 



0339 



# 



SpCURR buff ADDR ■ LOADER BUFF 

0340 

0126 

C820 


MOV 

0LDADPR,*LDC8A 




0128 

0000 







012A 

0000 






0341 

012C 

C220 


MOV 

0LDCC,R8 




012E 

0104 » 






0342 

0130 

OA20 


M0V8 

fCR,*LDBUF(»8) 




0132 

0000 




1 



0134 

0000 






0343 






5*0UTPUT LOAD ADDRESS TO 

LIGHT 

0344 

0136 

C28C 


MOV 

R12»R10 



0345 

0138 

020C 


LI 

R12,CRUaFF 




013A 

0000 



i 



0346 

013C 

3205 


LDCR 

R5,a 

LOAD ADDR TO FP 


0347 

013E 

06C5 


S0PB 

R5 



0348 

0140 

3205 


LDCR 

R5,8 



0349 

0142 

06C5 


SWPB 

R5 



0350 

0144 

C30A 


MOV 

Rl0iR12 - 



0351 



# 



4*END! 


0352 


014Sf 

inum 

eou 

S 





** UOADIR PRlVffR ** 


94B373«99il«* 


RASE Bgi0 


0SSS 



* 



0394 

0146 

C2A0 


MOV 

«LOC8A,R10 


0148 

012A» 




0359 



# 



B3S9 

014A 

05A0 


INC 

•LOCBA 


014C 

0146* 




0397 

014E 

029A 


MOVB 

*R10,R10 

0398 

0190 

098A 


SHL 

R10,8 

03SR 

0192 

AICA 


A 

R10,R7 

0390 

0194 

028A 


Cl 

R10,P3A 


0196 

003A 




0361 

0198 

130D 


JEO 

LOI060 

0392 

015A 

028A 


Cl 

R10,PD 


019C 

000D 




0363 

019E 

1307 


JEO 

GETRT 

0364 

0160 

022 A 


AI 

R10,«i^30 


0162 

FFD0 




0369 

0164 

028A 


Cl 

R10,>11 


0166 

0011 




0366 

0168 

1102 


4LT 

GETRT 

0367 

016A 

022A 


AI 

R10.»7 


016C 

FFF9 




0366 


016E» 

GETRT 

EOU 

S 

0369 

il6E 

0696 


6L 

•RU 

0370 

0170 

10C8 


JMP 

LDIO 

0371 

0172 

10BD 


JMP 

LOARBR 

0372 






0373 



# 



0374 



t 



0379 



t 



0376 


0174* 

LDli0i 

EQU 

1 

0377 

0174 

06A0 


8L 

FLDIO 


0176 

0102' 




0378 

0178 

10FD 


JMP 

LDI060 

0379 



# 



0360 






0391 




END 



0000 ERS 


4-CAU, ROVE BITCREIURN VALUE, C 
5»CURR BUFF ADOR i CURR BUFF A 


RETURN MERE FOR ERROR 

3«end; 

8»ENO UOIOI 
2-00 FOREVER > 

3»CALL SETCHARf 

FLUSH TO END OF RECORD 


2»END 

l»END LOADER ORlVIRf 






















10 SERVlCt DISPATCHER 


94S3T4«S9S1** 


PA6E »«®8 


00S3 

0804 

000S 

0008 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 
00 IS 
0018 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 
0028 
0028 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 
0038 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 
0048 

0046 

0047 

0048 

0049 
0080 
0081 
0082 

0083 

0084 
0088 


A 

* 

♦ 

* 

* 

* 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A' 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


TITL »PX990 10 EXECUTIVE 
DECLARE NUM OEVTYPE LITERALUT »3»| 

DECLARE NUH LUN08 LITERALLY 'l«»f 
DECLARE OEVNAME TABLE CNUH DEVICES! 

CHARACTER (3) INITIAL C»LOS«, »NUL’, 
»C81», »C82») 

DECLARE LOS LITERALLY »0’. 

DECLARE OUM LITERALLY *127* I 
DECLARE CS LITERALLY »1*| 

DECLARE NUN DEVICES LITERALLY M»l 
DECLARE 0VNAHE TO OVTYPE CNUH DEVICES) 

BIT CS) INITIAL (LOG, OUM, CS, CS) > 
DECLARE DVNAME TO UNITNO (NUM DEVICES) 

BIT CS) INITIAL C0, 0, 0, l)» 

DECLARE LUNO TO DVTYPE CNUH LUNDS) 

BIT CS) INITIAL CLOG, DUMfDUM, OUM, 
DUM,QUM,L0G,C8,C8,NUL,NUL,NUL, 

DUM,OUN) 

DECLARE LUNO TO UNITNO (NUM LUNDS) 

BIT CS) initial C0, 0, 0, i, 0, 0# 0» 
PROCEDURE CDNOT COPIO, DEV TYPE, UNIT NO) 
DECLARE DPID CHARACTER C3) f 
DECLARE DEV TYPE BIT C8) » 

DECLARE UNIT NO BIT C8)| 

DECLARE ERROR TYPE LITERALLY »»l'l 
DECLARE MINUS ONE LITERALLY Uli» 

DEV TYPE 1 ERROR TYPEl 

DO I PROM NUM 0IVICIS»1 TO 0 BY MINUS ONfl 
IP OPIO i OEVNAME TABLE Cl) 

THEN 001 

UNIT NO i DVNAME TO UNITNO CI)| 
DEV TYPE ■ DVNAME TO OVTYPE Cl) I 
EXIT DO I 
ENDI 

ENDI 
RETURNI 
END CONDTf 

PROCEDURE 8ETLUN CLUNO, DEV TYPE, UNIT NO, 
ERROR CODE)» 

DECLARE LUNO PIXEO C16)f 
DECLARE DEV TYPE BIT (8)1 
DECLARE UNIT NO SIT (8)1 
DECLARE ERROR CODE PIXED CIS) I 

ERROR CODE * IRRORf 

IP LUNO R i I LUNO 4t NUM LUNOS*l THEN OOf 
LUNO TO OVTYPE (LUNO) • OEV TYPEl 
LUNO TO UNITNO CLUNO) i UNIT NOI 
ERROR CODE • 0| 

ENDI 
RETURNI 
END 8ITLUNI 

PROCEDURE CLDT CLUNO, OlV TYPE, UNIT NO) I 




10 SERVICt DISPATCHER 


949ST4-9&01** 


PACE 0003 


0096 

0097 

0098 

0099 
0060 
0061 
0060 

0063 

0064 
0069 
0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 
0079 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0089 
0086 

0087 

0088 
0069 

0090 

0091 

0092 

0093 

0094 
0099 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 


* 

* 

« 

# 

* 

* 

« 

« 

* 

* 

* 

* 

« 

* 

« 

* 

* 

* 

* 

* 

* 

* 

* 

* 

« 

♦ 

« 

* 

« 

* 

* 

« 

* 

* 

« 

* 

* 

* 

* 

« 

* 

* 

« 

* 

* 

* 

■* 

« 

* 

* 


DECLARE LUNO FIXED tl6)f 

DECLARE (DEV TVPEi UNIT NO) BIT C8) f 

DEV TYPE • DUM 

IF LUNO 4 NUM LUN08 THEN DOI 

DEV TYPE • LUNO TO OVTYPE tLUNO) I 
UNIT NO ■ LUNO TO UNJTNO tLUNO) f 
ENOI 
RETURNI 
END CLOTI 

PROCEDURE 10 (SVC PTR) » 

DECLARE SVC PTR POINTERI 
DECLARE PR8 PTR POINTER! 

DECLARE Cl PHYSICAL RECORD BLOCK, 

3 PRB CONTROL (PRB PTR), 

9 10 OP BIT (8), 

9 LUNO BIT (8), 

9 8Y8TEM FLAGS, 

7 filler 1 BIT (1), 

7 unrecoverable ERROR BIT (1), 
7 EOF FLAG BIT fl), 

7 FILLER 2 BIT (9), 

9 USER FLAGS, 

7 FILLER 3 BIT (3), 

7 character 10 BIT (1), 

7 filler 4 BIT (4), 

9 BUFFER ADDRESS POINTER, 

9 BUFFER LENGTH FIXED (16), 

9 char count fixed (16), 

9 PRB RESERVED BIT (32))! 

DECLARE OCT DEV TABLE (NuM DEVICES) POINTER! 
DECLARE OCT PTR POINTER! 

DECLARE OCT UNIT TABLE (1) POINTER 
CONTROL (OCT PTR)! 

DECLARE DCT CRU BASE FIXED (19) 

CONTROL (DCT PTR)! 

DECLARE READ ASCII CODE LITERALLY «9'! 

DECLARE FRO SPACE CODE LITERALLY *8»! 

DECLARE WAX 10 OP LITERALLY *19'! 

DECLARE MIN 10 OP LITERALLY »i*! 

DECLARE (DEV TYPE, UNIT NO) BIT (8)! 

DECLARE PARM LIST LITERALLY 

*PRB PTR, DEV TYPE, UNIT NO, DCT PTR*! 

PRB PTR ■ SVC PTR ♦ 2! 

UNRECOVERABLE ERROR ■ 0! 

EOF FLAG ■ 0! 

CALL CLOT (LUNO, OEV TYPE, UNIT NO) 

IF DEV type » NUL THEN DO! 

IF 10 OP P READ ASCII CODE 

IO»OP ■ FRD SPACE CODE THEN DO! 

EOF FLAG i I! 

CHAR COUNT t 0! 

END! 

RETURN! 

END! 


10 SERVICE OliPATCHiR 9483P4.8S01** PA6E §0i4 


etu 

* 

IP 10 OP » MAX 10 OP THEN RETURN! 

0tl2 

t 

DCT PTR i OCT OEV TAILS (DEV TTPE)! 

0U3 

t 

OCT PTRf OCT UNIT TAiLE (UNIT NO)! 

0114 

t 

DO CASE 10 OP! 

0U9 


DO CASE DEV TYPE! /♦ OPEN */ 

0116 


NULL! 

0U7 

t 

CALL C80PEN (PARM LIST)! 

0118 

♦ 

END! 

0119 

# 

NULL! 

0180 

♦ 

NULL! 

0181 

t 

NULL! 

0188 

« 

NULL! 

0183 


NULL! 

0184 

♦ 

DO CASE OEV TYPE! /• PORNARD SPACE •/ 

0188 

t 

NULL! 

0186 

♦ 

CALL C8PW0 (PARM LIST)! 

0187 

♦ 

END! 

0188 

♦ 

DO CASE OEV TYPE! /* BACKSPACE */ 

0189 

♦ 

NULL 

0130 

* 

CALL C8BACK (PARM LIST)! 

0131 


END! 

0138 


NULL! 

0133 


DO CASE DEV TYPE! /* READ ASCII 

0134 

t 

CALL L8RA8C (PARM LIST)! 

8138 


CALL C8RASC (PARM LIST)! 

0136 


END! 

0137 

* 

NULL! 

0138 

# 

DO CASE DEV TYPE! /* WRITE ASCII 

0139 

t 

CALL LSWASC (PARM LIST)! 

0140 


CALL C8WASC (PARM LIST) ! 

0141 

# 

END! 

0148 

t 

NULL! 

0143 

t 

DO CASE OEV TYPE! f* WRITE END OP PILE */ 

0144 

♦ 

NULL! 

9148 

* 

CALL CSWEOP (PARM LIST)! 

0148 

t 

END! 

0147 

# 

DO CASE OEV TYPE! /* REWIND */ 

0148 


NULL! 

0149 

# 

CALL C8RWND (PARM LIST)! 

0150 

t 

END! 

0191 

t 

DO CASE DEV TYPE! /* UNLOAD */ 

0198 


NULL! 

0193 

# 

CALL C8UNL0 (PARM LIST)! 

0184 


END! 

0159 

# 

END! 

0196 

* 

RETURN! 

0197 

0188 


END 10! 

IDT •PX9I0I 

0189 

« 

TITLEI I0PX9 

0160 

# 

REVISION! 

0161 

♦ 

orioinal 

0168 

# 

COMPUTER! 990 

0163 

# 

AS8TRACTI 

0164 


A sroupins op subroutines which constitute 

0168 


THE PX990«l 10 EXECUTIVE, 



10 8SRVICE DISPATCHER 


949374-9S01** 


PA8E RRRS 


0166 * TABLE OF CONTENTSl 


0167 




1. 

0168 





0169 


♦ 



0170 





0171 




2 • 

0178 


n 



0173 


♦WORKSPACE 

REGISTER 

0174 


* 
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BYTE 

UOS,OUM,OUM,OU« 
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7f 
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7f 
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0019 

7f 
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* 
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0247 

0030 

00 


BYTE 

0|0#0,0 


0031 

00 





0032 

00 





0033 

00 




0248 




EVEN 


0249 



* 



0298 


0100 

L8YTE 

EQU 

»100 MOVE BYTE TO LEFT BYTE 

** ERS 

’ 2 • 

RCD 0291 ** 



0291 

0034 

1000 


TITU'CNVRT DEVICE NAME TO DEVICE TYPE7UNIT 949374-99 



CSfVICi NAMf/TYPE/LUNO TASI.ES 


94S3T4«9iSi** 


PACE pass 


ess3 

0284 

0288 

0286 

0287 

0286 

0289 

0260 

0261 

0262 

0263 

0264 
0268 
0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 


* IPPROCIDURE CDNOT eOPIO, CSV TO 

* 2»0ECIARE 0PIO CHARACTER (3) r ^ 

* 2»0iCtARE OlV TYPE SIT (i) I 

* 9»DICLARE UNIT NO BIT C8) I 

* a-OEClARE ERROR TYPE LITERALUY ' 
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* TITLEI CDNOT 

* CONVERT DEVICE NAME TO DEVICE TYPE / UNIT NO, 

* REVISIONI 

* DRISINAL 
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0062 

1404 
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S»OEV TYPE • LUNO TO DVTYPE 

CL 
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0084 

026A 


MOVB 

#LUNOVT(R10)»R9 

SET DEVICE TYPE 



0086 

0014' 
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0409 
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3» 3 PRB CONTROL (PRB 

0409 






4m 9 10 OP BIT t§), 
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4m 9 LUNO BIT C8)i 

0408 
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4m 9 SYSTEM ELAG9, 

0409 






5m 7 filler 1 BIT (13, 

0410 






5m 7 UNRECOVERABLE ERR 

0411 






9* 7 EOF FLAG BIT (15 , 

0412 






9- 7 FILLER 2 BIT (93, 

0413 



# 



4m 9 USER FLAGS, 

0414 






5m 7 FILLER 3 BIT (33, 

0419 






Sm 7 CHARACTER 10 BIT 

0416 



♦ 



5m 7 FILLER 4 BIT (43, 

0417 



♦ 



4m 9 BUFFER ADDRESS PO 

0418 






4m 9 BUFFER LENGTH FIX 

0419 
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0420 
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2-DECLARE OCT UNIT TABLE (13 P 

0424 
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0429 
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0426 
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0427 
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EQU 

0 
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LUNG 

EQU 

1 

LOGICAL UNIT NUMBER 

0430 


0002 

SYfPLS 

EQU 

2 

SYSTEM FLAGS 

0431 


0003 

U8IPLG 

EQU 

3 

USER flags 

0432 


0004 

8PA0DR 

EQU 

4 

BUFFER ADDRESS 

0433 


0009 

BFiNTH 

ECU 

6 

BUFFER LENGTH 

0434 


0008 

CCOUNT 

EQU 

6 
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0439 
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FLAG SHIFT COUNTS! 

0436 


000f 

ui 

EQU 

I6»i 

UNRECOVERABLE ERROR 

0437 


000E 

I0P18 

EQU 
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end.of'.file flag 

0438 


000D 
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EQU 

16»3 

CHARACTER MODE 

0439 



* 



FLAG SET MASKS! 

0440 




DEE 

UEMA8E 

UNRECOVERABLE ERROR 

0441 

000E 

40 

UEHA8K 
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»40 
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DEE 

EEHA8K 
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00BF 

20 

EPMA$K 

BYTE 
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0444 




DEE 

CMDM8K 
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0449 

0090 

10 
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BYTE 
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0446 




dee 
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UN, ERROR AND EOF FLAG 

0447 

0091 

60 
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BYTE 
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0485 

0486 
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EQU 

S 
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0457 
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02 


BYTE 

UTLOS-DCTDT 

LOO 

0456 

0489 

0460 

0461 

0462 

0093 

04 

# 

BYTE 

EVEN 

UTCST-DCTOT 

CASSETTE 

HAP UNIT TO DCT 

(ONE TABLE PER DEV TYPE) 
(ONE ENTRY per PHYS UNIT) 

0463 

0464 


0894’ 

UTLOC 

EQU 

REP 

S 

DC7331 

LOG 

0465 

0004 

0000 


DATA 

0C7331 

UNIT 0 

0466 


0096’ 

UTCST 

EQU 

8 

CASSETTE 

0467 

0006 

0094’ 


DATA 

DC7331 

UNIT 0 

0468 

0469 

0470 
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0096’ 


DATA 

DC7331 

UNIT 1 
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0471 

0472 


0009 

ROACOO 

* 

EQU 

9 

READ ASCII 10 OP CODE 
2-DECLARE PWD SPACE CODE LITER 

0473 

0474 


0006 

F8PC00 

EQU 

6 

FORWARD SPACE 10 OP CODE 
2-OECLARE MAV 10 OP LITERALLY 

0475 

0476 

0477 

0478 

0479 

0480 


000f 

MXIOOP 

* 

it 

# 

EQU 

18 

HAXIMUH 10 OP 

2»DECLARE MIN 10 OP LITERALLY 
(IMPLICIT) 

2-DECLARE (DEV TYPE, UNIT NO) 
2-OECLARE PARM LIST LITERALLY 
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OEP 

10 
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S483 


088A' 

10 

EOU 

S 


84S4 



♦ 



2»PR8 PTR « SVC PTR ♦ 2l 

04SS 

809A 

09CA 


INCT 

R10 

8ET PRB address 

8486 

889C 

C886 


MOV 

Rll#R2 


848T 

089E 

C8CA 


MOV 

R10,R3 


8488 



n 



2»UNR|C0VERABiE ERROR • 01 

8489 



t 



2»EQF flag • 07 

849i 

88A8 

96E0 


8ZC8 

8UEPMSK,i9YSPlGCR33 


08A2 

8091 < 






08A4 

0802 





8491 






2*CALL CLOT CLUNO, DEV TYPE, U 

8462 

88A6 

02A3 


Move 

•UUNO(R3),R10 

SET LUNO 


88A8 

8001 





8493 

88AA 

096A 


SRL 

R10i8 


8494 

08AC 

06A0 


BL 

PCIOT 



88 A E 

007Af 





8499 



t 



2*IF DEV TYPE ■ NUL THIN DOf 

8496 

0800 

0989 


8RL 

R9f8 

(DEVICE TYPE) 

8497 

0862 

0988 


SRI 

R8,8 

(UNIT NUMBER) 

8498 

0864 

D1E3 


MOVB 

fioapeR3),R7 

(10 OP CODE) 


0866 

0000 





8499 

8898 

0087 


8RL 

R7,8 


898(9 

08BA 

0280 


Cl 

ROfOUM 



086C 

0877 





8981 

088E 

160C 


JNE 

ZO020 


8982 



t 



3t.IF 10 OP ■ READ ASCII CODE 

8983 



# 



3» IO.OP f FWO SPACE CODE TH 1 

8984 

00C8 

0287 


Cl 

R7,R0AC00 

IF NOT READ OR FORWARD SPACE 


08 C 2 

0000 





8989 

08C4 

1303 


JEO 

LI.2 


8986 

00C6 

0287 


Cl 

R7,P8PCOO 



08CB 

0009 





8907 

08CA 

1609 


JNI 

10018 


8988 


00CCf 

Hi 

EQU 

S 


8989 



# 




8918 



« 



4*E0F FLAG • 1| 

8911 

80CC 

P8I0 


S0C6 

#EFMA8K,8tV8fL6CR3) 


00CE 

008F* 






0008 

0882 





8912 



t 



4»CHAR COUNT ■ 0f 

8913 

0802 

04E3 


CLR 

#CC0UNTCR3J 



0804 

0808 





8914 



# 



4»EN0| 

8919 


08D6< 

ioii0 

EOU 

S 


8916 



t 



8-RETURNI 

8917 

0806 

0492 


8 

*R2 


8918 



♦ 



S*ENDI 

8919 


0008' 

lOi20 

EOU 

S 


8928 






2.IF 10 OP M MAX 10 OP THEN R| 

8921 

0806 

0287 


Cl 

R7iMXI00P 



08OA 

080P 





8922 

08OC 

1201 


JLE 

U4 


8923 

00OE 

8492 


B 

*R2 

1 


( 


W 
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0924 


00E0» 

LL4 

EOU 

S 




0629 



ii 






0526 



♦ 



2*DCT PTR • RCT DEV 

TABLE (OEV 

0927 

00E0 

DIAO 


Move 

#0CTDTtR9)iR6 

(DISP TO BEGINNING 

OF TABLE) 


00E2 

0092' 







0928 

00E4 

0966 


SRL 

R6,8 




0929 






2»DCT PTR • OCT UNIT 

TABLE (UN 

0930 

00E6 

0146 


MOV 

RS/R9 

(UNIT*2) 



0931 

00E8 

0A19 


SLA 

R5f 1 




0932 

00EA 

A189 


A 

R9,R6 




0533 

00EC 

C1A6 


MOV 

•DCT0T(R6) »R6 





00EE 

0092' 







0934 



H 



2»D0 CASE 10 ( 

3PI 


0939 



* 



3*00 CASE OEV 

TYPEI 

/• OPEN 

0936 



« 



4*NUUI 



0937 






4*CAUL C80PEN 

ePARM 

HST)| 

0938 



♦ 



4»EN0> 



0939 



* 



3*NUUI 



0540 



* 



3»NULlr 



0641 






3»NULLf 



0542 



if 



3««NULLI 



0543 



* 



3*NULL» 



0544 



* 



3»00 CASE OEV 

TYPEI 

/* FORM 

0549 



* 



4iiNULU 



0946 



* 



4»CALL C8FW0 

(PARM 

LI8T)| 

0947 






4»END| 



0548 



* 


' ' ] ( 

3»D0 CASE OEV 

TYPEI 

/« BACK 

0549 



* 



4-NULL 



0590 



♦ 



4-CALL C8BACK 

fPARM 

LI8T)| 

0991 



H 



4-ENOI 



0952 






3-NULLl 



0593 






3-00 CASE OEV 

TYPE! 

/* READ 

0594 



# 



4-CALL LGRA8C 

(PARM 

LI8T)| 

0595 



« 



4-CALL CSRA8C 

(PARM 

LISTll 

0996 



* 



4-ENO f 



0597 



* 



3-NULLl 



0998 






S-DO CASE OEV 

TYPEI 

/* WRIT 

0999 



# 



4-CALL LGHASC 

(PARM 

LI8T)| 

0960 



if 



4-CALL CSWA8C 

(PARM 

LIST)I 

0561 



* 



4-ENOI 



0962 



# 



3-NULLI 



0963 



♦ 



3-00 CASE OEV 

TYPE! 

/* WRIT 

0964 



' * 



4-NULL 1 



0969 



« 



4-CALL C9WE0P 

(PARM 

LIiT)| 

0966 






4-ENOI 



0967 






3-00 CASE DEV 

TYPEI 

/• REWI 

0568 






4-NULLI 



0569 



# 



4-CALL C8RWN0 

(PARM 

LIST)| 

0970 



♦ 



4-ENOi 



0971 



♦ 



3-00 CASE OEV 

TYPEI 

/* UNLO 

0972 






4-NULLl 



0973 






4-CALL CSUNLD 

(PARM 

LI8T5I 

0974 



♦ 



4-ENOI 



0579 



if 



S-ENOI 



0976 

00P0 

0167 


MOV0 

#I0PT8LCR73,R9 

DISP TO DEV ' 

(YPI TABLE BY OPC 
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00P2 

011A« 





0877 

00P4 

1311 


JEQ 

10080 

IF NULL ON 10 OP CODE 

8578 

00P5 

0985 


SRU 

RSfS 


0579 

00P0 

C109 


MOV 

R9fR4 


8508 

08FA 

0A14 


SLA 

R4,l 

(DEV TYPE * 25 

0501 

0iPC 

A 144 


A 

R4,R8 


0500 

0iPE 

Cl 65 


MOV 

#I0PT8LCR5),R5 

ADDRESS OF CALLED SUBROUTINE 


0108 

011Af 





0503 

0102 

130 A 


JEO 

XQ0S0 

IF NULL 

8504 




REF 

ACL 


0505 

0104 

0420 


BLWP 

PACL 



0106 

0000 





0500 

0108 

C263 


MOV 

R3,R10 

MOVE PRB POINTER TO NEW WK8P 

0887 

010A 

C246 


MOV 

R6fR9 

SET CRU BASE ADDRESS 

0580 

010C 

C329 


MOV 

0DCTCRU(R9),Ria 



0101 

0000 





0589 

0110 

C045 


MOV R5,P1 

CALL SUBROUTINE 

0590 

0112 

0691 


BU 

*R1 


0591 




REF 

RR 


0592 

0114 

0420 


BLWP 

PRR 



0116 

0000 





0593 



* 




0594 


0118t 

XO0S0 

EQU 

$ 


0595 



* 



2.RETURNI 

0895 

0118 

0452 


B 

*R2 


0097 



* 



2.END 101 

0890 


011A' 

IQPTBU 

EQU 

$ 

KEYED BY 10 OP CODE 

0899 

0UA 

10 


BYTE 

OPEN.JOPTBL 

001 OPEN 

0000 

ills 

00 


BYTE 

0f0f0f0»0 



01IC 

00 






0UD 

00 






011E 

00 






0IIF 

00 





0501 

0120 

14 


BYTE 

FSPACi.IOPTtL 

081 forward space 

0502 

0121 

10 


BYTE 

B8PACE.I0PT8L 

071 BACK SPACE 

0503 

0122 

00 


BYTE 

0 


0504 

0123 

1C 


BYTE 

RASCn.lOPTiL 

091 READ ASCII 

0005 

0124 

00 


BYTE 

0 


0506 

0128 

20 


BYTE 

wascii.ioptbl 

lit WRITE ASCII 

0507 

0126 

00 


BYTE 

0 


0600 

0127 

24 


BYTE 

WEOF.IOPTBL 

131 WRITE INO.OF’.FILE 

0509 

0121 

28 


BYTE 

REWIND.IOPTBL 

141 rewind 

0610 

0129 

2C 


BYTE 

unload.ioptbl 

181 UNLOAD 

0511 


012A« 

OPEN 

ECU 

s 


0512 

012 A 

0000 


DATA 

0 


0613 




REF 

CSOPEN 


0614 

0120 

0000 


DATA 

CSOPEN 


0615 


012Ef 

F8PACE 

EQU 

S 


0616 

012E 

0000 


DATA 

0 


0617 




REF 

C8FW0 


0610 

0138 

0000 


DATA 

CSFWO 


0619 


0132 » 

B8PACE 

EQU 

S 


0628 

0132 

0000 


DATA 

0 


0621 




REF 

C8BACK 


0622 

0134 

0000 


DATA 

CSBACK 
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0623 




EVEN 


0624 


0136< 

RAScn 

EQU 

S 

062S 




REF 

L6RA8C 

0626 

0136 

0000 


DATA 

LGRA8C 

0627 




REF 

C8RA8C 

0628 

0136 

0000 


DATA 

CSRA8C 

0629 


013A* 

MASCII 

EQU 

S 

0630 




REF 

LGWA8C 

0631 

013A 

0000 


DATA 

LGWA8C 

0632 




REF 

C8WASC 

0633 

013C 

0000 


DATA 

CSWA8C 

0634 


013Et 

WEOP 

EQU 

S 

0635 

013E 

0000 


DATA 

0 

0636 




REF 

C8WE0F 

0637 

0140 

0000 


DATA 

CSMEOF 

0638 


0142' 

REWIND 

EQU 

8 

0639 

0142 

0000 


DATA 

0 

0640 




REF 

C8RWN0 

0641 

0144 

0000 


DATA 

CSRWND 

0642 


0146* 

UNLOAD 

EQU 

S 

0643 

0146 

0000 


DATA 

0 

0644 




REP 

C8UNLD 

0645 

0146 

0000 


DATA 

C8UNL0 

0646 




END 



LOG 

0002 ER8 
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960 • 080 concordance 



s 


0201 

0218 

0226 



0387 

0362 

0395 



0819 

0524 

0894 



0634 

0638 

0642 

ACI. 

8PA00R 

0432 

0564 

0885 


8PI.NTH 

0433 




8SPACE 

0619 

0602 



CCOUNT 

0434 

0513 



CONDT 

0277 

0276 



C0N0T2 

0282 

0294 

0296 

0296 

C0N0T8 

0308 

0284 



CHRMOD 

0438 




CLOT 

0382 

0361 

0494 


CLOT90 

0398 

0368 



CMOHSK 

0448 

0444 



C8 

0214 

0212 

0222 

0223 

CSBACK 


0621 

0622 


C88N0 


0617 

0618 


C80REN 


0613 

0614 


C8RA8C 


0627 

0628 


C8RNND 


0640 

0641 


C8UNI.D 


0644 

0648 


C8RA8C 


0632 

0633 


C8RE0E 


0636 

0637 


0C7331 


0464 

0468 

0467 

octcru 

0480 

0868 



octot 

0488 

0457 

0458 

0827 

DEVICE 


0251 

0312 


OUM 

0213 

0212 

0221 

0237 



0239 

0240 

0240 

ovname 

0201 

0290 



OVNDVT 

0218 

0304 



OVNUNT 

0226 

0302 



EFHA8K 

0443 

0442 

0811 


fOPLi 

0437 




P8PACE 

0618 

0601 



P8PCOO 

0473 

0806 



10 

0463 

0482 



10010 

0818 

0807 



XO020 

0819 

0501 



IO0S0 

0594 

0577 

0563 


loop 

0428 

0498 



lOPTBl, 

0896 

0876 

0610 

0562 

0599 

UBYTE 

0250 

0388 



U6RA8C 


0625 

0626 


USWASC 


0630 

0631 


LL2 

0808 

0805 



Ul.4 

0824 

0822 



LOB 


0212 

0220 

0237 

LUNOVT 

0236 

0349 

0391 


LUNO 

0429 

0492 



LUNUNT 

0243 

0381 

0393 


MXIOOP 

0478 

0821 



NDVTYP 

0198 




numdev 

0216 

0261 



NUMLUN 

0197 

0346 

0387 


open 

0611 

0599 



R0 

0178 

0287 

0280 

0289 


0236 

0243 

0277 

0282 

0306 

0339 

0486 

0463 

0466 

0483 

0806 

0818 

0898 

0611 

0618 

0619 

0624 

0629 


0238 0238 


0408 

0833 

0237 0237 0238 0238 0239 0239 
0240 0240 0385 0800 


080i 0802 0804 0606 0608 0609 


0238 


0290 0293 0298 0297 
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R1 0176 0990 

Rie 0106 0290 

0485 

Rll 0186 0486 

Rl2 0187 8608 

Rl3 0188 

R14 0189 

Rl5 0190 

R8 0177 0486 

R3 0178 0487 

R4 0179 0679 

R5 0180 0830 

R6 0181 0627 

R7 0182 0342 

R6 0183 0302 

R9 0184 0201 

0388 

RASCn 0624 0604 

ROACOD 0471 0804 

REt^lNO 0638 0609 

RR 0891 

SETI.UN 0339 0338 

SLUN90 0357 0348 

SY8FI.6 0430 0490 

UE 0436 

UEFM3K 0447 0446 

UEHASK 0441 0440 

UNLOAD 0642 0610 

U8EFLG 0431 

UTC8T 0466 0488 

UTLOG 0463 0457 

NA8CXI 0629 0606 

WE07 0634 0608 

THERE ARE 0086 


0293 

0295 

0997 

0589 

0344 

0344 

0346 

0349 

0487 

0492 

0493 

0886 


0817 

0823 

0896 


0490 

0492 

0498 

0811 

0880 

0581 



0531 

0532 

0878 

0878 

0628 

0532 

0633 

0833 

0383 

0496 

0499 

0504 

0381 

0393 

0497 

0830 

0283 

0287 

0266 

0289 

0391 

0496 

0800 

0827 

0592 




0347 




0811 




0490 





0S90 

0351 0387 0391 0393 


0813 

0886 



0881 

0587 

0882 

0882 

0569 

0506 

0821 

0576 


0302 

0304 

0304 

0349 

0579 

0587 

0588 



SYMBOLS 




REV 


SHEET 


REV STATUS 
OF SHEETS 


REV 


SHEET 


UNLESS OTHCltWISE SPCCiriCO 
DIMENSIONS APE IN INCHES 
TOLEPANCES 
ANGLES 

3 PLACE DECIMALS 010 
2 PLACE DECIMAL ± 02 


lOENTirriNQ NUMSCPS 
SHOWN IN PAPENTMESES 
EOP PEFEPENCE ONLY 


INTEPPPET OWO IN 
ACCOPOANCE WITH 
mil STD lOO 






.PVO /X 


CONTP NO/ 


OESiqH activity release 


Texas Instruments 

INCOP POPATCD 

Equiprmnt Group Dtfim, Toxm 


AL, RANGE, EXTRACT RANGE OF PARAMETERS-PX990 


COOE lOENT NO 


A 96214 


EV. 


OMAWING NO 


945375-9901 

- 


Tt-t»a9C 




























♦* f XTRACT RANGE OF MS 


945375 * 9901 ** 


PAGE 0002 


00i3 


lOT 

•RANGP* 

0004 


♦ TITIE8 

RANGE 

0005 


♦ 

RANGE EXTRACTER AND VERIFICATION ROUTINE 

0006 


# REVISIONS 


0007 


# 

ORIGINAL 

0006 


♦ CONPUTERI 

990, ASH 

0009 


♦ ABSTRACTS 

THIS ROUTINE, WHEN GIVEN A FARM LIST, WILL SET 

0i| 0 


* 

UP THE appropriate LIMITS IN R9,R10, IT ALSO 

00 n 



verifies. that lower LIMIT * UPPER LIMIT, IE 

00ia 


* 

THIS ISNIT TRUE, THEN EXIT IS TO 

0013 


♦ 

WD FOLLOWING BL, 

0014 


♦ 

15 both farms null • R9«0 AND RlB-MAXIHUH VALUE 

0015 



25 LOWER null, UPPER ENTERED * R9i0 AND R10bPARH 

0016 


# 

35 LOWER nonnull, UPPER NULL * R9 AND R10*PARM 

0017 


t 

45 BOTH PARhS non-null • R9*PARM AND Rli*PARM» 

0018 


* 


0019 


* CALUNG SEQUENCE* 

0020 


# . 

RlOaPARM LIST 

0021 


# 

R8*nUHBER of values (0 *■ NO MAX CHECK) 

0022 


* 

BL PRANGEX 

0023 


♦ 

JMP ERROR ERROR EXIT 

0024 


if 


0025 


♦ 

USES R1,R9,R10 

0026 


# 


0027 


* REPSi EOUIS ,OATA 

0028 


* 


0029 


DEF 

RANGEX 

0030 


REP 

ERROR 

0031 

1113 

rngerr eou 

>1113 UPPER LIMIT > MAX 

0032 

0005 

PRBITS EQU 

5 

0033 

0005 

PReTSH EQU 

6 

0034 

0001 

Ri EQU 

1 

0035 

0008 

R8 EQU 

8 

0036 

0009 

R9 EQU 

9 

0037 

000A 

R10 EQU 

10 

0038 

000S 

Rll EQU 

11 



*• EXTRACT RANGE OF MS 9A5375-99B1** RAGE R0B3 


0PI4B 


0000 ' 

JMPTAB EOU S 

KB41 

0000 

1009 

JMP RAN000 

0B4I3 

0002 

100C 

JHP RAN010 

0<M3 

0004 

100E 

JMP RAN020 

0M44 

0008 

1010 

JMP RAN030 

0ti4*S 



RAN6EX 

0M4^ 



* 

0B47 



* SET UP AND B TO APPROPRIATE PARAMETER EXTRACTIR 

0^48 



# 

0M49 

0008 

C07A 

NOV *R104',R1 Rt»PRE8ENCE FLAGS 

e«8B 

000A 

0851 

SRA R1,PRPITS 

0B51 

000C 

0241 

ANOI R1,PR0TSM 


000F 

0006 


i«5R 

0010 

0461 

B PJMPTABfRl) 


0012 

0000 * 


0BS3 



* 

0t»54 



* BOTH PARMS NULL •• INOIC EVERVTHlNGeB • MAX VAL ) 

0B5S 



* 

0BSfi 

0014 

04C9 

RAN000 CLP R9 

0097 

0018 

C288 

MOV R8,R10 

0B98 

0018 

060A 

DEC R10 

0M59 

001A 

100E 

JMP RAN04S 

0060 



* 

0001 



* ONLY UPPER LIMIT PRESENT • ZERO LONER LIMIT 

0062 



* 

0003 

00ir 

04C9 

RAN010 CLR R9 

0064 

001E 

C29A 

MOV *Wl0(pPl0 

006S 

0020 

1005 

JMP RAN040 

0066 



* 

0067 



* ONLY LOWER LIMIT PRESENT » SINGLE CONSTRUCT ONLY 

0068 



* 

006R 

0022 

C26A 

RAN020 MOV *P10,P9 

0070 

0024 

C289 

MOV R9,R10 

0071 

0026 

1002 

JMP RAN040 

0072 



• 

0073 



* BOTH LIMITS PRESENT • LOWER ANO UPPER 

0074 



* 

0079 

0028 

C27A 

RAN030 MOV *R10*,R9 

0076 

002A 

C29A 

MOV *R10,R10 

0077 



* 

0078 



* CHECK LIMIT ORDER AND RETURN 

0079 



* 

0000 


002C 

RAN040 EOU S 

0001 

002C 

8289 

C R9,R10 

0002 

002E 

IB06 

JH RAN0S0 

0083 

0030 

C208 

MOV R8,R8 

0004 

0032 

1302 

JEQ RAN045 

0089 

0034 

620A 

C R10»R8 

0006 

0036 

1402 

JHE RANM50 

0007 


0030» 

RAN04S EQU S 

0008 

0038 

0SCB 

INCT Rll 

0089 

003A 

04SB 

RT 

0090 


003C» 

RAN050 EQU S 

0091 

003C 

020A 

LI R10,RNGERR 


*♦ extract range of MS 945575»99PI1** PAGE P0F4 


0090 

003F 

0040 

ms 

0460 

B 

4ERR0R 

AND RETURN TO CALLER 

0093 

0094 

0095 

0042 

0044 

0000 
0044 t 
046B 

RAN060 EQU 
RT 
END 

S 



0000 IRS 






9«e • OBB rONCORnAMCE 






s 


0039 

0079 

0086 

0089 

0092 


error 


0029 

0091 





jmPtar 

0P3R 

00S1 






PRBTTS 

0P31 

0049 






PRBTSM 

0P38 

0050 






R! 

p«33 

0048 

0049 

0050 

0051 



RIB 

0C"3f 

0048 

0058 

0057 

0063 

0063 

0068 0069 0074 



0078 

0080 

0084 

0090 



«U 

0PI37 

0087 






RS 

0034 

0058 

0082 

0082 

0084 



R9 

i03f> 

0055 

0052 

0068 

0069 

0074 

0080 



0040 






RANi/lti^ 

006S 

0041 






RAN02^ 

006« 

004? 






«AN«3M 

0074 

0043 






RANPI40 

0079 

0064 

0070 





RAN^4!S 

008E 

0058 

0083 





RAN«5W 

0089 

0081 

0085 





RANW6W 

009? 







RARREX 

0044 

0028 






RMGERR 

0030 

0090 
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0003 



IDT 

'8B» 

i004 


* TITLEI 

SBP 

0005 


♦ 


SET BREAKPOINT CMD PROCESSOR 

00ii 


* REVISIONI 


0007 


* 


ORIGINAL 

000» 


* COHPUTERl 

990 » ASH 

0009 


♦ abstract* 

THIS ROUTINE PROCESSES THE SB COMMAND, IT FIRS 

0010 


t 


VERIFIES AND OBTAINS THE BREAKPT NUMBER AND 

0011 


t 


PC LOCATION, THESE ARE PLACED IN THE BRKPT 

0012 


« 


table, then, a reference count is ENTERED INTO 

0013 


if 


THE table entry, if NULL# A 1 IS ASSUMED, THE 

0014 


it 


LAST PA«M,IF PRESENT, IS A SNAP #, IT MUST 

0015 


# 


BE defined, after THESE DATA ITEMS ARE PLACED 

0015 


# 


IN THE table, the gP IS MARKED AS DEFINED, ANY 

0017 


if 


ERRORS RESULT IN A NASTY MESSAGE AND RETURN TO 

0018 


it 


COMMAND PROCESSOR, 

0019 


* CAUING SfQUENCEl 

0020 


# 


R10«CMO PARM LIST PTR 

0021 


t 


CMD PARM tlST* PARHP/PRESENCE BITS 

0022 


t 


PARHS 

0023 


* 


BL FSBP 

0024 


♦ 



0025 


♦ 


USES P0,RI ,R2,R5,R9,R15 

0026 


if 



0027 


* 



0028 


* REFS, OEFS, EQU8 

0029 


* 



0030 



DEF 

SBP 

0031 



REF 

0PTAB • BREAKPOINT DEFINITION TABLE 

0032 



REF 

NIIM8PS • NUMBER OF BREAKPOINTS 

0033 



REF 

ENT8I7 - ENTRY BLOCK SIZE 

0034 



REF 

NUMSNF • NUMBER OF SNAPS 

0035 



REF 

SNPTAB • SNAPSHOT TABLE 

0036 



REF 

SNPENT • SNAPSHOT ENTRY SIZE 

0037 



RIF 

ERROR •• ERROR PROCESSOR 

0038 0000 

C0 

FUA58N 

BYTE 

>C0 

0039 0001 

80 

FLAG 

BYTE 

>80 

0040 

0008 

PR6IT8 

FOU 

8 

0041 

0001 

81 

FQU 

1 

0042 

1120 

DP20 

EQU 

>1120 BREAKPOINT ERROR 

0043 

0000 

R0 

EQU 

0 

0044 

0001 

R1 

F8U 

1 

0045 

0002 

R2 

EQU 

2 

0046 

0005 

R5 

FOU 

5 

0047 

0009 

R9 

EOU 

9 

0048 

0004 

R10 

FOU 

10 

0049 

000B 

Rll 

EQU 

11 

00S0 

000F 

R15 

EQU 

15 


** SiT BREAKPOINT PROCESSOR ** 948377*99Pl** 


PAGE O0P3 


00S2 



88P 




0^33 







msA 



* 

GET INDE)( 

’ number and find 

ENTRY BLOCK 

(0055 



* 




0058 

0008 

C03A 


MOV 

*R10+,R0 

p0a« parms/presence flags 

0057 

0004 

0AB0 


vSLA 

R0,PRPIT8 


0085 

0006 

1524 


JGT 

SPP100 

REQUIRED INDEX MISSING 

0089 

0008 

C07A 


NOV 

•R10+,R1 


0060 



* 




0061 



★ 

CHECK INDEX number 


006?! 



* 




0063 

000A 

0281 


Cl 

R1 ,NUMBP8 



000C 

0000 





0064 

000E 

1420 


JHE 

SBP100 

BAD index number 

0065 

0010 

0802 


LI 

R2,ENT8I2 



0012 

0000 





0066 

0014 

3842 


MPY 

R2»R1 


0067 

0016 

0282 


A I 

R8,BPTAB 

rpptable entry pointer 


0018 

0000 





0068 

001 A 

C242 


MOV 

R2»R9 

R9«TABLE entry pointer 

0069 



♦ 




0070 



♦ 

INITIALI7E PC value 


0071 



♦ 




0078 

001C 

05C2 


INCT 

R2 


0073 

0016 

0A10 


SLA 

R0,S1 


0074 

0020 

1517 


JGT 

SBP100 

PC MISSING 

0075 

0022 

1316 


4EQ 

5BP100 


0076 

0024 

CC9A 


MOV 

*P10,*R84 


0077 

0026 

CC8A 


MOV 

*R104>,*R84 


0078 







0079 



♦ 

INSERT REF CNT 


0080 



# 




0081 

0088 

0732 


SETO 

*R2 + 


0088 

002A 

0A10 


SLA 

R0,S1 


0063 

002T 

1102 


JLT 

SBP038 

NULL? 

0084 

00 2F 

0402 


CLR 

*R2 


0085 

0030 

1002 


JMP 

S0P040 


0086 


0032’ 

SBP030 EOU 

i 


0087 

0038 

C4BA 


MOV 

*R10+,*R8 


0088 

0034 

0612 


DEC 

*R2 


0089 







0090 



* 

GET SNAPSHOT NUMBER 


0091 



* 




0098 

0036 

0A10 

SBP040 SLA 

R0,S1 


0093 

0038 

1103 


JLT 

SBP050 

NULL? 

0094 

003A 

0660 


MOV0 

#FLAG,*R9 

YES, MOVE DEF»D,N0 snap FLAGS 


003f 

0001 * 





0095 

0P3E' 

1007 


JMP 

SBP090 

EXIT 

0096 



* 




0097 



* 

CHECK OUT 

’ SNAP R 


0098 



* 




0099 

0040 

C01A 

88P050 HOV 

*R10,R0 

rpibsnap n 

0100 

0048 

0880 


Cl 

RBfNUMSNP 



0044 

0000 






** 8iT 

BREAKPOINT 

PROCESSOR ** 

945377»99il** 

PAGE 0004 


0itl 

0046 

1404 


JHI 

88P100 

lUISAl. snapshot 

NUMBER 




♦ 





01^3 




INSERT snapshot NUMBfR AND 

FLA6S 


ili4 



# 





0105 

0:046 

C66A 


HOV 

*R10#*R9 



iliS 

084A 

0660 


HOV8 

»F|.AGSN,*R9 




004C 

0000 t 






0107 



♦ 





0108 



t 

EXIT 




0102 



t 





0110 


004t» 

S0P090 IQU 

$ 



0111 

0046 

045B' 


RT 




0118 



# 





0113 




ERROR EXIT 



0114 



♦ 





0115 


0050 » 

8BP100 IQU 

S 



0116 

0050 

080A 


U 

R10,OP20 

BREAKPOINT SPECIFICATION ERRO 


0058 

1120 






0117 

0054 

0460 


8 

PIRROR 

(8R AND RETURN 

TO MV CALLER 


0056 

0000 






0118 




end 





IRS 



945377-9901** 


PAGE 0005 


96K • 980 CONCORDANCE 


$ 


0088 

0110 

0115 






bptah 


0031 

0067 







OP20 

004? 

0116 








ENTSIZ 


0033 

0065 







ERROR 


0037 

0117 







FLAG 

0039 

0094 








FLAG8N 

003R 

0106 








NUM0PS 


0032 

0063 







NUMSNP 


0034 

0100 







PR6ITS 

004? 

0057 








R0 

0043 

0056 

0057 

0073 

0082 

0092 

0099 

0100 


R1 

0044 

0059 

0063 

0066 






Ri0 

004P 

0056 

0059 

0076 

0P77 

0087 

0099 

0105 

0116 

R1 1 

0049 









Rl6 

00S0 









R2 

004!? 

0065 

0P6S 

0067 

0P68 

0072 

0076 

0077 

0081 0084 



0087 

0086 







R5 

004R 









R9 

0047 

0068 

0094 

0105 

0108 





81 

0041 

0073 

008? 

009? 






SRP 

00S2 

0030 








SRPt?'3M 

008!? 

0083 








SBP«*4M 

009? 

0085 








SBPpSo 

0099 

0093 








SPPPRM 

01 IP 

0095 








S8P J0M 

01 IS 

0056 

0P64 

0074 

0P75 

0101 





SNRENT 0W36 

3NPTAB 0PI35 

THERE ARE 0027 SYMBOLS 





SHEET 


REV STATUS 
OF SHEETS 


SHEET 


UNLESS OTHERWISE SPECIFIED 
DIMENSIONS ARE IN INCHES 
TOLERANCES 
ANGLES 

3 PLACE DECIMAL ± 010 
2 PLACE DECIMAL ± 02 


IDENTIFVINQ NUMBERS 
SHOWN IN PARENTHESES 
FOR REFERENCE ONLY 


INTERPRET DWG IN 
ACCORDANCE WITH 
MIL STD lOO 
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S*ZE I CCX3E lOENT NO I DRAWING NO 


X I A 96214 


945378-9901 
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*# «CAN TASl.es ** 


94S3Ti»99Sl** 


SASe S0S2 


0903 

■ # 

PROCfDURE SCAN TA8i.RCTABl.iVA|.,RTN COOf# 

0004 

* 

entry num, entry L0C)» 

0005 


/• SCAN TABLE WILL SEARCH A STANDARD 

0006 

t 

TABLE TO OETfRMINE IF AN INPUT 

000T 

* 

value 18 within the RAN6E OF 

0000 


definition of some TA8LE ENTRY, 

0009 

♦ ' 

*/ 

0010 

♦ 

ENTRY LOC P TABLini 

0011 


entry max p TABLf2) 

0012 

♦ 

ENTRY LEN ■ TABL(3) 

0013 


ENTRY NUM P 0 

0014 

* 

DO WHILE ENTRY NUM ,LT, ENTRY MAX 

0015 

t 

FLA68 • ENTRY LOC, FLAG 

0016 

t 

IF ENTRY DEFINED THEN DOl 

0017 

« 

IF VAL ,SE, entry low LIM .AND, 

0016 

ilr 

VAL ,LE. ENTRY HIGH LIM THEN DOl 

0019 

♦ 

RETURN (FOUND) 1 

0020 

t 

ENOl 

0021 

♦ 

ENDl 

0022 

# 

ENTRY LOC P ENTRY LOC ♦ ENTRY LENf 

0023 

t 

■ ENTRY NUM • ENTRY NUM ♦! | 

0024 

* 

ENOl 

0025 

t 

END SCAN TA8LEI 

0026 


IDT »8CNTBL» 

0027 

♦ 

TITLE* SCNTBL 

0028 

# 

SCAN tables 

0029 


REVISION! 

0040 

♦ 

ORIGINAL 

0031 

♦ 

COMPUTER* 990, ASM 

0032 

t 

ABSTRACT! SCAN TABLES IS A UTILITY ROUTINE WHICH 

0033 

t 

CAN BE USED TO FIND IF SOME VALUE FALLi 

0034 

# 

WITHIN THE LIMITS OF A CONTROLLED DATA 

0035 


STRUCTURE, 

0036 

* 

CALLING SEQUENCE 1 

0037 

♦ 

8L 68CTB 

0038 

♦ 

R10 » PTR TO LIST 

0039 

♦ 

WO 1 i ADDRESS OF TABLE 

0040 


WO 2 i # OF ENTRIES IN TABLE 

0041 

t 

WO 3 p 6 OF WORDS PER ENTRY 

0042 

♦ 

R9 * VALUE FOR TEST 

0043 

t 

RS - RESERVED 

0044 

♦ 

RETURN 

0045 


R10 • 0 IF VALUE FOUND IN TABLE LIMIT 

0046 

♦ 

R9 • ENTRY NUMBER 

0047 

t 

R6 • entry pointer 

0046 

t 

REF’S AND PEF’S 

0049 

t 


0050 


DEF 3CTB 

0051 


REF 6ET8UF 

0052 


REF RETBUF 

0053 


REF LWP 

0054 


REF RWP 

0055 


REF ACL 

0056 


REF RR 



'• SCAN 

1 tables *• 



94537S«9901** 

PAGE 0003 

0057 



♦ 




00SS 



★WORKSPACE 

REGISTER OEEINITIONS 

0059 



♦ 




0060 


0000 


EOU 

0 


0061 


0001 

R1 

EOU 

1 


0062 


0002 

R2 

EQU 

2 


0063 


0003 

R3 

EQU 

3 


0064 


0004 

R4 

EQU 

4 


0065 


0005 

R5 

EQU 

5 


0066 


0006 

R6 

EOU 

6 


0067 


0007 

R7 

EQU 

7 


0069 


0008 

R8 

EQU 

8 


0069 


0000 

R9 

EOU 

9 


0070 


000A 

R10 

EQU 

10 


0071 


000B 

RU 

EOU 

11 


0072 


000C 

R12 

EQU 

12 


0073 


0000 

Rl3 

EOU 

13 


0074 


000C 

R14 

EQU 

14 


0075 


000f 

R15 

EOU 

45 


0076 



* 




0077 


0002 

ENLOUM 

EOU 

2 

TABLE LOW LINIT 

0079 


0004 

ENHIUW 

EQU 

4 

TABLE HIGH LIMIT 

0079 



♦ 




0080 



♦ 

REGISTER ASSIGNMENTS 


0061 







0082 



« 

Rll 

RETURN CODE 


0083 



* 

R15 

CURRENT ENTRY 8 


0084 



* 

R10 

ENTRY LENGTH 


0085 




R9 

TEST V4LUE 


0086 




R8 

CURRENT ENTRY POINTER 

0067 



♦ 

R1 

NUMBER OP ENTRIES 

0088 



# 



1-PROCEOURE SCAN TABLEITABL.VA 

0069 



# 



2»ENTRY NUM, entry L0C5 I 

0090 


0000' 

sctb 

EQU 

S 


0091 






2»/* SCAN TABLE WRL SEARCH A 

0092 



♦ 



2* TABLE TO OETERHINE IF AN 

0093 






2- value is WITHIN THE RANGE 

0094 



♦ 



9m DEFINITION OF SOME TABLE 

0095 






2»*/ 

0096 



* 



2*ENTRY LOC ■ TABLCDl 

0097 

0000 

C23A 


MOV 

*R104,R8 


0098 



# 



2.ENTRY max ■ TA8L(25 

0099 

0002 

C07A 


MOV 

*R10^,RI 


0100 



* 



2»ENTRY LEN ■ TABLO) 

0101 

0004 

C29A 


MOV 

•R10tP10 


0102 



Hf 



2»ENTRY NUM m 0 

0103 

0006 

04CF 


CLR 

R15 


0104 



♦ 



2»00 WHILE ENTRY NUM ,UT, ENTR 

0105 


0008* 

SCTf 101 

EOU 

S 


0106 

0008 

804P 


C 

R15|R1 


0107 

000A 

1411 


JME 

SCT030 


0108 



* 



3»FLAGS ■ ENTRY LOC. FLAG 

0109 

000C 

C018 


MOV 

*R8»R0 


0110 



♦ 



3.IF ENTRY DEFINED THEN 001 

0111 

000E 

0A10 


SLA 

R0.1 



** ICAN TABLES ** 



949370«9901** 

0A0E 0004 



0112 

00 It 

170B 


jm 

SCTi20 




0113 



♦ 



4-lF VAU ,6E, ENTRY 

uow 

UIM ,A 

01M 



« 



4*VAU ,UE, ENTRY MI6H UIM THEN 

BUS 

0012 

C02S 


MOV 

#ENLOUM(Ri),R0 





0014 

0002 







0US 

0016 

0009 


c 

R9*R0 




01U 

001S 

1A07 


JL 

8CT020 




0lli 

001A 

C020 


MOV 

#ENHIUM(Ri) ,R0 





001C 

0004 







0119 

001E 

8009 


c 

R9,R0 




0120 

0020 

1B03 


JH 

8CT020 




0121 



♦ 



5.RITURN (FOUND)! 



0122 

0022 

C24F 


MOV 

R15iR9 

ENTRY R 



0123 

0024 

04CA 


CUR 

R10 

FOUND 



0124 

0026 

045B 


RT 





0120 



♦ 



4«EN0jF 



0126 



♦ 



3*ENDI 



0127 


0028* 

$CT02i 

E9U 

S 




B12B 



♦ 



3»ENTRY LOC • ENTRY 

uoc 

♦ ENTR 

0129 

0020 

A20A 


A 

R10,R0 




0130 



« 



3*ENTRY NUM i ENTRY 

NUM 

♦ 11 

0131 

002A 

0507 


INC 

RIS 




0132 



♦ 



2»END! 



0133 

002C 

10EO 


JMP 

SCT010 




0134 


i02E» 

seTiSi 

EQU 

f 




0130 



♦ 



ipEno scan tablei 



0130 

J02E 

0480 


RT 





0137 




ENO 






0000 £ 0 $ 



900 • 980 CONCORDANCE 9^5378-9901** PAGE 0005 


s 


0890 

0105 

0127 

8134 


ACL 


0055 





ENHIUM 

0878 

0118 





ENLOLM 

0877 

0115 





GET0UF 


0051 





UWP 


0893 





R0 

0868 

0109 

0111 

0115 

0116 

8118 0119 

R1 

0061 

0899 

0106 




Rie 

0870 

0097 

0899 

0101 

8101 

0123 0129 

Rll 

0071 






Rl2 

0072 






«l3 

0073 






RH 

0074 






RlS 

0875 

0103 

0106 

0122 

013! 


R2 

0862 






R3 

0063 






R4 

0864 






R5 

0865 






R0 

0866 






R7 

0067 






R8 

0068 

0897 

0109 

8115 

0118 

0129 

R9 

0069 

0116 

0119 

0122 



RET8UF 


0852 





RR 


0856 





RWP 


0894 





SCTPIP 

0105 

0133 





SCTPan 

0127 

0112 

0117 

0128 



SCT030 

0134 

0107 





SCT9 

0890 

0050 
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SYMBOLS 





APPLICATION 
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SHEET 


REV STATUS 
OF SHEETS 


SHEET 


UNLESS OTHERWISE SRECiriCO 
DIMENSIONS ARE IN INCHES 
TOLERANCES 
ANGLES Tl* 

J RLACE DECIMALS 010 
2 RUi^CE DECIMALS 03 
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SHOWN IN RARENTHESCS 
EOR REFERENCE ONLY 


INTERRRET OWO IN 
ACCORDANCE WITH 
mil STD 100 
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c 























** 811 DRIVER ** 


94S379»99Ri** 


PAGE 


DB03 


* 

PROCEDURE SIEI 

8004 



• 8IE CONTROLS THE LEVEL ZERO INTERRUPT 

0009 


* 

AND programmed 81E facility, WHEN 

0006 



CALLED FROM THE MONITOR, IT WILL 

0007 


♦ 

EXECUTE ONE INSTRUCTION OF THE USER'S 

0008 


♦ 

program and return, when a FRONT PANEL 

0000 



HALT IS PUSHED, THE MONITOR IS 

0010 


♦ 

RE-INITIALIZED, 

00 U 


* 

*1 

0012 


. ♦ 

CALL SAVE current ENVIRONMENT! 

0013 


# 

CALL SET FRONT PANFL WORKSPACE 

0014 


« 

SIR FLAG P *9900' 

0018 



CALL SET USER ENVIRONMENT! 

0016 



SIE RETURN address P SIEINT! 

0017 



8IE IN PROG p -1 

0018 



CRU BASE i FRONT PANEL CRU! 

0019 


♦ 

CALL SIE EXEC! 

0020 


# 

CALL SAVE USER ENVIRONMENT 

0021 


♦ 

IF ,NQT, SIE IN PROG THIN INITlALIZi MONITOR 

0022 


* 

SIE IN PROG P 0! 

0023 


t 

CALL RETURN MONITOR ENVIRONMENT 

0024 


* 

end SIE 

0029 



lOT 'SIEPR* 

0026 


* 

TITLE! SIEPR 

0027 


♦ 

single INSTRUCTION EXECUTION PROCESSOR 

0028 


4r 

REVISION! 

0029 


♦ 

original 

0030 


♦ 

COMPUTER! 990, ASM 

0031 


# 

ABSTRACT! SIE EXECUTES ONE INSTRUCTION USING THE 

0032 



SIE INTERRUPT, ANY HALT INTERRUPT (LEVEL 

0033 


♦ 

0 INTERRUPT NOT CAUSED BY MONITOR INITIATED 

0034 


♦ 

SIE) WILL RE-INITIALIZE PX9 

0039 


♦ 

CALLING SEOUENCEl 

0036 


♦ 

0L P8IE 

0037 


★ 


0038 


♦ 

REF'S AND OEF'S 

£039 


♦ 


0040 



DEP 811 

0041 



DEF SIEINT 

0042 



REF FPWP FRONT PANEL WORKSPACE 

0043 



ref usrwp 

0044 



REF LISRPC 

0049 



REF U8RST 

0046 



REF CRUOFF 

0047 



REF PCOUT 

0048 



REF INIT 

0049 



REF 81EWP 

0080 



REF S1E8T 

0051 



REF SIINPG 

0052 


♦ 


0053 


♦WORKSPACE REGISTER OiFlNITIONS 

0054 


♦ 


0058 

0000 

R0 

! EQIl 0 

0086 

0001 

R1 

FOU 1 



** 5IE ORIVEf? ** 


0037 

0002 

R2 

eoLi 

0058 

0003 

R3 

80U 

0059 

0004 

R4 

POU 

0060 

0005 

R5 

POU 

0061 

0006 

R6 

PQU 

0062 

0007 

R7 

EQU 

0063 

0008 

RP 

EOU 

0064 

0009 

R9 

EQLI 

0065 

000A 

R10 

EOU 

0066 

000B 

Rll 

EQU 

0067 

000C 

R12 

EOU 

0068 

0000 

R13 

EOU 

006P 

000C 

R14 

EOU 

0070 

0005 

R15 

EOU 

0071 


* 


0072 

000E 

SIEPIG 

EOU 


945379-99WI#* PASC »003 

2 

3 

4 

5 

6 
7 

a 

9 

IM 

11 

12 

13 

14 

15 

14 


** Sie DRIVER •* 


945379*99P'l** 


PAGE P004 


ii74 



# 



ii75 


0000» 

811 

lOU 

S 

i07fi 






0077 






0070 



« 



0079 






0040 



♦ 



0001 






0008 






0003 



♦ 



0004 



t 



0003 



♦ 



0000 

0000 

08A0 


STWP 

R0 

0007 

0002 

C800 


MOV 

R0,#SIEWP 


0004 

0000 




0000 

0006 

02C0 


STST 

R0 

0009 

0008 

C800 


MOV 

R0,8SIIST 


000A 

0000 




0090 



t 



0091 

000C 

02E0 


IWPI 

FPWP 


000E 

0000 




0098 






0093 

0010 

0801 


LI 

R1 ,»9S00 


0012 

9900 




0094 



# 



0095 

0014 

C36i 


MOV 

•USRWP,R13 


0016 

0000 




0096 

0018 

C3A0 


MOV 

♦USRPC, R14 


001A 

0000 




0097 

00 1C 

C3E0 


MOV 

♦U5R8T,R16 


00 IF 

0C^00 




0098 






0099 

0020 

0200 


LI 

R0,S1EINT 


0022 

0030' 




0100 



t 



0101 

0024 

0720 


SETO 

♦SIINPG 


0026 

0000 




0108 






0103 

0028 

020C 


LI 

R12,CRU0FF 


002A 

0000 




0104 



♦ 



0105 

002C 

1D0E 


SBO 

SIEFLG 

0108 

002E 

0380 


RTWp 


0107 


0030* 

SI6INT 

EQU 

S 

0108 



* 



0109 

0030 

C80O 


MOV 

R13,8U8»WP 


0032 

0016* 




0110 

0034 

C80C 


MOV 

R 14, ♦USRPC 


0036 

001A* 




0111 

0038 

C80F 


MOV 

R15,PUSR8T 


003A 

001E* 




0118 

003C 

06A0 


ML 

♦PC OUT 


003F 

0000 





* 


1*PR0CEDURS Sill 

8#* SIE CONTROLS THE LEVEL 2ER C 
Sm AND PROGRAMMED SIE FACJLT 

8- CALLED PROM THE MONITOR, 

Sm EXECUTE ONE instruction 0 

Sm program and return, when 

Sm halt is pushed, the monit 

Sm RE-INITIAUZID, 

2»*l 

8*CALL SAVE CURRENT ENVIRONMEN 


8*CALL SET FRONT PANEL W0RK8PA 


8*SIE flag ■ »990a» 
flag indicated MONITOR SIE 

8*CALL SET USER ENVIRONMENT! 


c 


9*SIE RETURN ADDRESS ■ SIEINTI 
FRONT panel return TO MONITOR 

8. SIE IN PROG • "I 


?*CRU RASE « FRONT PANEL CRUI 


8»CALL SIE EXEC! 

EXEC 2 INST AND INTERRUPT 
INSTIM ■ OURS R8 «USER 

2-CALL SAVE USER ENVIRONMENT 


OUTPUT USRPC TO PANEL 
2-IF .NOT, SIE IN PROG THEN IN 

ty 


0113 



** SIE DRIVE*} ** 


945379 «§ 99 ! 1 «* 


PASE P005 


0114 

004P 

C0A0 


MOV 

•8IINPG,R2 


0P42 

0026» 




0U5 

0044 

1602 


JNE 

8IE010 

0116 

0046 

0460 


B 

• INIT 


0046 

0000 




0117 


004A * 


EOU 

i 

0UR 

0119 

004A 

04E0 


CLR 

PSIINPG 


004C 

0042» 




0120 

0121 

004E 

C360 

* 

MOV 

PSIEWP,R13 


0050 

0004 * 




0122 

0052 

C3E0 


MOV 

#SIE8T,R1» 


0054 

000A* 




0123 

0056 

020E 


LI 

R14,8IE020 


0058 

005C’ 




0124 

005A 

0380 


RTWP 


0T25 


006C» 

816*^20 

EOU 

S 

0126 

0127 

005C 

04Se 

* 

RT 


0126 




END 



P*OP»«J E»}S 


7m$U IN Pl?06 ■ 01 

2»CAUL RETURN MONITOR ENVIRONM 


l»ENO 8IE 


960 • 

990 CONCORDANCE 


S 


0075 

0107 

CRUOFF 


§046 

§103 

FPwP 


0042 

0091 

INIT 


0048 

§1 1« 

PCOUT 


0047 

§112 

R§ 

0096 

0096 

0087 

R1 

0086 

0093 


Rli 

0069 



Rll 

0066 



R12 

§067 

0103 


R13 

0068 

0099 

0109 

R14 

0069 

0096 

§110 

Rl6 

0070 

0097 

§111 

R2 

0087 

0114 


R3 

0098 



R4 

0099 



RS 

0060 



R6 

0061 



R7 

0062 



R6 

0063 



R9 

0064 



3IE 

§079 

0040 


SIi§10 

0117 

0115 


SIi020 

0125 

0123 


81 IF LG 

0072 

0105 


SIIINT 

0107 

0041 

§099 

SliST 


0080 

§089 

Slfwp 


0049 

0087 

SUNPG 


0091 

§1§1 

U8RPC 


004 4 

§096 
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PROCEDURE SET SNAPSHOT (CPU I 

/* SET SWAPSHOT accepts AS INPUT A 

command parameter list, validates 
OR defaults the APPROPRIATE PARAMETERS 
AND BUILD'S A snapshot TABLE ENTRY, 

* / 

FLAGS « CPL.FLAGS 

CPL ■ CPL ♦ 2 /* 1ST PARM WORD */ 

PRM default ■ 0| 

PRM MAX « 31 
PRM MIN ■ 

CALL GET PARM(8SR,PRM DEFAULT, PRM MAX, 

PRM MIN,ERRnRl| 

IF .NOT, ERROR THEN OOf 

SNAP entry ■ LOCtSNAPSHOT TABLE!* 

S8« * SNAP ENTRY LENGTH! 

IF SNAP ENTRY, SNAP FLAGS .AND, 8SDEF ,EO, 8 
THEN OOf 
PRM MAX ■ 'F'l 

CALL GET PARM(LOW RfGiPRM DEFAULT, PRM MAX, 

PPM MIN, ERROR) I 
IF .NOT, ERROR THEN DOl 

SNAP ENTRY, LOW REG ■ LOW REQI 
PRM default • LOW REG! 

PRM MIN ■ LOW RIG! 

CALL GET PARMCHIGH R|G,PRM DEFAULT, PRM MAX, 
PRM MIN, ERROR)! 

IF .NOT, ERROR then DO! 

SNAP ENTRY, HIGH REG ■ HIGH REG! 

PRM, DEFAULT ■ 0| 

PRM, MAX ■ >FFFF 
PRM, MIN ■ 8! 

CALL GET PARM(MEM,PRm DEFAULT, PRM MAX, 
PRM MIN, ERROR)! 

IF ,NOT, ERROR THEN DO! 

SNAP ENTRY, MEM RNG • MEM! 

PRM, default 1 MEM! 

PRM, MIN f MEM, 

CALL GET PARM(MEM,PRM DEFAULT, PRM MAX 
PRM MIN, ERROR) I 
IF ,NOT, ERROR THEN DO! 

SNAP ENTRY, MEM RNG+2 ■ MEM! 

SNAP ENTRY, FLAGS ■ SNAP ENTRY, FLAG 
.OR. S8DEF 

END! 

END! 

END! 

RETURN 

END 

EN0!EL8E DO! 

CALL ERR0R(»DPi4»)! 

END! 

END 

end set SNAPSHOT! 
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0037 

* 

procedure get PARM(PARM,OEE,HAy ,MIN,ERR) I 

0058 


/* GET PARM PINOS THE NEXT PARAMETER 

0059 

* 

IN THE CPI IP PRESENT, AND VALIDATES 


# 

IT! ELSE the default IS SUPPLIED, 

0061 

♦ 

IF AN invalid PARM IS SPECIFIED, 

006? 

# 

AN ERROR MESSAGE IS PRINTED. 

0063 

* 

*/ 

0064 

♦ 

PARM • DEFi 

0065 


IF FLAGS .AND, NEXT PARM THEN 001 

0065 

# 

farm ■ CPL.PARMf 

0067 


CPL ■ CPL ♦ 21 

0068 

# 

ENOf 

0069 

♦ 

ERR ■ 01 

0070 

# 

IF PARM ,LT. MIN THEN ERR « 1OP013* 

0071 

♦ 

IF PARM ,GT, MAX THEN ERR ■ lOPaS'l 

007? 

♦ 

IF ERR ,NE, 0 THEN DOI 

0073 

♦ 

CALL ERROR(ERR)! 

0074 

♦ 

RETURN(ERR) 

0075 

♦ 

ENOi 

0m76 

# 

return 

0077 

♦ 

end get PARM I 

0078 


IDT »8SNAPI 

0079 

♦ 

TITLE* SSNAP 

0060 

« 

SET SNAPSHOT 

0061 

# 

REVISION* 

006? 

♦ 

ORIGINAL 

0063 

♦ 

COMPUTER* 990, ASM 

0084 

# 

A88TRACT* SET SNAPSHOT ACCEPTS AS INPUT, A USER L 

0085 

# 

SNAPSHOT definition AND CONSTRUCTS THE 

0085 

« 

APPROPRIATE snapshot ENTRY, 

0087 

♦ 

CALLING SEQUENCE* 

0068 

# 

8L iSSS 

0089 

♦ 

RI0 • PTR TO COMMAND PARAMETER LIST 

0090 



0091 

* 

REF»S AND DIP'S 

009? 

* 


0093 


DEF SS8 

0094 


REF SNPTAB 

0095 


REP SNPENT 

0095 


REP NUMSNP 

0097 


REF ERROR 

0098 


REF GET8UF 

0099 


REF RETBUF 

0100 


«EF LwP 

0101 


REF RWP 

010? 


REF ACL 

0103 


REF RR 

0104 

« 


0105 

♦WORKSPACE REGISTER DEFINITIONS 

0105 

♦ 


0107 

0000 R0 

EQU 0 

0108 

0001 Rl 

EOU 1 

0109 

0002 R2 

EQU 2 

0110 

0003 R3 

EQU 3 

0111 

0004 R4 

EQU 4 


** SET snapshot processor *♦ 


945S8P 9901** 


PA6E 0004 


%Xit 


0005 

R5 

Eoy 

5 



1 ; 

ilia 


0005 

R6 

EQU 

6 



\j^ 

iU4 


0007 

R7 

EOU 

7 




» U ft 


0008 

Rft 

EQU 

a 




iU6 


0009 

R9 

EQU 

9 




iU7 


000A 

R10 

EQU 

10 




in« 


000 S 

Rll 

EQU 

11 




iU9 


000C 

R12 

EQU 

12 




ii00 


000D 

R13 

EOU 

13 




ii2i 


000C 

R14 

EQU 

14 




0120 


0007 

R15 

EQU 

15 




iU3 



♦ 






0124 


0003 

HX8NP 

EQU 

3 


MAX snapshot M 


012B 


0100 

LBYTE 

EQU 

256 




012ft 


0080 

88DEF 

EQU 

>80 


SNAPSHOT OEFINEO FLAG 


0127 


0002 

SSIORG 

EOU 

2 




012ft 


0003 

SSHIRG 

EQU 

3 




0129 


0004 

ssmi 

EQU 

4 




0130 


1103 

OP03 

EQU 

>1103 


PARM > MAX 


0131 


1104 

DP»4 

EQU 

>1104 


snapshot ALREAOV DEFINED 


0132 


1113 

DP13 

EQU 

>1113 


PARM< MIN 


0133 



t 






0134 



ft 

REGISTER A8S16NMENTS 



0135 



♦ 






0136 



# 

R9,R10 SUB CALL 

PARMS 



0137 



it 

Rft 

CRL ELASS 




0138 



# 

R7 

CPL CURRENT POINTER 


0139 




Rft 

SNAPSHOT 

ENTRV 

POINTER 


014» 



♦ 

R5 

CURRENT Parameter 


0141 



t 

R4 

parameter 

OEEAULT VALUE * 


0142 




R3 

parameter 

MAX 

VALUE ** UNCHANGED BY 


0143 



* 

»2 

parameter 

MIN 

VALUE * SUBROUTINE 


0144 



t 




IipPROCEDURE set snapshot (CPL) I 

0145 


0000» 

sss 

EQU 

$ 




0146 



♦ *AILPC 

iCOPT^LINK 




0147 

0000 

0420 


8L0P 

RACL 





0002 

0000 







0148 







2>/* SET snapshot ACCEPTS AS 

I 

0149 



# 




2* command parameter list, 

V 

0199 



♦ 




2m OR DEFAULTS THE APPROPRIA 

0151 







2* AND BUILD'S A SNAPSHOT 

TA 

0182 







2»* / 


0133 



♦ 




2i*FLAG8 • CPLiFLAGS 


0134 



t 




2*CPL • CPL +2 /* 1ST 

P 

0133 

0004 

C23A 


MOV 

*R10*iR8 




013ft 

0006 

0A88 


SLA 

Rft, 8 




0157 

0006 

CICA 


MOV 

R10.R7 




0198 



« 




2»PRM DEFAULT ■ 0| 


0159 

000A 

04C4 


CLR 

R4 




il60 



t 




2>PRM MAX * 31 


0161 

000C 

0203 


II 

R3,NUMSNP 





000E 

0000 







0162 

0010 

0603 


DEC 

R3 




0163 







2»PRM MIN • 01 


0164 

0012 

04C2 


CLR 

H2 
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0165 






2«*CALL get PARM(S88»PRM OEFAUL 

0165 



♦ 



3«.PRM MIN, ERROR) 1 

0167 

0814 

06A0 


BL 

•GTPARM 



0016 

0086* 





016R 






2-IF .NOT. error then OOt 

0169 

0018 

1033 


JMP 

SSS030 


0170 



* 




0171 






3*SNAP ENTRY ■ IOCCSNAPSHOT TA 

0172 






4*S8A * SNAP ENTRY LENGTHI 

0175 

001A 

0200 


LI 

R0,SNPENT 



001C 

0000 





0174 

001E 

3805 


MPY 

R5,R0 


0175 

0020 

0221 


AI 

R1 ,.5NPTA8 



0022 

0000 





0176 

0024 

C181 


MOV 

Rl,«6 


0177 



* 



3-IF SNAP ENTRY, SNAP FLAGS .AN 

017« 






4»THEN OOi 

0179 

0026 

C016 


60V 

*R6»R0 


0180 

0028 

0240 


ANDI 

R0,S5DEF*L8VTE 



002A 

8000 





0181 

002C 

1625 


JNE 

SSS020 


0182 



# 



4*PRm max s »F*I 

0183 

002f 

0203 


LI 

R5,»F 



0030 

000F 





0184 



ik 



4*CALL GET PARH(LOW REG.PRM OE 

0185 



if 



5-PRM MIN, ERROR) f 

0186 



if 



4»IF .NOT. error then D0| 

0187 

0032 

06A0 


«L 

FGTPARM 



0034 

0086 * 





0188 

0036 

1024 


JMP 

SSS030 


0189 



if 



SfSNAP ENTRY. LOR REG ■ LOW REG 

019W 

0038 

0A85 


SLA 

R5,8 


0191 

003A 

0985 


M0V8 

R5,8SSL0Rr,(R6) 



003C 

0002 





0192 



t 



SioPRM default ■ LOW REGf 

0193 

003E 

0885 


SRA 

R5,8 


0194 

0040 

C105 


MOV 

RS,H4 


0195 



if 



5»PRM MIN a LOW REG| 

0196 

0042 

C085 


MOV 

R5,R2 


0197 



# 



S^CALL GET PARM(HIGH REG.PRM 0 

01.98 



if 



«»PRM MJN, ERROR)! 

0199 



it 



5-IF .NOT. ERROR THEN DOf 

0200 

0044 

06A0 


bl 

8GTPARM 



0046 

0006* 





0201 

0048 

lOlB 


JMP 

SSS030 


0202 



♦ 



8*SNAP ENTRY, HIGH REG ■ HIGH R 

0203 

004A 

0A05 


SLA 

R5,8 


0204 

004f 

0985 


MOVB 

R5,#8SH!RS(R65 



0048 

0003 





0205 






e»PRM , default ■ 0! 

0206 

00S0 

04C4 


CLP 

R4 


0207 



♦ 



6..PRM,MAY ■ »FFFF 

0208 

0052 

0203 


LI 

R3*»FFFF 



0064 

FFFF 






* 


0209 
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«21M 

0096 

04C8 


CUR 

R8 


1^' 

isi) 



# 



8»CALL GET PARM(M£M,PRM OEPAUL 


(3212 



if 



7<»PRM MIN, error)! 


0213 

0096 

06A0 


6L 

fGTPARM 




009A 

0086’ 






0214 



# 



6*IF .NOT, ERROR THEN DO! 


0215 

009r 

1011 


JMP 

SSS«30 



0216 



# 



7«-SNAP ENTRY.MEM RNG f MEM! 


0217 

005E 

C98S 


hOV 

R5,»SSMRl (R6) 




006P 

0004 






021B 



it 



7»PRM, default ■ MEM! 


0219 

0068 

C10S 


HOV 

H5.R4 



022M 



t 



7»PRM,MIN ■ MEM, 


0821 

0064 

C089 


HOV 

H5,«8 



0822 



♦ 



7-CALL GET PARM(MfM,PRM DEFAUL 


0823 



t 



8-PRM min, ERROR) ! 


0224 

0066 

i6A0 


PL 

PGTPARM 




0066 

00S6* 






0225 






7-IF .NOT, error then DO! 


0226 

00 6 A 

100A 


JMP 

SSS03P 



0227 



# 



i-SNAP ENTRY.MEM RNG+2 p MEM! 


0226 

006C 

C9i5 


MOV 

R5,#SSHR142CR65 




006E 

0006 






0229 



* 



S-SNAP ENTRY. FLAGS ■ SNAP ENTR 


023P 



♦ 



9-, OR, S8DFF 


0231 

0070 

08ii 


LI 

R0,SSDIP*L0VTE 




0078 

S000 





/T-^n 

0238 

0074 

6980 


SOC 

R0,*R« 



0233 



♦ 



7-END! 


0234 






9-ENO! 


0235 






9-END! 


0236 



♦ 



4-RETURN 


0237 


0076' 

SS8010 EOU 

$ 



0236 

0076 

1004 


JMP 

SSS030 



0239 



♦ 



4-ENO 


0240 



# 



3-END!ELSE DO! 


0241 


007S» 

8SS080 E0U 

S 



0242 



♦ 



4-CALL ERROR! »OP04») ! 


0243 

0076 

080A 


LI 

R10*DP04 




007A 

1104 






0244 

007C 

06A0 


BL 

iERROR 




007E 

0000 






0245 



* 



3-END! 


0246 


0080 » 

SSS030 eou 

S 



0247 



it 



8-END 


024S 



it 



iP-END set SNAPSHOT! 


0249 



Hf 

♦link 

TO P»EV WKSP, RET 

CURB HKSP 


025(1 

0060 

0480 


8LWP 

RRR 




0088 

0000 






0291 

0084 

049B 


RT 




0292 



it 



8-PROCEOURE SET PARM CPARM,D|F, 


0293 


0086' 

GTPARH EOU 

* 



0294 



Up 



3-/* GET PARM FINDS THE NEXT P 


0295 



# 



3- IN THE CPL IP PRESENT, ANj 


0296 



♦ 



3- IT! ELSE THE DEFAULT IS r 




** SET 

snapshot processor 

** 

945380 

0257 






02S« 



* 



0259 






0260 



t 



0261 

0B86 

C144 


MOV 

R4,»5 

0262 



♦ 



0263 

0088 

0A18 


SLA 

R8» 1 

0264 

0P6A 

1701 


JNC 

GTPM10 

026S 



* 



0266 



* 



0267 

008C 

C177 


MOV 

*R74,R5 

0268 



# 



0269 


006E* 

6TPCU6? 

EQU 

S 

0270 



♦ 



0271 

0P18F 

04CA 


CLR 

R10 

0272 



# 



0273 

0090 

8065 


G 

R5,R2 

0274 

0092 

1402 


JHE 

GTP020 

0275 

0094 

020A 


LI 

R10,OP13 


0096 

1113 




0276 






0277 


0098* 

GTP020 

lOU 

S 

0278 

0098 

80C5 


C 

R5,«3 

0279 

009A 
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JUE 

GTP030 

0260 

009C 

020A 


LI 
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009E 

1103 
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0282 
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MOV 
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0284 
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•ERROR 
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RT 
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END 
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3-TF FLAGS .AND, NEXT PARM THE 

BIT OF FLAGS) 

4*PARM « CPL.PARMI 
4»CPt • CPL ♦ Sf 

3-ENDl 

3»gRR m 0lf 

3-IF FARM ,LT. min then ERR 
3,.IF FARM ,gT, max THEN ERR 

3»-IF ERR ,NE, 0 then D0| 
ArCALL ERROReERR)! 

4»RITURN(ERR3 

3»END| 

3*RETURN 
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*♦ 8UPIPVIS0R CALL INTISPACE ** 945301»9i01** PA5E Piif 


0ii3 

♦ 

PPOCEDURE SVCf8C8)l 


i§04 

t 

/* SVC ALLOCATES A WORKSPACE TO REPLACE 

800S 

♦ 

THE PIKED WORKSPACE OP TH| XOP VECTOR 


8806 

t 

AMD SWITCHES TO IT, THE SUPERVISOR CALL 


00 07 

t 

IS validated CPOR ID) AND THE APPROPRIATE 


0006 

# 

SERVICE ROUTINE IS CALLED, WHEN CONTROL 


0009 

♦ 

RETURNS FROM THE SERVICE ROUTINE, THE 


0010 

# 

CANCEL FLAO IS CHICKED FOR THE PROCESS, 


00U 


IF A USER PROCESS HAS BEEN CANCELLED, 


0019 

# 

THE PROCESS IS TERMINATED, *t 


0013 

t 



0014 

« 

DECLARE 


001S 

# 

FLAR 8IT(6)| /* PROCESS FLAGS */ 


0016 

t 

DECLARE 


0017 

♦ 

(INTERRUPT MASK, CHANGE WORKSPACE, 


0018 

* 

WORKSPACE RETURN) INTRINSIC 


0019 


call TURN OFF SIE 


1020 

# 

CALL change WORKSPACE! 


0021 

t 

IF SCBCSCB CMO) *• MAK CW THEN DO! 


0022 

t 

SCB(SCB RESULT) ■ 0! 


0023 

♦ 

CALL •command LI8T(8CB(SC8 CMO))! 


0024 

* 

END! 


0026 

♦ 

ELSE SCBCSCB RESULT) ■ U 


0026 

t 

CALL SWITCH WORKSPACE 


0027 

t 

IF SIE MODE THEN DO! 


0028 

♦ 

CALL TURN ON SIE! 


0029 

♦ 

END! 

c 

0030 

* 

end SVC! 

0031 


IDT *8UPV8R» 


0038 

« 

TITLE! SUPVSR 


0033 

* 

SUPERVISOR 


0034 

* 

REVISION! 


0038 

♦ 

original 


0036 


COMPUTER! 990, ASH 


8037 


ABSTRACT! SVC ALLOCATES A WORKSPACE 0 REPLACE 


0036 

# 

THE FIKEO WORKSPACE OF THE KOP VECTOR 


0039 


AND SWITCHES TQ IT, THE SUPERVISOR 


0040 

♦ 

IS validated (FOR ID) AND THE APPROPRIATE 


0041 

* 

SERVICE ROUTINE CALLED. WHEN CONTROL 


0042 

♦ 

RETURNS FROM THE SERVICE ROUTINE, THE 


0043 

# 

CANCEL FLAG IS CHECKED FOR THE PROCESS. 


0044 


IF A USER PROCESS HAS BEEN CANCELED, 


0045 

# 

THE PROCESS IS TERMINATED, 


0046 

* 

CALLING SEQUENCE 1 


0047 

* 

BLWP FSVCALT 


0046 

* 

R10 • ADDRESS OF PRB BLOCK 


0049 

# 



0060 

♦ 

KOP 18, • 


0081 


CALL FROM USER AREA PROGRAM 


0062 

# 



0063 

♦ 

l-PROCEDURE SVCtSCD! 


0054 

t 

»•/* SVC ALLOCATES A WORKSPACE 

0056 

t 

2- THE FIKEO workspace 

0, TH, 

0060 

# 

9m and SWITCHES TO IT, 
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0057 

0050 

0059 

0060 
0061 
0069 

0063 

0064 
0085 
0066 
0067 
0060 

0069 

0070 

0071 
0079 

0073 

0074 

0075 

0076 

0077 
007A 

0079 

0080 
0081 
0002 
0083 

0004 

0005 

0006 

0007 

0008 
0009 
0090 
§091 

0092 

0093 
§094 

0095 

0096 

0097 
0090 

0099 

0100 
§101 
§102 
§103 
§104 
§105 
§106 
§107 
§108 
§109 
§110 
§111 


2* 18 validated (POP ID) AND 

a- SERVICE routine is called. 

2* RETURNS PROM THE SERVICE R 
9m CANCEL FLAG IS CHECKED FOR 
2* IF A USER PROCESS HAS BEEN 
2* THE process is TERMINITIO, 

2 » 

2»DECLARE 

3-FLAG BITfS)! /* PROCESS FL 
9-DECLARE 

3*(INTERRUPT MASK, CHANCE WORK 
3- WORKSPACE RETURN) INTRIN81 


WORKSPACE REGISTER DEFINITIONS 


8000 

R0 

EQU 

8 

0001 

R1 

FRU 

1 

8002 

R2 

FQU 

2 

0003 

R3 

EQU 

3 

0004 

94 

FOU 

4 

0005 

R5 

EQU 

s 

0006 

R6 

FQU 

6 

0007 

R7 

EQU 

7 

§008 

R8 

EQU 

8 

0009 

99 

FQU 

9 

000A 

910 

EQU 

10 

000B 

911 

fou 

11 

000C 

912 

EQU 

12 

0000 

913 

EQU 

13 

§0§C 

914 

FQU 

14 

000F 

915 

EQU 

15 


* 


* REF*S AND DEF’S 


DEF 

SVC 


DEE 

SVC8R 


DEF 

SVCSRA 


REF 

SVCwp 


»EF 

10 

USER’S I/O CALL 

REF 

TERM 

END OF program 

REF 

CNVRT 

BINARY-ASCII CONVERSION ROUTINES 

ref 

FPWP 


REF 

8IEINT 


REF 

USRPC 


REF 

PCOUT 


REF 

8VCW10 


REF 

CRUOFF 


REF 

SVCW7 


REF 

GET8UF 


REF 

RETBUF 


REF 

LWP 


REF 

RMP 


REF 

ACL 


REF 

RR 
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eua 


000C 

SIlfLfr 

fQU 

14 

0113 



t 



0114 



t 

SUPERVISOR CALL KOP IB VECTOR 

011S 



# 



0116 


007C 

SVC 

EOU 

>7C XOP 18 

0117 



* 



0il« 



t 

REGISTER assignments 

0119 



* 



0120 



# 

R13 

CALLER *8 N0RK8PACI 

0121 



# 

Rll 

linkage 

0122 



♦ 

R10 

SUPERVISOR CALL BLOCK 

0123 

0000 



PQRG 


0124 



♦ 



0125 




PX99^ 

1 SUPERVISOR CALLS 

0126 






0127 



♦ 

SUPERVISOR CALI PLOCK 

0126 



♦ 



0129 


0008 

SC0CHD 

CQU 

0 FlXlOtSJ • 8UPV CALL ID 

0130 


0001 

SC8ERR 

EQU 

1 FIXEDtSj • RETURN CODE 

0131 



* 



0132 




SVC 

: SERVICE routines 

0133 



# 



0134 


0008* 

SCBLST 

EQU 

s 

0135 

0000 

0000 


DATA 

10 I/O package 

0136 

0002 

0008 


DATA 

0 

0137 

0004 

0008 


DATA 

0 

0138 

0006 

0000 


DATA 

0 

0139 

0008 

0000 


DATA 

TERM END OF PROGRAM 

0140 

000A 

0008 


DATA 

0 

0141 

000C 

0008 


DATA 

0 

0142 

000E 

0000 


DATA 

0 

0143 

0010 

0000 


DATA 

a 

0144 

0012 

0000 


DATA 

0 

0146 

0014 

0000 


DATA 

CNVRT ASCII <•» binary CONVERSION 

0146 

0016 

0014* 


DATA 

CNVRT 

0147 

0018 

0016* 


DATA 

CNVRT 

§148 

001A 

0011* 


data 

CNVRT 

0149 

001C 

0008 


DATA 

0 

015» 


000F 

maxcmd 

I8U 

$«SCBL8T/i 
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0I5» 


001E' 

SVC8RA 

EQU 

$ 

BLWP ENTRY 


0163 

001E 

C2ED 


NOV 

PR10*2(R13) ,R11 




0020 

0014 






0154 


0022* 

SVCSR 

EQU 

$ 



016S 

0022 

04C7 


CLR 

R7 



015« 



* 



2*CALL TURN OFF 8IE 


0157 

0024 

0208 


L-I 

R8,T1 IF 

IN SIE MODE, USER PC WILL 



0026 

0028’ 






0158 

0028 

8808 

T1 

C 

R8,PU8RPC 

POINT TO CURRENT INSTRUCTION 



002A 

0000 






0159 

002C 

160D 


JNE 

T3 IF 

NOT 811 MODE 


0160 

002E 

0707 


SETO 

R7 

(SIE MODE FLAG) 


0161 

0030 

0209 


LI 

R9,T2 take control FROM 



0032 

0038’ 






0162 

0034 

C809 


MOV 

R9,fFPWP 

FRONT PANEL (FPWP ■ PANEL R0) 



0036 

0000 






0163 


0038' 

T2 

EQU 

$ 



0164 



* 



2-CALL CHANGE WORKSPACE! 


0165 

0038 

02E0 


LWPI 

SVCWP 

(CURRENT WKSP MAY BE FPWP) 



003A 

0000 






0166 

00 3C 

C80E 


MOV 

R14,PUSRPC 

SET USER PC TO INST AFTER XOP 


0036 

002A’ 






0167 

0040 

C24B 


MOV 

R11»R9 



0168 

0042 

06A0 


bl 

•PCOUT 

OUTPUT USRPC TO PANEL 



0044 

0000 






0169 

0046 

C2C9 


MOV 

R9,R11 



0170 


0048’ 

T3 

EQU 

S 



0171 

0048 

C248 


MOV 

R11,R9 

XOP EFFECTIVE ADDRESS 


0172 



* *alloc 

.COPY, LINK 



0173 

004A 

0420 


BLWP 

0ACL 




004C 

0000 






0174 



* 

MOV 

0Rll*2tRl3) ,R9 

XOP EFF AODR * DONE BY ACL 


0175 

0046 

C360 


MOV 

PRlS*2fR13),Rl3 

USER’S WORKSPACE 



0050 

001A 






0176 

0052 

C269 


MOV 

R9.R10 

XP EFF ADOR ■ SCB 


0177 



* 



2-IF SCB(SC6 CMO) *m MAX CMD 

T 

0178 

0054 

04C9 


CLR 

R9 



0179 

0056 

D25A 


M0V8 

4R10.R9 

(CM « 8CBCMD»0) 


0160 

0058 

06C9 


8WPB 

R9 



0181 

005A 

0289 


Cl 

R9,HAKCM0 




005C 

000F 






0182 

0056 

1408 


JHE 

8VCS10 

(IF INVALID COMMAND) 


0183 



* 



3-8CB(SCB RESULT) • 0| 


0184 

0060 

0A80 


M0V8 

R9,#SCBERR(R10) 

CLR ERR RETURN 



0062 

0001 






0185 



* 



3-CALL PCOMMANO LIST(SCB(SC8 

C 

0186 

0064 

0A19 


SLA 

R9. 1 

(WORD OFFSET TN BRANCH TABLE) 

0187 

0066 

C269 


MOV 

P8C0LST(R9) ,R9 




0068 

0000’ 






0188 

006A 

1302 


JEQ 

SVC810 



0189 

006C 

0699 


8L 

*R9 



0190 



♦ 



2-ENPl 


0191 

006E 

1004 


JMP 

svcsac 



0192 



♦ 



2-EL8E SCB(8CB RESULT) i If 
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il93 



* 



0194 


0070 » 

SVCSli 

EQLI 

$ 

0195 

0070 

0209 


U 

R9i>»i00 


0072 

0100 




0196 

0074 

0A66 


HQVB 

R9»4SC0ERR 


0076 

0001 




0197 


0076t 

$vcsai 

EOU 

S 

0196 






0199 

0078 

020D 


U1 

R13,8VCWP 


007A 

003A’ 




0200 

007C 

0420 


BUWP 

PRR 


007E 

0000 




0201 



♦ 



0202 

0060 

CIC7 


MOV 

R7,R7 

0203 

0062 

130C 


JIO 

SVC830 

0204 



t 



0205 

0084 

0208 


U 

R8,FPWP 


0086 

0036' 




0206 

0088 

0209 


II 

H9,SIFINT 


006A 

0000 




0207 

006C 

CE09 


MOV 

R9r*R84 

0208 

008E 

0209 


LI 

R9,>990« 


0090 

9900 




0209 

0092 

C609 


MOV 

R9«*R8 

0210 

0094 

020C 


LI 

RJ2,CRU0FF 


0096 

0000 




0211 

0098 

IO0E 


SBO 

SIEFLG 

0212 

009A 

1000 


MOP 


0213 






0214 


009C’ 

SVCS3tl 

IQIJ 

$ 

0215 

009C 

0380 


RTWP 


0216 



♦ 




iSl7 

EPS 


g»CALU SWITCH workspace 

fi»lF SIE MODE then DOI 
3»CALU turn on SIEI 


Spend? 
l-END SVC? 


END 



980 - ! 

980 roNCOwnAPCP 



9 


0133 

01 40 

0151 

ACL 


0109 

017? 


CWVBT 


0097 

0144 

0145 

CPUnpF 


0103 

0?0O 


0PMP 


0098 

0161 

0904 

0F1«UF 


0105 



10 


0095 

0134 


LWP 


0107 



MAXCMH 

0140 

0100 



PCOUT 


0101 

0167 


R0 

0071 




R1 

007? 




R10 

0081 

015? 

0175 

0178 

R1 1 

008? 

015? 

0165 

0168 

R12 

008? 

0?09 



Rl3 

0 PI 8 4 

015? 

0174 

0174 

R14 

0085 

0165 



RlS 

0086 




R? 

007? 




R3 

0074 




R4 

0075 




R5 

0 076 




R6 

0077 




R7 

0 0 78 

0154 

0150 

0901 

R5 

0070 

0155 

0157 

0904 

R9 

0080 

0150 

0161 

0165 



0180 

0183 

0185 



0?05 

0?07 

0908 

RfTPUF 


0105 



RR 


0110 

0190 


RWP 


0108 



scecMD 

0128 





0120 

0183 

0195 


SC8LST 

013? 

0149 

0185 


SliPLfi 

0111 

0?10 



8TEINT 


0099 

0?05 


SVC 

0 115 

0091 



8 VC SI-* 

0193 

0181 

0187 


8VCS2i'' 

0195 

0190 



8VCS3f’ 

0?13 

090? 



SVC9R 

0153 

009? 



8VCSRA 

0181 

0093 



SVC'nfi 


010? 



8VCin7 


0104 



9VCWR 


0094 

0164 

0198 

T1 

0 157 

0155 



TS 

016? 

0160 



T3 

0160 

0158 



TFR6 


0095 

0138 


U8PPC 


0100 

0157 

0165 

THIPE , 

ARE 0048 

SVW8CL8 
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mm 


TITUEI 

WK8PMG 

aem 

# 


WORKSPACE MANAGEHfNT ROUTINES 

8(0118 

♦ 

ReVISIONl 


8088 

« 


ORIGINAL 

8087 

♦ 

COMPUTERI 

990»ASM 

0088 

* 

AB8TPACTI 

ALLOCATES AND OEALLOW AC ATES NEW BUFFERS AND 

0009 

♦ 


WORKSPACE*. 

00i0 

* 



0011 

# 

CALLING SEQUENCE 1 

0012 

# 


BLWP ilNIMlM 

00 1» 

♦ 


LINK all CELLS TOCflTNER IN A FREE POOL 

0014 

♦ 



0015 

♦ 


BLWP PGETBUF 

0018 

♦ 


ALLOCATE A BUFFER 

0017 

♦ 


RETURN 

0018 

# 


R10 • A00RES8 OF ALLOCATED BUFFER 

0019 

« 



0020 

♦ 


BLWP • RETBUF 

0021 

# 


ENTRY 

0022 



R10 • POINTS TO BUFFER 

0023 




0024 

# 


BLWP PLWP 

0025 

* 


LINK WORKSPACE 

0028 

♦ 


ENTRY 

0027 

* 


R10 • ador of new workspace to switch to 

0028 



return 

0029 

* 


R13 • AODR OF OLD W8P 

0030 

♦ 


R12 • COPY OF OLD R12 

0031 

♦ 



0032 

« 


BLWP PRWP 

0033 

t 


ENTRY 

0034 



return workspace 

0035 

♦ 


R13 • AODR OF RETURN WORKSPACE 

0038 

♦ 



0037 

« 


BLWP »ACL 

0038 



ALLOCATE, COPY AND LINK 

0039 

♦ 


RETURN 

0040 

# 


R13 - AODR OF OLD WORKSPACE 

0041 

# 



0042 

t 


BLWP PRR 

0043 

t 


RETURN link WORKSPACE AND DEALLOCATE 

0044 

* 


ENTRY 

0045 

♦ 


R13 - AODR OF WORKSPACE TO RETURN TO 

0048 

« 


RETURN 

0047 

t 


R10 • AODR OF DEALLOCATED WORKSPACE 

0048 

# 
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PAGE 0003 


0050 


* 



0051 


* 

WORKSPACE DEFINITIONS 

0052 


* 



0053 

0000 

R0 

EOU 

0 

0054 

0001 

R1 

FQU 

1 

0055 

0002 

R2 

EOU 

2 

0055 

0003 

RS 

EQU 

3 

0057 

0004 

R4 

FQU 

4 

005B 

0005 

R5 

FQU 

5 

0050 

0005 

R5 

FQU 

6 

0060 

0007 

R7 

FQU 

7 

0061 

0006 

R« 

EQU 

8 

0062 

0000 

R9 

FQU 

9 

0063 

000A 

R10 

EOU 

10 

0064 

000B 

RU 

FQU 

11 

0065 

000C 

R12 

FQU 

12 

0086 

000H 

R13 

FQU 

13 

0067 

000E 

R14 

FQU 

14 

006« 

0007 

RIS 

EQU 

15 

0060 


* 



0070 


* 



0071 


* 

REF» 

S AND nEF»8 

0072 


* 



0073 



DEF 

6FT8UF 

0074 



OEF 

RFTRUF 

0075 



OEF 

LWP 

0075 



DEF 

RWP 

0077 



DEF 

ACL 

0075 



DEF 

RR 

0079 



REF 

MEMWP 

0060 



PEF 

FREMEM 

0081 



DEF 

INIMEM 

0082 


* 



0083 

000A 

NOCEUS 

FQU 

10 
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PAGE P0P4 


0PS5 

00S6 

0iS7 



♦ 

♦ 

# 

linkage vectors 

mm 

0000 

0000 


DATA 

0 

00S9 


0002! 

INIneh 

EQU 

S 

0090 

0002 

0000 


DATA 

MEMWP 

009! 

0092 

0004 

001E! 

♦ 

DATA 

MEMINI 

0093 


0006! 

GET0UF 

EQU 

S 

0094 

0006 

0002' 


DATA 

MEMWP 

0095 

0095 

0006 

003A! 

t 

DATA 

MEMALC 

0097 


000 A* 

RIT8UF 

EQU 

S 

0095 

000 A 

0006! 


DATA 

MEMWP 

0099 

0100 

000C 

0046' 

t 

data 

MEMRTN 

0101 


000E' 


EQU 

S 

0102 

0001 

000 A' 


DATA 

MEMWP 

0103 

0104 

0010 

005S' 

n 

DATA 

LWPA 

0105 


0012' 

RWP 

EQU 

$ 

0105 

0012 

000E' 


DATA 

MEMWP 

0107 

0108 

0014 

006F» 

* 

DATA 

RWPA 

0109 


0016' 

ACL 

EQU 

S 

0110 

0016 

0012' 


DATA 

MEMWP 

0111 

0016 

0074' 


DATA 

ACLA 

0112 


001A» 

nn 

EQU 

S 

0113 

001A 

0016' 


DATA 

MEMWP 

0114 

00 It; 

0050 ' 


data 

RRA 


INITIAUZI MEMORY 

allocate suffer 

RETURN BUFFER 

link workspace 

RETURN WORKSPACE 

allocate copy and link workspace 

RETURN link WORKSPACE AND OfALLOCA 



♦* WORKSPACE HANAGEHENT ** 




PACE P0PS 


0U6 

0117 

011P 

0UR 

0120 

0121 

0122 

0123 

0124 

0125 
0125 
0127 

012R 

0129 

0130 

0131 

0132 

0133 

0134 

0135 
0135 

0137 

013H 

0139 

0140 

0141 

0142 

0143 

0144 

0145 
0145 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 
0158 
0137 
0158 
0139 
0160 
0161 
0162 
0163 


HEMOPY REGISTER CONTROL CONVENTION 
R0 - POINTER TO TOP OF STACK 


MEMORY INITIALIZATION • LINK ALL CELL® 

together in free pool 



001C’ 

MEMTNI 

EOU 

$ 


0PIE 

0209 


LI 

R9,FREMEM 

SET HOR, TAIL POINTERS 

0020 

0000 





0022 

0207 


LI 

R7,N0CELS-l 

W OF AVAILABLE CELLS 

0224 

0009 






0026* 

Ml 

EOU 

S 


0026 

C209 


MOV 

R9,R8 


0028 

0229 


AI 

R9,32 

SET link to NEYT 

002A 

0020 





002C 

C609 


MOV 

R9,*R8 


002E 

0409 


CLR 

*R9 

clear tail cell 

0030 

0607 


DEC 

R7 


0032 

15F9 


JGT 

Ml 


0034 

0208 


LI 

R8,FREMEM 

SET HEADER POINTER 

0036 

0020* 





0038 

0380 


RTWP 





♦ 

★ 

ALLOCATE BUFFER 



003A* 

MEMALC 

EOU 

S 


003 A 

CB43 


MOV 

R8»F20(R13) 

ALLOCATE CELL 

003C 

0014 





003E 

1601 


jne 

M2 


0040 

10FF 


JMP 

$ 

IF OUT OF memory 


0042* 

M2 

EOU 

$ 


0042 

C21B 


MOV 

*R8tR8 

POP NEXT CELL 

0044 

0380 

JL 

RTWP 





V 

♦ 

▲ 

RETURN BUFFER 



0046* 

w 

MEMRTN 

EOU 

S 


0046 

ClEO 


MOV 

020(R13) ,R7 

$ TO CELL TO BE RETURNED 

0048 

00U 






004A * 

MEMRT2 

EOU 

S 


004A 

C5C9 


MOV 

R8,*R7 


004C 

C207 


MOV 

R7»«8 


004E 

0380 


RTWP 





♦ 

♦ 

RETURN LINK TO PREVIOUS WORKSPACE 




DEALLOCATE CURRENT WORKSPACE 


0050* 

RRA 

EOU 

S 


0050 

CICO 


MOV 

R13»R7 

CELL TO BE RETURNED 

0052 

C360 


MOV 

• Pl3*2tR13) , 

R13 


** HORKSPACf MANAC5EMCNT 
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PACE PPP6 


# # 



0054 

001A 




@194 

0056 

10P0 


JMP 

MEMRT2 

01S5 



* 



0168 



♦ 

LUviK 

AND SWITCH TO WORKSPACE IN CAitER*8 R10 

0167 






016« 


0058 ’ 

L.WPA 

iOU 

$ 

0169 

0058 

ciEn 


MOV 

#R10*2CR13) ,R7 NEW WORKSPACE 


00 5 A 

0014 




0170 


005C» 


EQIl 

S 

0171 

005C 

ci4n 


MOV 

R13»R5 SAVE RETURN WORKSPACE 

0172 

005E 

CiAQ 


MOV 

#R12*2CR13) ,R6 SAVE CRU BASE 


0060 

0019 




0173 

0062 

C347 


MOV 

R7.R13 SET NEW WORKSPACE 

0174 

0064 

CB46 


MOV 

R6,#R12*2fRl3J 


0066 

0018 




017S 

0068 

C845 


MOV 

R5,#RI3*2C8135 


006A 

001 A 




0176 

006C 

0380 


RTWP 


0177 






0178 



t 

SWITCH TO workspace GIVEN IN CAiLER»8 WORKSPACE 

0179 



# 



0160 


006e» 

RNPA 

EOU 

$ 

0161 

0061 

C36D 


MOV 

»R13*2(R13) ,R13 


0070 

001A 




0162 

0072 

0380 


RTWp 


0183 



* 



0184 




ALLOCATE NEW WORKSPACE 

0185 



* 

COPY 

R0*R10 

0186 



* 

LINK 

WORKSPACE 

0187 



* 



0188 


0074* 

ACIA 

EQU 

$ 

0189 

0074 

C288 


MOV 

R8,R10 

0190 

0076 

C1C8 


MOV 

R8,R7 

0191 

0078 

1601 


JNF 

M5 

0192 

007A 

10FF 


JMP 

S 

0193 


007C* 

MS 

EOU 

$ 

0194 

007C: 

C219 


MOV 

♦R8.R8 

0195 

007E 

0205 


LI 

R 1 1 » 1 1 


0080 

0005 




0196 

0082 

C30O 


MOV 

R13»R!2 

0197 


0084' 

M6 

E QU 

S 

0198 

0004 

CE8C 


MOV 

*Rl2+i*R10+ 

0199 

0086 

0605 


DEC 

Rll 

0200 

0088 

15FD 


JGT 

M6 

0201 

008A 

10E9 


JMP 

LWPB 

0202 




END 
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0089 

0093 

0097 

0101 

0105 

0109 

0112 

0126 

0129 



0141 

0144 

0145 

0151 

0153 

0161 

0168 

0170 

0180 



0188 

0192 

0193 

0197 






ACL 

0109 

0077 









ACLA 

0168 

0111 









FREMEM 


0080 

0127 

0130 







qctbuf 

0093 

0073 









JNIMEH 

0069 

0081 









UWP 

0101 

0075 









LWPA 

0168 

0103 









LWPB 

0170 

0201 









HI 

0129 

0135 









M2 

0145 

0143 









H5 

0193 

0191 









H8 

0197 

0200 









MEHALC 

0141 

0095 









HEHINI 

0128 

0091 









MEHRTZ 

0153 

0164 









MEMRTN 

0151 

0099 









MEMWp 


0079 

0090 

0094 

0098 

0102 

0106 

0110 

0113 


NOCELS 

0083 

0128 







R0 

0053 










R1 

0054 










R10 

0063 

0169 

0189 

0198 







Rll 

0064 

0195 

0199 








R18 

0065 

017? 

0174 

0196 

0198 






RlS 

0068 

0142 

0152 

0162 

0163 

0163 

0163 

0169 

0171 

0172 



0173 

0174 

0175 

0175 

0181 

0181 

0181 

0196 


R14 

0067 









R18 

0068 










R? 

0055 










R3 

0058 










R4 

0057 










R5 

0058 

0171 

0175 








R« 

0059 

0172 

0174 








R7 

0060 

0128 

0134 

0152 

0154 

0155 

0162 

0169 

0173 

0190 

R8 

0061 

0130 

0132 

0136 

0142 

0146 

0146 

0154 

0155 

0189 



0190 

0194 

0194 





R9 

006? 

0127 

0130 

0131 

0132 

0133 






RETBUF 0«97 0{?74 
RR 011? 0078 
RRA 0161 0114 
RWP 0105 0078 
RWPA 0100 0107 

THiRE ARE 0040 SYMBOLS 



APPL.ICATION 


REVISIONS 


NEXT ASSY I USED ON I LTH I OgS CPU PTl O N I DATE I APPROVED 
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1003 





IDT 

’USRPGM’ 

1004 



n 

rmei 

usrpgm 

10lj}5 



if 



USER PROGRAM CONTROL 

1006 



« 

REVISION! 


0007 



♦ 



ORIGINAL 

1008 



t 

COMPUTER! 

990, ASM 

1019 



if 

ABSTRACT! 

USER program CNTROL IS A SET OF 

1010 






ROUTINES TO 8E USED TO START AND 

1011 



if 



TERMINATE USER PROGRAMS. 

0012 



« 



DSTART a user PROGRAM AT LOCATION 

1013 



if 



INDICATED BY THE START VECTOR, 

1014 



♦ 



2>terminate a user program In response 

1015 



♦ 



TO AN END OF PROGRAM CALL, 

0016 




CALLING SEQUENCE! 

0017 



★ 



EXECUTE USER PROGRAM 

0018 



t 



BL REXCT 

0019 



# 



R10 CONTAINS pointer TO COMMAND PARAMETER LIST 

1020 



♦ 




1021 



it 



TERMINATE USER PROGRAM 

1022 



it 



8L PTERM 

1023 



it 



R10 CONTAINS POINTER TO SUPERVISOR CALL BLOCK, 

0024 



it 




0025 



if 


REF’S AND DEF’S 

0026 



if 




0027 





«EF 

USHWP USER STATUS VECTOR 

0028 





REF 

USRPC 

0029 





REF 

USRST 

0030 





R£F 

USRWSP 

0031 





REF 

INIT 

0032 





DEF 

EXCT 

1033 





DEF 

TERM 

0034 



it 




0035 



♦ 


EXECUTE USER PROGRAM 

0036 







0037 


0000* 

excT 

EQU 

$ 

0038 

0000 

02E0 



LWPI 

USRWSP SET WORKSPACE FOR RETURN 


0002 

0000 





0039 

0004 

0380 



RTWP 

VECTOR TO POINT TO USER, 

0040 



* 




0041 



# 


terminate user program 

0042 



* 




0043 


00W6‘ 

TERM 

EQU 

S 

0044 

0006 

0460 



0 

PINIT RE-INIT monitor 


0008 

0000 





0045 





END 
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s 

0037 

0043 

EXCT 0037 

0032 


INIT 

0031 

0044 

TE8M 0043 

0033 


US8PC 

0028 


U8KST 

0029 


USKMp 

0027 


USRwSP 

0030 

0038 

THfcKe APE 0008 

SYMBOLS 


< 


C 
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PA6E t*S!R8 


iiiaiS 

tiiii!ta4 

sees 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 
0016 

0019 

0020 
0021 
0022 

0023 

0024 
0029 
0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 
0036 

0039 

0040 

0041 

0042 

0043 

0044 
0049 

0046 

0047 
0046 
0049 

0090 

0091 

0092 

0093 

0094 

0095 

0096 


t 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


PROCEDURE SR (CPL POINTER) | 

DECLARE number TABLE ENTRIES LITERALLY U»| 
DECLARE INSTRUCTION STEP KEY LITERALLY »8tf 
DECLARE fl TRACE REGION TABLES, 

3 TRC REGION TBL (4), 

9 TR FLAGS, 

7 TF DEFINED BIT (1), 

7 TF VARIABLE (3) BIT (1), 

7 TF INST STEP BIT (1), 

7 TF FILLER BIT (3), 

5 TR filler bit (8), 

9 TR LOW BOUND POINTER, 

5 TR HIGH BOUND POINTER, 

9 TR TYPE INDEX FIXED Cl6), 

9 TR variable (3) POINTER, 

9 TR RESERVED BIT (16))? 

DECLARE (REGION INDEX, TYPE INDEX, I) 

FIXED (16)1 

DECLARE (LOW BQUwO, HIGH BOUND) POINTER? 

DECLARE (1 COMMAND PARAMETER LIST, 

3 CPL CONTROL (CPL POINTER), 

5 NUMBER PARM8 FIXED (8), 

9 PARM present (8) BIT (|), 

9 FIRST PARM FIXED (8))? 

DECLARE NUMERIC PARAMETER FIXED (16) 

CONTROL (PARM POINTER)? 

DECLARE (1 character PARAMETER, 

3 char PARM CONTROL (PARM POINTER), 

9 STRING LENGTH FIXED (8) , 

9 PARM STRING (1) CHARACTER (1))? 
DECLARE (CPL POINTER, PARM POINTER) POINTER? 

PARM POINTER ■ ADDR (FIRST PARM) 

IF PARM PRESENT (0) ■ 0 

then CALL ERROR CMSRSi)? /* NO RETURN 4 / 
REGION index m NUMERIC PARAMETER? 

PARM POINTER ■ PARM POINTER ♦ 2? 

IF REGION index NUM TRACE REGIONS 

THEN CALL ERROR CDP10»)? /* NQ RETURN 4/ 

IF PARM PRESENT (1) ■ 0 

THEN CALL ERROR (’MSSat)? /4 NO RETURN 4/ 

LOW BOUND • NUMERIC PARAMETER? 

PARM POINTER 4 PARM POINTER ♦ 2? 

IF PARM PRESENT (2) ■ 0 

THEN CALL ERROR (»M809')? NO RETURN 4/ 

HIGH bound • NUMERIC PARAMETER? 

PARM POINTER • PARM POINTER ♦ 2? 

IF HIGH BOUND * LOW BOUND 

THEN CALL ERROR CDP013)? /* NO RETURN 4 / 

IF PARM present (3) P 0 

THEN CALL ERROR ('MSeS')? /* NO RETURN 4 / 

TYPE index ■ NUMERIC PARAMETER? 

PARM POINTER m PARM POINTER ♦ 2f 
IF TYPE INDEX »• NUMBER TABLE ENTRIES 

THEN CALL ERROR (»DP26»)? /* NO RETURN 4/ 
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*• SET TRACE REGION 9453S5*P901** 


00S7 


* 

TRC region T8L (REGION INDfX1.TR LOW BOUND 

005S 


if 

i LOW BOUND! 

0099 


♦ 

TRC REGION TBL (REGION INDEX), TR HIGH BOUND 

0060 


* 

■ HIGH BOUND! 

006t 


a 

TRC REGION TBL (REGION INDEX), TR TYPE INDEX 

0069 


# 

i TYPE INDEX! 

0063 


* 

TF DEFINED ■ 1! 

0064 


♦ 

IF PARM PRESENT (4) ■ 1 THEN DO| 

0069 


if 

IF PARM STRING (0) ■ INSTRUCTION STEP KEY 

0066 


it 

THEN TF INST STEP ■ 1! 

0067 


* 

PARM POINTER « 

0069 


♦ 

((PARM POINTER ♦ STRING LENGTH ♦ 2)/2)*2l 

0069 


# 

END! 

0070 


it 

DO I FROM P TO 2 BY l! 

0071 


if 

IF PARM PRESENT (I+5) « 1 THEN DO! 

0072 



TR VARIABLE (I) ■ NUMERIC PARAMETER! 

0073 


* 

PARM pointer ■ PARM pointer ♦ 1! 

0074 


♦ 

TF variable (1) • 1! 

0075 


it 

END! 

0076 


it 

RETURN! 

0077 



END! 

0079 

0079 


IDT *SETRPGN» 
* TITUEI 3ETREGN 

0060 


n 

PROCESS THE SET REGION COMMAND 

0061 


* REVISIONI 

0082 


it 

original 

0063 


* COMPUTERI 990 

0084 


* ABSTRACT! 

0089 


♦ 

THIS SUBROUTINE INTERPRETS THE PARAMETERS OF 

0086 


if 

THE SR (SET REGION) COMMAND TD MAKE AN ENTRY 

0087 


it 

IN THE TRACE REGION TABLES, 

0088 


* CALLING SEOilENCPl 

0089 


it 

standard call FROM COMMAND STRING PROCESSOR, 

0090 


it 

<R1P> B COMMAND parameter LIST POINTER 

0091 


it 

8L F8R 

0092 


it 

(•PROCEDURE SR (CPL POINTER)! 

0093 


it 

2-DECLARE NUMBER TABLE ENTRIES 

0094 

0099 


it 

REF NUMTTF NUMBER OF TRACE TYPE ENTRIES 

^•declare INSTRUCTION STEP KEY 

0096 


LBYTE 

EOU >100 

0097 

930P) 

ISRKEY 

FOU 'S'*LBYTE 

0096 

0099 


« 

REF ERROR 

2*DECLARE (1 TRACE REGION TABL 

0100 


t 

3* 3 IRC REGION TBL (4 

0101 


t 

Am 5 TR flags* 

0102 


it 

9* 7 TF defined BIT (1 

0103 


it 

5» 7 TF variable (3) B 

0104 


it 

5» 7 TF INST STEP BIT 

0105 


if 

5- 7 TF FILLER BIT (3) 

0106 


it 

4- 9 TR filler BIT (8) 

0107 


it 

4» 9 TR LOW BOUND POIN 

0108 


it 

4* 9 TR HIGH BOUND POI 

0109 


it 

4. 5 TR TYRE INDEX FIX 

0110 


it 

4- 9 TR variable (3) P 

0111 


it 

4m 5 TR RESERVED BIT ( 
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PASS P0P4 


0iia 



REE 

TRTBL 


0U3 



REE 

TREl.GS,TRLaw,TRHIGH,TRTYPi 

,TRV1 

0U4 



REE 

TRUWTH 


BUS 



REE 

isreug,numtr 


BUS 


★ 


2*DECUARE 

(region INOEY, TYPE 

0117 


♦ 


4»Eiy|0 (16)1 

BUS 


♦ 


2*DECLARE 

(LOW BOUND, HIGH BOU 

0U9 


* 


2-OEClARE 

(1 COMMAND parameter 

0120 


it 


3» 

3 CPL CONTROL (CPL 

0121 


it 


4m 

9 number parms fixe 

0122 


it 


4m 

9 farm PRESENT (8) 

0123 


it 


4m 

5 FIRST PARM FIXED 

0124 


if 


2-DECLARE 

NUMERIC PARAMETER FI 

0125 


it 


im CONTROL (PARE POINTER)! 

0126 


♦ 


gpDICLARg 

(1 CHARACTER PARAMET 

0127 


« 


S«» 

3 CHAR PARM CONTROL 

0128 


* 


Am 

S STRING LENGTH FIX 

0129 


t 


Am 

9 PARM STRING (1) C 

0130 


♦ 


2.0ECLARE 

(CPL POINTER, PARM P 

0131 


t 




0132 


•WORKSPACE 

REGISTER DEFINITIONS 


0133 


* 




0134 

0000 

90 

EOU 

0 


0139 

0001 

R1 

EOU 

1 


0136 

0002 

R2 

EQU 

2 


0137 

0003 

R3 

IQU 

3 


0138 

0004 

R4 

EQU 

4 


0139 

0009 

R9 

EQU 

S 


0140 

0006 

R6 

EQU 

6 


0141 

0007 

R7 

EQU 

7 


0142 

0008 

R8 

EQU 

8 


0143 

0009 

R9 

EQU 

9 


0144 

000A 

R10 

EQU 

10 


0149 

000B 

R1 1 

EQU 

U 


0146 

000C 

R12 

EOU 

12 


0147 

00 0n 

R13 

EQU 

13 


0148 

000E 

RM 

EQU 

14 


0149 

000F 

R15 

EOU 

IS 


0198 


* 
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0152 




DEF 

SR 


0133 


0000' 

SR 

FQU 

S 


0154 

0000 

C08B 


MOV 

RlliR2 

SAVE RETURN, CPL POINTER 

0155 






2*PARM pointer • ADOR (FIRST P 

0156 

0002 

C13A 


MOV 

*R104>,R4 


0157 



* 



2»IF PARM PRESENT (0) ■ 0 

0138 






3»THEN call error ('M805')I /• 

0139 

0004 

0A94 


SLA 

R4,9 


0160 

0006 

1741 


JNC 

SRERl 

IF FIRST parameter MISSING 

0161 






2-REGION INDEX i NUMERIC PARAM 

0162 



♦ 



2-PARM pointer • PARM POINTER 

0163 

0008 

C17A 


MOV 

*R104',R5 


0164 



♦ 



2-IF REGION INDEX *m NUM TRACE 

0165 



♦ 



3-THEN CALL ERROR ('OP10'1» /* 

0166 

000A 

0285 


Cl 

R5,NUMTR 



000C 

0000 





0167 

000E 

1440 


JHF 

SRER2 


016R 

0010 

3960 


MPY 

•TRLNTH.RB 



0012 

0000 





0169 

0014 

C146 


MOV 

R6,R5 


0170 






?,IF PARM present (1) ■ 0 

0171 



# 



3-THEN CALL ERROR ('MSRB'Jf /* 

0172 

0016 

0A14 


SLA 

R4, 1 


0173 

0018 

1738 


JNC 

SRERl 


0174 



# 



2-LOW BOUND m NUMERIC PARAMETE 

0175 



n 



2-PARM pointer ■ PARM POINTER 

0176 

001A 

CIBA 


MOV 

*R10A.R6 


0177 



♦ 



J-IF PARM PRESENT (2) ■ 0 

0178 






3-THEN CALL ERROR CMS05')| /* 

0179 

001C 

0A14 


SLA 

R4. 1 


010i4 

00 IF 

1735 


JNC 

SRERl 


0181 






2-HIGH bound i NUMERIC PARAMET 

0182 



♦ 



2-PARM pointer • PARM POINTER 

0183 

0020 

Cl F A 


MOV 

*Rl«t,R7 


0184 



♦ 



2-IF HIGH BOUND * LOW BOUND 

0185 



♦ 



3-THEN call ERROR CDP013)I /* 

0186 

0022 

8187 


C 

R7,R6 


0187 

0024 

1 A3i 


JL 

8RER3 


0188 






2-IF PARM present (3) « 0 

0189 



♦ 



3-THFN CALL ERROR ('MSBO')! /* 

0190 

0026 

0A14 


SLA 

R4, 1 


0191 

0028 

1730 


JNC 

SRERl 


0192 



# 



2-TVPE index ■ NUMERIC PARAMET 

0193 



* 



2-PARM pointer ■ PARM POINTER 

0194 

002A 

C23A 


MOV 

*R10+,R8 


0195 






2-IF TYPE INDEX >• NUMBER TABL 

0196 



♦ 



3-THEN call error CDP26')» /* 

0197 

002C 

0288 


Cl 

R8,numtTE 



002F 

0000 





0198 

0030 

1435 


JHE 

SRER4 


0199 

0032 

0225 


AI 

R5,TRTBL 



0034 

0000 





0200 



♦ 



2-TRC REGION TBL (REGION INDEX 

0201 



♦ 



3-» LOW BOUND! 
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0203 

0036 

C946 


NOV 

R6,8TRL0W(R5) 



0038 

0000 





0303 



t 



3*TRC region TBL (REGION INDEX 

0204 






3«n HIGH BOUNOI 

020S 

003A 

C947 


HQV 

R7,iTRHIGH(R5) 



003C 

0000 





0306 



* 



3.TRC region TBL (REGION INDEX 

0307 



t 



3*» TYPE INDEX! 

0308 

003E 

C948 


MOV 

R8,fTRTYPI(P5) 



0040 

0000 





0309 






3.TF DEFINED ill 

0310 

0043 

0306 


LI 

R6,*8000 



0044 

8000 





02U 



♦ 



2»IF FARM PRESENT (4) • 1 THEN 

0313 

0046 

0A14 


SLA 

R4, 1 


0313 

0048 

170D 


JNC 

8R020 


0314 






3»IF PARM STRING (0) ■ IN8TRUC 

0315 

004A 

OlFA 


H0V8 

*R104,R7 


0216 

004C 

0987 


8»L 

R7»8 

SAVE character COUNT 

0217 

004C 

04C8 


CLP 

R8 


0218 

0050 

D31A 


MOVB 

*R10,R8 

ISOLATE FIRST CHARACTER 

0319 

0053 

0388 


Cl 

R8,I8RKEV 



0054 

5300 





0329 

0056 

1602 


JNE 

SR010 

IF FLAG ,NE, 'S« 

0331 






4*THEN TF INST STEP i ll 

0223 

0059 

F1A0 


soce 

ilSRFLG,R6 



00SA 

0000 





0223 


005C» 

Stii0 

eau 

S 


0324 



♦ 



3»PARM POINTER • 

0325 



♦ 



5«((PARM POINTER ♦ STRING LENG 

0226 

005C 

A387 


A 

R7,R10 


0327 

005E 

058A 


INC 

R10 


0328 

0060 

081A 


SR A 

R10f 1 


0229 

0063 

0AIA 


SLA 

R101 1 


0330 


00641 


E0U 

$ 


0331 



t 



3»END| 

0333 



« 



3»D0 I FROM 0 TO 8 BY 1! 

0333 

0064 

0307 


LI 

R7t»8000 



0066 

8000 





0334 

0068 

0908 


LI 

R8,3 



006A 

0003 





0335 

006C 

C045 


MOV 

RS,R1 


0336 

006F 

0641 


DECT 

R1 


0237 


0070* 

$nm$ 

EQU 

S 


0338 

0070 

05C1 


INCT 

R1 


0339 

0073 

0608 


DEC 

R8 


0340 

0074 

1107 


4LT 

SR040 

IF END, OF, LOOP 

0341 



t 



3«IE FARM PRESENT (liS) i 1 TH 

0342 

0076 

0917 


SRL 

R7,l 


0343 

0078 

0A14 


SLA 

R4, 1 


0344 

007A 

17FA 


JNC 

SR030 

IF PARAMETER NOT PRESENT 

0345 



* 



4*TR variable (n ■ NUMERIC PA 

9346 



t 



4*PARM POINTER • FARM POINTER 

0847 

007C 

C87A 


MOV 

*R10+,8TRV1 (Rl) 



007E 

0000 








* 1 ^ 



v.y 
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0248 



* 



4«TF variable (I) ■ 11 

0249 

0060 

FI 87 


SOCB 

R7,R6 


0250 



* 



4»end; 

0251 

0062 

10F6 


JMP 

SR030 


0282 


0084» 

SP9A0 

f QU 

S 


0253 

0084 

C946 


MOV 

R6,4TRFLGS(R5) 

SET FLAGS WORD 


0086 

0000 





0254 



* 



2-PETUHNl 

0255 


0088* 

SR100 

EQU 

S 


0255 

0088 

0452 


B 

• R2 


0257 



* 




025» 



h 




0259 


008A' 

SRERl 

EQU 

$ 


026P 

008A 

020A 


UI 

R10»>0205 

»'MS05" RlOO PARM MISSING 


008C 

0205 





0261 

008E 

1009 


JMP 

SRERR 


0262 


0090' 

SRER2 

EQU 

$ 


0263 

0090 

020A 


LI 

R10»>1110 

«DP10” INV, TRACI REGION INDE 


0092 

1110 





0264 

0094 

1005 


JMP 

SRERR 


0265 


0096' 

SRER3 

EQU 

S 


0266 

0096 

020 A 


LI 

R10,>1113 

••DP13" HIGH * LOW 


0098 

1113 





0267 

009A 

1002 


JMP 

SRERR 


0286 


009C 

SRCR4 

EQU 

S 


0260 

009C 

020A 


UI 

R10,>1126 

"DP26" INV, TRACE TYPE INDEX 


009E 

1126 





0270 


00A0* 

SRERR 

EQU 

$ 


0271 

00A0 

06A0 


PL 

•ERROR 



00A2 

0000 





0272 

00A4 

10F1 


JMP 

SR100 


0273 



* 



2»ENDf 

0274 




END 
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9^5385 
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■>Wc 

PAGE 

0008 

1 


0153 

0223 

0230 

0237 

0252 

0255 

0259 

0262 

0265 



0268 

0270 








ERROR 


0098 

0271 








ISRFUG 


0115 

0222 








ISRKEY 

0097 

0219 









UBYTE 

0098 

0097 









numts 


0115 

0166 








NUMTTE 


0094 

0197 








R0 

0134 










Rl 

0138 

0235 

0236 

0238 

0247 






R10 

0144 

0158 

0163 

0176 

0183 

0194 

0215 

0218 

0228 

0227 



0228 

0229 

0247 

0260 

0263 

0266 

0269 



Rll 

0145 

0154 






' 



R)2 

0146 










R18 

0147 










R14 

0148 










R15 

0149 










R8 

0136 

0154 

0256 








R5 

0137 










R4 

0138 

0156 

0159 

0172 

0179 

0190 

0212 

0243 



R8 

0139 

0163 

0166 

0168 

0169 

0199 

0202 

0205 

0208 

0235 



0253 









R0 

0140 

0169 

0176 

0186 

0202 

0210 

0222 

0249 

0253 


R7 

0141 

0183 

0186 

0205 

0215 

0216 

0226 

0233 

0242 

0249 

R8 

0142 

0194 

0197 

0208 

0217 

0218 

0219 

0234 

0239 


R9 

0143 










SR 

0153 

0152 









3Ril0 

0223 

0220 









SReS0 

0230 

0213 









SR030 

0237 

0244 

0251 








$RS40 

0252 

0240 









SRt0i 

0255 

0272 









8RER1 

0259 

0160 

0173 

0180 

0191 






SRER8 

0262 

0167 









SRER3 

0266 

0107 









SRER4 

0268 

0198 









SRERR 

0270 

0261 

0264 

0267 







TRELQS 


0113 

0253 








trhiqh 


0113 

0205 








TRUNTH 


0114 

0168 








TRIOW 


0113 

0202 








TRT8L 


0112 

0199 








TRTYPE 


0113 

0208 








TRVl 


0113 

0247 









THiRE ARE 


i041 SVMBQLS 

























*♦ 8fT TRACE FORMAT •• 


948386-S90l«« 


RASE ieee 


0003 

0004 
0089 

0009 
0007 
0088 
0000 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0081 
0022 
0083 
0024 

0029 
0089 

0087 

0088 
0089 

0030 

0031 

0032 

0033 

0034 

0039 
0036 
fi37 
i03i 
$n9 

0040 
0841 
0042 
8843 
0844 
0849 
0046 
0847 
0046 
0049 

0098 

0091 

0092 

0093 

0094 

0099 
0099 


« 

♦ 

# 

t 

t 

t 

« 

t 

♦ 

t 

# 

« 

♦ 

♦ 

♦ 

4 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


PROCEDUf?! 8TRACS CCPL POINTER)! 

DECLARE TRACE TABLE NUH8ER FIXED C16)I 
DECLARE NUMBER TABLE ENTRIE6 LITERALLY Mff 
DECLARE NUM LITTERS INPUT FIXED (16) | 

DECLARE BIT MASK LITERALLY nf8800«f| 

DECLARE MASK BIT (16)1 
DECLARE FOUND BIT (1)1 
DECLARE (1 COMMAND PARAMETER LISTt 

3 CPL CONTROL (CPL POINTER) , 

5 NUMBER PARMS FIXED (9), 

9 PARN PRE8ENT (8) BIT (l)i 
5 FIRST FARM FIXED C8))l 
DECLARE NUMERIC PARAMETER FIXED (16) 

CONTROL (FARM POINTER)! 

DECLARE (CPL POINTER, FARM POINTER) POINTER! 
DECLARE NUM PARAMETER FIXED (8) 

CONTROL (PARM POINTER)! 

DECLARE (I, BIAS) FIXED (l«)! 

DECLARE CHAR PARAMETER CHARACTER (1) 

CONTROL (FARM POINTER)! 

DECLARE CHAR UNDER TEST CHARACTER (D! 

DECLARE KEY LETTER (13) CHARACTER (1) 

INITIAL (»P^ ’It, »M’, tWt, ff, ’Ct, ’X’, 
’S’, ’Df, »|t, ’8’, ’A’, ’R’)! 
DECLARE LITTER TYPE (13) FIXED (4) 

INITIAL (if 0, 8, 0, 0, 0, f , 1, 1, 

2f 2| 2i 2)1 

/* NQRMAU i 8, BIAS • li BIASED « 2 «/ 
DECLARE LITTER BIT BIAS tl3) FIXED (4) 

INITIAL (8, 1, 2. 3, 4, 9, 6, 7, 11, 

«. I, 2, 3)1 

/* FOR TYPE 0, BIT NUMBER 
type 1, BIAS 

TYPE 2, DISPLACEMENT FROM BIAS */ 
DECLARE NUM KEYS LITERALLY »13'f 
DECLARE TRACE TYPE TABLE (4) BIT CIS) I 
IF PARM PRESENT fl) ■ 0 

THEN CALL ERROR ('M809')» /* NO RETURN */ 
PARM POINTER • AOOR (FIRST PARM) | 

TRACE TABLE NUMBER ■ NUMERIC PARAMETERl 

PARM POINTER • PARM POINTER ♦ 2f 

IF TRACE TABLE NUMBER >• NUMBER TABLE ENTRIES 

THEN call error («0P26’)f /* NO RETURN */ 
IF PARM PRESENT (2) • 0 

THEN CALL ERROR (>M809»)f /* NO RETURN */ 
NUM letters INPUT • NUM PARAMETERl 
FARM POINTER ■ PARM POINTER ♦ II 
BIAS • 01 
MASK • 0| 

DO NHILE NUN LETTERS INPUT » 0| 

NUM letters INPUT ■ NUM LETTERS INPUT • II 
CHAR UNDER TEST • CHAR PARAMETERl 
PARM POINTER ■ PARM POINTER ♦ II 
I i NUM KEY8I 




*• SET TRACE FORMAT *• 


94S3Sa«>R9Fil«* PAGE PRES 


»057 

eess 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 
0067 
006B 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 
0108 

0107 

0108 

0109 

0110 
0111 


* 

* 

* 

* 

* 

* 

* 

* 

* 

n 

* 

* 

* 

* 

* 

* 

* 

* 

« 


FOUND • 01 

DO while I > 0 8 FOUND ■ Pf 

I 0 I « i; 

IF CHAR UNDER TEST ■ KEY LETTER (I) THEN DOf 
FOUND ■ If 

DO CASE LETTER TYPE (I)| 

MASK 1 OR fHASK R8HIFT (BIT MASK, 

LETTER BIT BIAS (l)))| /* NORMAL E 
BIAS ■ letter BIT BIAS CD » /* SET BIAS 
DOI /* BIASED ENTRY *7 

IF BIAS P 0 THEN CALL ERROR C»0P23ni 
/# NO RETURN */ 

MASK ■ OR (MASK, RSHIFT (BIT MASK, 
LETTER BIT 8IA8 (I) ♦ BIAS))! 

ENDf 

ENOI 

ENO» 

ENDI 

IF FOUND ■ 0 THEN CALL ERROR (»0P23')| 

/* NO return */ 


« ENOI 

* TRACE TYPE table (TRACE TABLE NUMBER) ■ MASKf 

p RETURNI 

* END STRACEl 
IDT 'SETRACE’ 

p TITLEI SETRACE 

p PROCESS THE SET TRACE COMMAND 


p REVISIONI 


p original 

p COMPUTERI 990 


p ABSTRACT! 

p THIS SUBROUTINE PROCESSES THE SET TRACE COMMAND 

p THE CHARACTER STRING SECOND PARAMETER IS 

P PARSED LEFT TO RIGHT, GENERATING A MASK OF 

p TRACE ENTITIES WHICH IS PLACED IN THE TRACE 

p TYPE table according TO THE NUMERIC FIRST 

p PARAMETER, BOTH PARAMETERS ARE REQUIRED, 

P THE SYNTAX OF THE STRING 18 SIMPLY A STRING 

p OF characters in THE SET! 

p (P, I, M, W, T, C, X, 8, D, E, 8, A, R) . 

p IN ADDITION, THE SUBSET (E, B, A» R) IS VALID 

p only TO THE RIGHT OF AN ELEMENT OF (S, 0), 


* 

p 

* 

P 

p 

P 

* 

p 

p 

p 

* 


KEYLETTIR MEANING 


P PROGRAM COUNTER 

I INSTRUCTION AND FORMAT 

M STATUS mask 

W WORKSPACE POINTER CHANGES 

T BRANCH TARGETS 

C CRU ADDRESS 

X XOP LEVEL 

N TRACE NOTHING 


** SET TRACE FORMAT ** 


84S366«99R|** 


PAGE 00(1)4 


SU2 

eu3 

0114 

0115 

0116 
0117 

ills 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 
015$ 

0157 

0158 

0159 0000 50 

0160 000C 

0161 000F 00 

000F 01 

0010 02 

0011 03 

0012 04 

0013 05 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


S 

D 

E 

9 

A 

n 

CAUUNG 8E0UENCII 


SOURCE PREFIX 
DESTINATION PREFIX 

• EFFECTIVE ADDRESS (EA5 

• (EA) BEFORE EXECUTION 
» (EA) after execution 

• WKSP REGISTER CHANGES 
NHEN TS/TO ,NE, 0 


STANDARD CAM. PROM COMMAND STRING PROCESSDR, 


<R10» i COMMAND PARAMETER LIST POINTER 


BL PSTRACE 



« 

* 

* 

REF NUMTTE 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
t 
* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 
t 
« 

* 

* 

* 

* 

KEYLTR TEXT »PIMWTCX8DE8APN» 
NUMKEY EOU S»KEYLTR 
LTRTYP byte 0 , 1 , 2 , 3 , 4 1 5 , 6 


1- PROCEOURE 8TRACB (CPL POINTE 
2.0ECLARI TRACE TABLE NUMBER F 
2»D£CLARE NUMBER TABLE ENTRIES 

g^DECLARE NUM letters INPUT FI 
g-OECLARE BIT MASK LITERALLY » 
2»DECLARE mask BIT (16)1 

2- declare found bit (l)r 

g.DECLARE (1 command PARAMETER 

3» 3 CPL CONTROL (CPL 

Am 5 number farms FIXE 

Am 5 FARM PRESENT (8) 

4* 5 FIRST FARM FIXED 

2-DICLARE NUMERIC PARAMETER FI 
g» CONTROL (FARM POINTER)! 
gpDECLARE (CPL POINTER, FARM P 

rpOEclare num parameter fixed 

gp CONTROL (FARM POINTER)! 
2PDBCLARE (I, BIAS) FIXED (16) 
2 pdeclare char parameter CHARA 

gp CONTROL (FARM POINTER)! 
gpDECLARE CHAR UNDER TEST CHAR 
gpDECLARE KEY LETTER (13) CHAR 
3PINITIAL (»P», 'I», »M», *W, 
3 p '8», »D», »!', 'B'. 

gpDECLARE letter TYPE (13) FIX 
3pINITIAL (0, 0, 0, 0, 0, 0, 0 
3p 2, a, 2, 2)! 

5«/* NORMAL i 0, BIAS ■ 1, BI 
gpOiCLARl LETTER SIT BIAS (13) 
SpINITIAL (0. 1, 2, 3, 4, 5, 6 
3p 0, 1, 2, 3)! 

3p/* for TYPE 0, BIT NUMBER 
3p TYPE I, BIAS 

3p TYPE 2, DISPLACEMENT 


P I M W T C X 






** SpT 

▼PACE 

fORHAT *♦ 


945386.9901## PAGE 0005 


t.‘fil4 

06 




utee 

y^i5 

17 


8YTE 

>17,»1B 8 0 


0016 

le 





0017 

20 


BYTE 

»20f>21,»22.>23 E B A R 


0018 

21 





0019 

22 





001A 

23 




0164 

0018 

30 


BYTE 

>30 N 

0165 



♦ 


2-OECLARE NUM KEYS LITERAUY » 

0166 





2-OECl.ARE TRACE TYPE TABU C4) 

0167 




REF 

tttbl 

0168 






0169 



♦WORKSPACE 

REGISTER definitions 

017t’ 



♦ 



0171 


0000 

R0 

ECU 

0 

0172 


0001 

R1 

EOU 

1 

0173 


0002 

R2 

EQU 

2 

0174 


0003 

R3 

EQU 

3 

0175 


0004 

R4 

EOU 

4 

0176 


0005 

RB 

EQU 

5 

0177 


0006 

R6 

EOU 

6 

0178 


0007 

R7 

EQU 

7 

0179 


0008 

R8 

EQU 

8 

0100 


0009 

R9 

EQU 

9 

0181 


000A 

R10 

EQU 

10 

0182 


0005 

Rll 

EQU 

11 

0183 


000C 

R12 

EQU 

12 

0184 


0000 

R13 

EQU 

13 

0185 


000E 

R14 

ECU 

14 

0186 


0007 

R15 

EQU 

15 

0187 



♦ 



0188 




REF 

ERROR 



•* set trace format ** 


94S38i»99Sil** 


PASS 0086 


0190 




DEF 

STRACE 

0191 


001 c* 

strace 

EOU 

S 

0192 

U01C 

C0«S 


MOV 

RlliR2 

0193 



♦ 



0194 



* 



019S 

00 IF 

C13A 


MOV 

•R10+,R4 

0196 

0020 

0A94 


SLA 

R4,9 

0197 

0022 

1732 


JNG 

STRERl 

0196 



* 



0199 






8200 



* ^ 



0201 

0024 

CIBA 


MOV 

*R10'«',R6 

0202 



♦ 



0203 






0204 

0026 

0286 


Cl 

R6,NUMTTE 


0028 

0000 




0205 

002A 

1431 


JHE 

STRER2 

0206 

002C 

0Aie 


SLA 

R6,l 

0207 






8208 



★ 



9209 

m'Ht 

0A14 


SLA 

k4, 1 

w210 


172B 


JNC 

STRERl 

0211 



♦ 



0212 






0213 

0032 

D13A 


MOVB 

*R104,R4 

0214 

0034 

0964 


SRL 

R4,8 

0215 



« 



0216 

0036 

04CB 


CLR 

Rll 

0217 



t 



02U 

0036 

04C7 


CLR 

R7 

0210 






0220 



* 



0221 


003At 

8TRil0 

EQU 

S 

0222 

003A 

C104 


MOV 

R4,R4 

0223 

003C 

1322 


JEQ 

STRi80 

0224 

003E 

0604 


DEC 

R4 

0228 



* 



0226 



* 



0227 

0040 

D17A 


MOVB 

*R104,R9 

0226 



# 



0229 

0042 

0201 


LI 

Rl,NUMKEY 


0044 

000E 




0230 



♦ 



0231 


0046* 

STRi2(^ 

EQU 

S 

0232 



* 



0233 

0046 

C041 


MOV 

R1,R1 

0234 

0046 

1328 


JEO 

8TRER3 

0238 



# 



0236 

004A 

0601 


DEC 

Rl 

0237 



# 



0236 

004C 

9848 


CB 

R5,4KEYLTRCR15 


004E 

0000* 




0239 

0080 

16FA 


3NE 

STR020 

0240 



t 




PROCESS SET TRACE COHMANO ^ 
SAVE RETURN, CPL 
g»IF PARM PRESENT Cn ■ 0 
4»THEN call error (»MS05»)» /* 


IF PARE 1 MISSING 
81 .PARM pointer ■ AODR fFIRST P 
8 . trace table number f NUMERIC 
gpRARM pointer ■ PARM POINTER 

g.IF TRACE table NUMBER »l NUM 
4»THEN call error (•0P26»5f /* 


9»IF PARM PRESENT C2) ■ 0 
4»THEN call error (tMS06'5» /* 

IP PARM 2 MISSING 
EpNUM letters input ■ NUM PARA 
gpRARM POINTER • PARM POINTER 


2»BIA8 i 01 
2 pMA 8K • 0t 



2*00 WHILE NUM LETTERS INPUT * 
SpNUM letters INPUT » NUM LETT 


IF END,OF,LOOP 

3*CHAR UNDER TEST ■ CHAR PARAM 
SpPARM pointer • PARM POINTER 

3»I ■ NUM KEVSl 


3»F0UND ■ 01 

3*00 WHILE I » 0 » FOUND i 0 

IF NO keyword MATCHES 
4»l ■ I • II 

4pIF char under test • KEY LET 


SiiFOUND • II 




-* 8ET 

TRACI 

format ** 


945386-9901** 

PAGE 0007 

«241 



* 



5-00 CASE LETTER TYPE CI5l 

0242 

0052 

0161 


MOVE 

• LTRTYPtRU ,R5 



0054 

0001’ 





0243 

0066 

0005 


MOVB 

R5.R0 

ISOLATE LETTER BIT BIAS 

0244 

0058 

0A40 


SLA 

R0,4 


0245 

00SA 

09C0 


8RL 

R0,12 


0246 

005C 

09C5 


SRL 

R5,12 

ISOLATE LETTER TYPE 

0247 

0051 

8A15 


SLA 

R5,l 


0246 

0060 

0465 


8 

PSTR040tRB) 



0062 

0064’ 





0249 


0064’ 

STR040 

IQU 

S 


0250 

0064 

1003 


JMP 

STR050 

NORMAL ENTRY 

0251 

0066 

1007 


JMP 

STR060 

DEFINE BIAS 

0252 

0068 

1006 


JMP 

STR070 

BIASED ENTRY 

0253 

006A 

10E7 


JMP 

STR010 

NO-OP 

0254 



* 



6-MASK i OR {MASK RSHIFT CBTT 

0255 



n 



8-LETTBR BIT BIAS (I))5l /* NO 

0256 


006C’ 

STRC550 

EQU 

S 


0257 

006C 

0201 


LI 

Rl»>8000 



006C 

8000 





0256 

0070 

0B01 


SRC 

R1,0 


0259 

0072 

eict 


SOC 

R1,R7 


0260 

0074 

1012 


JMP 

STR010 


0261 



♦ 



6-BIAS • LETTER BIT BIAS (I)| 

0262 


0076’ 

STR060 

EQU 

$ 


0263 

0076 

C2C0 


MOV 

R0,R11 


0264 

0078 

10C0 


JMP 

STR010 


0265 



* 



8-DOf /* BIASED ENT 

0266 






7-IF BIAS ■ 0 THEN CALL ERROR 

0267 






1-/* NO RETURN ♦/ 

0268 


007A’ 

8TR07(? 

EQU 

S 


0269 

007A 

C2C5 


MOV 

RlliRll 


0270 

007C 

130B 


JIQ 

STRER3 

IF (E, B, A. R) LEFT OF 

0271 



♦ 



FIRST (8, D) 

0272 






7»maSK • OR {MASK, RSHIFT {BIT 

0273 



n 



9-LETTER BIT BIAS (1) ♦ BIAS)) 

0274 






7-ENOl 

0275 

0071 

A00B 


A 

RllfR0 


0276 

0080 

10F5 


JMP 

STR0S0 


0277 






6-ENOl 

0278 



if 



5-ENDl 

0279 



* 



4-ENOl 

0280 



it 



3-IF FOUND i 0 THEN CALL ERROR 

0261 



« 



6-/* NO RETURN •/ 

0262 



♦ 



3-ENOl 

0263 


0082’ 

STR080 

EQU 

S 


0264 



♦ 



2-TRACE TYPE TABLE {TRACI TAIL 

0265 

0062 

C067 


MOV 

R7,#TTT8LCR6) 

SET TRACE TYPE 


0064 

0000 





0266 


0066’ 

8TR10i 

EQU 

$ 


0287 



* 



2-RETURNl 

0268 

0066 

0452 


B 

*R2 


0289 



♦ 



2-END 8TRACEI 

0290 


0088’ 

STRSRt 

EQU 

S 


0291 

0068 

020A 


LI 

R10i>0205 

MS05 • ROD PARM MISSING 



♦* SET TRACI FORHAT ** 


945386»99Rt** 


RAG! iS08 


008A 
0299 008C 

0293 

0294 0081 
0090 

0293 0092 

0296 

0297 0094 
0096 

0298 

0299 0098 
009A 

0300 009C 

0301 

0000 ER8 


0205 

1008 


JMP 

STRERR 

0081 1 

8TRER2 

EOU 

$ 

020A 


L.I 

R10f»1126 

1126 

1002 


JMP 

STRERR 

0094' 

8TRER3 

EQU 

$ 

020A 


LI 

R10»R1123 

1123 
0098 ' 

8TRIRR 

EQU 

S 

06 A 0 


Bl 

PERROR 

0000 

10F4 


JMP 

STR100 



END 



O' 

DP26 • SEIECT NUMSER RANGE ER 
DP23 • STRING syntax ERROR 



945386-9901** 
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900 • 

880 CONCORDANCE 



S 


0160 

0191 

0221 



0266 

0290 

0293 

ER8CR 


0188 

0299 


KiYLTR 

0169 

0160 

0238 


LTRTYP 

0161 

0242 



NUMKEY 

0160 

0229 



NU8TTE 


0127 

0204 


R0 

0171 

0243 

0244 

0245 

Rl 

0172 

0229 

0233 

0233 

R10 

0181 

0195 

0201 

0213 

Rll 

0182 

0192 

0216 

0263 

R19 

0163 




R13 

0184 




Rl4 

0185 




Rie 

0186 




R2 

0173 

0192 

0288 


R3 

0174 




R4 

0175 

0195 

0196 

0209 

R8 

0176 

0227 

0236 

0242 

R6 

0177 

0201 

0204 

0206 

R7 

0178 

0218 

0259 

0285 

R8 

0179 




R9 

0180 




STR010 

0221 

0953 

0250 

0264 

STR090 

0231 

0239 



8TR040 

0249 

0248 



$TR0S0 

0256 

0250 

0276 


STR060 

0262 

0251 



8TR070 

0266 

0252 



8TR080 

0283 

0223 



STR100 

0286 

0300 



8TRACE 

0191 

0190 



8TRER1 

0290 

0197 

0210 


8T«ER2 

0293 

0205 



STRER3 

0296 

0234 

0270 


8TRERR 

0296 

0282 

0295 


TTT8U 


0167 

0285 


THERE ARE 0036 

SYHBOUS 



0931 0949 09Si 0969 9968 9983 

0966 0998 


0263 

0275 



0236 

0238 

0242 

0257 0258 0259 

0227 

0291 

0294 

0297 

0269 

0269 

0275 



0913 0914 0999 0999 0924 
0943 0946 0947 0948 
0985 
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tt TRACE INTERPERTER tt 
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PAGE 0002 


0003 

0004 

0005 

0006 

0007 

0008 
00 0 9 
0010 
0011 
0012 
0013 
0 0 1 4 
0015 
.0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 
0027 
0023 


IDT 'TRACEHOD' 

DECLARE PCCURSOR POINTER; 

DECLARE MEMW0RD2 BIT (16) CONTROL (PTR): 
DECLARE PTR POINTER; 

DECLARE NEWUSRREG (16) BIT (16) 

CONTROL (NEWWP); 

DECLARE EXECUTED INSTRUCT I ON (3) BIT (16); 
DECLARE HEMkIORD BIT (IS) CONTROL (PCCURSOR) 
DECLARE PR I NTFLAG BIT CIS) INITIAL ("E000"); 
DECLARE CLEARFLAG BIT (16) INITIAL ("E000"); 
DECLARE NOP INSTRUCT I ON BIT (16) 

INITIAL ("1000"); 

DECLARE I FIXED (16); 

DECLARE (FOUND. COND I T I ONMET ) FIXED; 

DECLARE XINSTPOINTER POINTER. 

DECLARE XEQINST BIT (16) 

CONTROL (XINSTPOINTER); 

DECLARE (SRCREG, DSTREG) POINTER; 

DECLARE SRCREGCONTENTS BIT (IS) 

CONTROL (SRCREG); 

DECLARE USRREG (16) BIT (16) CONTROL CUSRWP) 
DECLARE CRUFLAG BIT (16) INITIAL ("0400"); 
DECLARE XOPFLAG BIT (16) INITIAL ("0200"); 
DECLARE DISTANCE BIT (16); 

DECLARE BRANCHFLAG BIT (16) 

INITIAL ("0800"); 
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0031 

0032 

0033 

0034 
0 0 3 
,0035 

0037 

0038 

0039 
0 0 4 

0041 

0042 
'0 0 4 3 
004 4 
0 0 4 E> 
0 0 4 6 

0047 

0048 

0049 
0 0 5 0' 

0051 

0052 

0053 

0054 

0055 
0 0 5 b 
0057 
0 0 !5 S 
0 0 5 9 

00G0 
0061 
0062 
0 0 6 3 

0064 

0065 

0 0 b 6 

0067 
0 0 6 8 
0063 
0070 
0 0 7 1 
0 0 7 2 

0073 

0074 

0075 
0 0 7 G 
0077 
0073 

0079 

0080 
0081 
0082 


4 

'4 

4 : 

t 

t 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

:4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

<4 

* 

t 


DECLARE 
DECLARE 
D E C L A R K 
D E C L A k L 

df.d:lare 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 


PRLOf^F LITERALLY '1' 
NPROPF LITERALLY ' 0 ' 
JLl.OPF' LITFIRALLY 'I'' 
LEGOPF' LITERALLY “ 0 ” 
GhGRPA LITERALLY ' 0 " 
GAGRPE: LITEPhLLY 'I' 
GAGRPC LITERALLY 
GAGRPD LITERALLY 'A' 
GAGRPE LITERALLY ' 4 ’ 
GROUPLOklERBQiJND (26) 


/T 


PRIVILEGED:!!./ 
N0F4-PRIV :r./ 
ILLEGAL T/ 

LEGAL Y/ 

ADDRESS, :F:/ 
GROUPS :R/ 


DECLARE (1 


( " 4000" 
" 2000 " 
" 0S90 " 
" 04C0" 
" 03E0" 
" 0340" 
" 0200 " 


BIT (16) 
"3000". "2C00" 


INITIAL ("4000", "3:500" 

"11)00", "1000", "0C00" 

"0780", "06C0", "0680" 
"0480", "0440", "0400" 

"03A0", "0380", "0360" 

"0320", "02E0", "02A0" 

" 0000 " ) ; 
TRACEDECODETAELE, 

3 DECODEENTRY (26), 

5 LEGALITY BIT (1), 

5 PRIVILEGEDOP BIT (1), 

5 DEFILLER E IT (2), 

5 ADDRESSGROUP BIT (4))j 
DECLARE INSTFORMAT (26) CHARACTER (1) 


INITIAL 


( ■' 1 ■ 

■’G' 
' A ' 


' 9 ' 
■' 6 ' 
'6' 


' 9 ' , 

' 6 ■' , 

r y :■ 

r Q )' 




I’ o •' 
£-« 

6 ■ 


) ; 


DECLARE PTABLE (15) FINED CIG); 

DECLARE PRINTTAGS (15) CHARACTER (2) 

INITIAL CCRLF, 'X-', 'ST', 'UP", 'BT' 
'XL', 'SE', 'SB', 'SA', 'SF?' 


' DB ' 

DECLARE FORMAT 


'Dh', 'DR”)); 

L I TERALLY PR I NTTAGS C 1 ) 
DECLARE STAC K I N D E X F I X E D ( 1 6 ) ; 

DECLARE ADDRSTACK (4) POINTER; 

DECLARE BEFORECONTENTS (4) BIT (16); 
DECLARE (1 TRACEREGIONTAELES, 

3 TRCREGIONTBL 

C 0 N T R 0 1. ( T R C E N T R 'i' A D D R ) 
5 TRFLAGS, 


'6 ' 
I . jf 


'CR 

'DE 


t 

t 

X 

Y 

Y 

Y 

Y 

Y 

Y 

Y DECLARE 


7 TFDEFINED BIT (1), 

7 TFVARIABLE (3) BIT (1), 
7 TFIMSTSTEP BIT (1), 

7 TFFILLER BIT (3), 

5 TRFILLER BIT ( S ) , 

5 TRLOWE^OUND POINTER, 

5 TRHIGHBOUND POINTER, 

5 TRT Y P E I N D E X F I X E D CIG), 

5 TRVARIABLE (3) POINTER, 

5 TRRE SERVED BIT (16)); 

TRACETYPES (4) BIT (IG); 
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0084 

t 

PTABLE (PWP) USRUP; 

0085 

* 

NEIOI-JP = USRWP; 

00SG 


PCCURSOR = USRPC; 

0087 

i: 

NEklST = USRST ; 

0088 

t 

MEWPC = PCCURSOR; 

0089 

t 

PTABLE (PPC) = USRPC; 

0090 

t 

EXECUTED INSTRUCT I ON CO) = MEMWORD; 

0091 

:lc 

PCCURSOR - PCCURSOR +2; 

0098 


TRCXINSTt /I REENTRY FOR X INST %/ 

0093 


STACK INDEX 0 , /:« CLEAR STACK 1/ 

0094 

t 

DO I FROM 0 TO 2; 

0095 


IF TFVARIABLE Cl) = 1 

0 0 9 6 


THEN C A L L P U SHST A C K ( T R V A R I A B L E (I)); 

0 097 

t 

END; 

0098 


PRINTFLAG = A N D ( P R I N T F L A G .■ C L E A R F L A G ) ; 

0099 


PTABLE C P I N S T ) = E X E C U T E D I N S T R U C T‘ I 0 N ( 0 ) ; 

0100 


E X E C U T E D I N S T R U C T I 0 N ( 1 ) = N 0 P I H S T R U C T I 0 N . 

0101 


EXEC U TEDINSTR U C T I 0 N ( 2 ) = N 0 P I N S T R U C T I 0 N ; 

0108 


I 0; 

0103 

t 

FOUND =0; 

0104 

■i' 

••Tn 

DO WHILE FOUND = 0; 

0105 


IF EXECUTED INSTRUCT I ON C0) < 

010 6 


GROUPLOWERBOUND ( I ) 

0107 


THEN I --- I + 1 

0108 


ELSE FOUND = 1 , 

0109 


END; 

0110 


FORMAT = INSTFORMAT (I); 

0111 


IF D E C 0 D E E H T R Y ( I) . L E G A L I T Y = L.. EGO !'' F 

0112 


THEN DO; 

0113 

* 

XINSTPOINTER - ADDR C EXECUTED I NSTRUCT I ON 

0114 


( 1 ) ) ; 

0115 


D 0 CASE D E C 0 D E E N T R Y ( I) . A D D R E S S G R 0 U P ; 

0116 


DO; END; /I GROUP A 1'/ 

0117 


DO; /Y GROUP B */ 

0118 


CALL PGADDR (AND ( EXECUTED I NSTRUCT I ON (0); 

0119 


" F" ) , 

0120 


X I N S T P 0 I N T E R. , P T A B L E C P S 0 U R C ) 

0121 


SRCREG, PCCURSOR); 

0122 


END; 

0123 


DO; /■* GROUP C 1/ 

0124 


CALL PGADDR ( EXECUTED I NSTRUCT I ON C 0 ) . 

0125 

t 

X INST P 0 I N T E R , P T A B L E ( P S 0 U R C ) 

0126 

t 

SRCREG, PCCURSOR); 

0127 


END; 

0128 


DO; /Y GROUP D Y/ 

0129 

t 

CALL PGADDR C EXECUTED I NSTRUCT I ON (0), 

0130 

t 

XINSTPOINTER. PTABLE (PSOURC) 

0131 


SRCREG, PCCURSOR); 

0132 

* 

CALL PGADDR (AND ("F", RSHIFT ( 

0133 


E X E C U T E D I N S T R U C T I 0 N C 0 ) , G ) ) 

0134 


XINSTPOINTER, PTABLE C PDEST ) , 

0135 


DSTREG, PCCURSOR), 

0136 

* 

END; 

0137 


DO; /YGROUP E Y/ 
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0.138 
0 1 '3 9 

0140 

0 141 
0 1 4 8 

0143 

0144 

0145 

0146 

0147 
014S 

0149 

0150 

0151 

0158 

0153 

0154 

0155 

0156 

0157 
0153 

0159 

0160 
0161 
0 1 6 2 

0163 

0 164 

0165 

0166 
0167 
0 1 6.8 

0169 

0170 

0171 

0172 

0173 

0174 
0 1 7 5 
0 1 7 6 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 


t 

4 

4 

4 

t 

t 

t 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

■■ 1 -- 

4 -. 

4 

4 

4 

4 

4 

4 

4 

4 

■ 4 ' 

4- 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


DO 


CALL PGADDR ( EXECUTED I NSTRUCT I ON C0). 

K I N S T P 0 1 N T E R , P T A B L E ( P S 0 U R C ) 
SRCREG,. PCCURSOR) ; 

CALL PGADDR C RSH I FT C EXECUTED i HSTRUCT 1 0M|@. 

b ) , 

X I N S T P 0 I N T E R , P T A B L E C P D E S T ) , 
DSTREG, PCCURSOR) ; 

IF DSTREG = SRCREG THEM CALL PUSH (DSTREG) 
END; 

END; 


C A S E I ; / 4 D 0 I N S T' R U C T I 0 N D ERE N D A N T 

CALL INSTEXEC; /.4 FORMAT I 4/ 

DO; /4 MPY DIV 4/ 

CALL PUSH (PTABLE (PDE) +2); 

CALL INSTEXEC; 


END; 


DO; /4 LDCP STCR 4/ 

PTABLE (PCRU) = USRREG (12); 

P R I N T F L A G = 0 R ( P R I N T F" L A G , C R U F L A G ) . 
CALL INSTEXEC, 

END ; 


DO, /4 XOP 4/ 

PTABLE (PXL) LSHIFT (AND ("00C0'-', 

E X E C U T E D I N S T R U C T' I 0 N ( 0 ) ) , 6 ) ; 
PRINTFLAG = OR (PRINTFLAG, XOPFLAG); 
CALL INSTEXEC; 


END; 


CALL INSTEXEC; /4 COC CZC XOR 4/ 

DO; /4 SBO SBZ TB 4/ 

PTABLE (PCRU) = USRREG (12) + 

A N D ( E X E C U T E D I N S T R U C T 1 0 N , " F' F ” ) 4 2 ; 
PRINTFLAG = 0 R ( P R I N T F L A G ■ C R U FLAG); 
CALL INSTEXEC; 


END; 

DO; /4 JUMPS 4/ 

CALL X E 0 J UMPI N S T ( E X E C U T E D I N S T R U CTION. 
CONDI TIONMET) ; 

IF CONDI TIONMET ~ 1 /4 YES 4/ THEN DO; 
DISTANCE - ARSHIFT (LSHIFT 

( E X E C U TED I N STR U C T I 0 N ( 0 ) , 8) . 7) 

IF DISTANCE . ME , 0 THEN DO; 

PCCURSOR = PCCURSOR + DISTANCE; 
PTABLE (PBT) ~ PCCURSOR; 

PRINTFLAG = OR (PRINTFLAG, BRhNCHF 
END; 

END ; 


NEl-JPC = PCCURSOR; 
PTABLE (PST) = USRST; 


END; 


DO; END; 

CALL INSTEXEC; 
DO; END; 


CALL 

DO; 


INSTEXEC; 


/4 ILLEGAL OPCODE 4/ • 
/4 SHIFTS 4/ 

/4 ILLEGAL OPCODE 4/ 
/4 SkiPB: SETO ABS 4/ ' 

/4 BL 4/ 

= PCCURSOR; 


USRREG (11) 
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0193 t 

019,4 t 

0195 * 

0196 * 

0197 

0198 * 

0199 X 

0200 ^ 

0201 ■ * 

0 cl. 0 d. 

0203 t 

0 2 0^ 4 

,0205 X 

0 2 0 b T: 


0207 * 

0208 X 

0209 X. 

0210 X 

0211 ' 4 : 

02 1 2 * 

0 213 X 

0214 t 

0215 X 

0216 * 

0217 :t; 

0218 * 

0219 t 

0220 X 

0221 * 
0222 

0223 * 

0224 * 

0225 * 

0226 

0227 ;i: 


0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 
02313 

0237 

0238 

0239 

0240 

0241 

0242 

0243 


•t' 

t 

t 

t 

t 

* 


0244 X 

0245 * 

0246 

0247 T; 


NEWPC = PTABLE(PS0URC+PSE) 

PTABLE (PBT) = NEWPC; 

CALL AUTOINCTEST; 

PR INTEL AG = OR (PR INTEL AG, BRANCHFLAG) 
END; 

CALL INSTEXEC; /* CLR NEG INV IHC/T DEC/T 
DO; /X y. X/ 

p T R = PTABLE ( P S 0 U R C + P S E ) , 

E X ECUTEDI N S T R U C T I 0 N ( 0 ) = M E M Id 0 R D 2 ; 
CALL AUTOINCTEST; 

CALL TRCPRINT (PRINT FLAG, TRCENTRVADDR 

PTABLE) 

GO TO TRCXINST; 

END; 

DO; /X E: 

N E W P C -- P T A B L E (PS 0 U R C + P S E ) , 

PTABLE (PBT) = NEWPC; 

PRINTFLAG OR C PR 1 NTFLiAG , BRANCHFLAG) 
END, 

DO; /X ELI, ip 7/ 

PTR = PTABLE (P S 0 U R C + P S E ) ; 

NEUlWP = MEMW0PD2, 

PTR = PTR + 2, 

NEWPC = MEMW0RD2; 

NEWUSRREG (13) = USRWP; 

NEWUSRREG (14) = PC CURSOR; 

NEWUSRREG (15) = USRST; 

PTABLE (PBT) = NEWPC; 

PRINTFLAG = OR (PRINTFLAG, BRANCHFLAG) 
END; 

DO; END; z* LREX ILLEGAL ^4/ 

CALL INSTEXEC;- CKOM CKOF */ 

DO;- /t RTWP T/ 

NEWUlP -- USRREG (13); 

NEWPC = USRREG (14); 

NEWST = USRREG (15); 

PTABLE (PET) = NEWPC; 

PRINTFLAG = OR (PRINTFLAG, BRANCHFLAG) 
E N D , 

CALL INSTEXEC; / X. RSET */ 

DO; END; /* IDLE X/ 

DO; END; 7:t: MAP FILE ILLEGAL X/ 

DO, /:i LWPl LIMI X/ 

E X E C U TED INST R U C T I 0 N ( 1 ) = ME M W D R D , 

PC CURS OR = PCCURSOR + 2 ; , : 

CALL INSTEXEC; 

END, 

CALL INSTEXEC: /* STST STUP */ 

DO; /T LI A I AND I OR! Cl t/ 

EXECUTABLE INSTRUCT I ON Cl) = MEMWORD; 
PCCURSOR = PCCURSOR + 2: 

CALL INSTEXEC; 

END, 

DO; END; /X ILLEGAL OPCODE X/ 

END; /X END OF CASE I */ 
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e 
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0E50 

0251 

0252 

0253 
0254. 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 


t ERRORCODE = 0; 

* END; 

% ELSE DO, ILLEGAL OP CODE 

* CALL PRNTC ('IDLE OR ILOF DETECTED') 

)K ERRORCODE = 1; 

T END; 

T CALL PRTTRACE (PRINTFLAG, TRCENTR VADDR , 

* PTABLE) 

t USRPC = NEWPC; 

T USRWP = NEWUlP; 

* USRST = NEWST; 

IF TFINSTSTEP = 1 THEN DO; 

,t CALL GETCHR (CHAR); 

% IF CHAR =: ESC THEN ERRORCODE ^ 1; 

4 END; 

T; RETURN; 

* END TRACER; 
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0269 

0270 

0271 

0272 

0273 
02 /' 4 - 

0275 

0276 

0277 
027S 

0279 

0280 
■0281 
0282 

0283 

0284 
© 2 8 S 
0 236 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 
029f5 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 
0306' 
0307 
0303 

0309 

0310 

031 1 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 
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* 

* 

* 

* 

* 

4: 

T- 

t 

* 

t 

t 

t 

X 

t 

* 

4: 

* 

* 

t 

t 

* 

* 

t 

t 

* 

* 

* 

t 

* 

* 

* 

t 

t 

t 

t 

* 

t 


PROCEDURE PGADDR (INST, H I NSTPO I NTER , 

SUBPTABLE , REG , PCCURSOR , 
REGNUMEER) ; 

DECLARE CXINSTPO INTER, PCCURSOR) POINTER; 
DECLARE IaIORDOFINST BIT (16) 

CONTROL (XINSTPO INTER ) ; 

DECLARE WORDOFSIMINST BIT (16) 

CONTROL (PCCURSOR); 

DECLARE SUBPTAELE (4) BIT (16); 

DECLARE REG POINTER; 

DECLARE REGNUMBER BIT (16); 

DECLARE UIREGADDR POINTER; 

DECLARE TSTD BIT (16); 

DECLARE MEMWORD BIT (16) CONTROL (WREGADDR) 
DECLARE MASK BIT (16), 

D E C L A RE PS R M S K L I T E R A L L Y ' ' 1 0 0 0 " ; 

DECLARE PEBAMK LITERALLY "E000“; 

REGNUMBER = AND (INST, "3F"); 

MPEG A DDR = AND (INST, "F") 2 + USRMP 

REG = WREGADDR; 

SUBPTABLE CPSR) = MEMWORD; 

TSTD = RSHIFT (AND (INST, >30), 4); 

DO CASE TSTD; 

DO; /* DIRECT t/ 

EFFECT I VEADDR = WREGADDR; 

MASK - 0; 

END; 

DO; /% INDIRECT Y/ 

EFFECT I VEADDR = MEMWORD ; 

MASK = PSRMSK; 

END; 

DO; /t INDEXED Y,'- 

EFFECT! VEADDR = MEMWORD; 

IF AND (REGNUMBER, "F") == 9 
THEN EFFECT I VEADDR ~ 0 ; 

EFFECT 1 VEADDR = EFFECT I VEADDR 
+ WORDOFSIMINST; 

WORDOFINST = WORDOFSIMINST; 

XINSTPO INTER XINSTPO INTER 4- 2; 
PCCURSOR = PCCURSOR + 2, 

MASK -• PSRMSK; 

END; 

DO; INDIRECT AUTO- INC t/ 

EFFECT! VEADDR = MEMWORD; 

MASK = PSRMSK; 

END, 

END; /* END CASE TSTD %/ 

SUBPTABLE (PSE) = EFFECT I VEADDR ; 

SUBPTABLE CPSB) = MEMWORD; 

MASK = RSHIFT COR (MASK, PEBAMK), 

DISP (SUBPTABLE)); 

PRINTFLAG = OR (PRINTFLAG, MASK); 

RETURN; 

END PGADDR; 
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0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 
0 3 3 b 
0337 
0 3 3 8 
0339 
0 3 4 0 
0341 
0 342 

0343 

0344 

0345 
0 3 4 6 


t 

t 

4: 

t 

t 

t 

t 

t 

% 

t 

t 

% 

■4r 

t 

t 

t 

t 

t 

t 


0347 :t 

0342 , t 

0 3 49 

0350 T 

0351 *■ 

0 3 5 2 t 

03.53 t 

0354 t 

0355 t 

0356 t 

0357 * 

0358 * 

0359 t 

0360 t 

0361 

0362 t 

0 3 6 3 ^4' 

0 364 

036 E:i T 

0366 T. 

0367 ■* 

0368 * 

0369 * 

0370 * 

0371 :i: 

0372 * 

0373 * 

0374 :« 

0375 * 

0376 Z 

0377 * 

@ 37.2 4 


PROCEDURE TRCPRINT (PRINTFLAG. 

TRCENTRVADDR, PTABLE); 

D E C L A R E T R C E N T RYAD D R P 0 I N T E R ; 

DECLARE PTABLE (16) BIT (IG); 

DECLARE (1 PRINTFLhG, 

3 PRTB IT (16) BIT ( 1 ) ) ; 

D E C L A R E S 0 U R C E V A L U E B I T C 1 6 ) ' 

CONTROL (SRC REG) ; 

DECLARE DESTOALUE BIT (16) 

CONTROL (DSTREG) ; 

DECLARE (I, LIMELENGTH) FIXED; 

D E C L A R E M A X L E N G T U i... I T E R A L L Y ( 6 5 ) ; 

D E C L A R E E L E M E N T L E N G T H L. IT E R A 1... L Y ( 9 ) ; 

DECLARE PTR POINTER- 

DECLARE M E M W 0 R D E I T ( 1 6 ) C 0 N T R 0 L ( F’ T R ) ; 

D E C L H R E V A R L N L I T E R A L L Y ' 1 1 ' ; 

PTABLE (PST) = NEW ST; 

IF USRWP NE. NEWkIP THEN E^O; 

PTABLE (PUP) = NEW Up; 

PR I NT FLAG = OR (PRINTFLAG, PUIPMSK) 

END; 

CALL UPDATEREG (PRINTFLAG, PTABLE, 

PSOURC, SRCREG) ; 

CALL UPDATEREG (PRINTFLAG, PTAE'LE, 

PDEST, DSTREG), 

P R I N T F L, H G ”. H i ) D ( P R I N T F L A G , 

T R A C E T Y P E S ( T R A C E T Y P E. I N DEX ) ) ,P 
IF PRINTFLAG .ME. O 

THEN PRTBIT (0) = 1; /Y ASSURE PC PRINT Y/ 

L I N E L £ N G T H = M A X 1... E N G T H ; 

DO I FROM 0 TO 15; 

IF PRTBIT (I) .NE. 0 TkifU'l DO, 

LINE LENGTH = LINELENGTH - ELEMENTLENGTH ; 
IF LINELENGTH <~ 0 THEN DO; 

CALL NEULIN; 

END; 

CALL. PRINT (PRINTTAGS (I), 2); 

IF I > PINST THEN CALL PRNTC (EQSIGN); 
CALL PRNTHX (PTABLE (D); 

END, 

END; 

DO UHILE STACK INDEX > 0; 

STACK INDEX = STACK INDEX - 1, 

LTR = ADDRSTACK ( STACK I NDEX ) : 

IF MEMUIORD , NE , BEFORECONTENTS 
(STACK I NDEX) THEN DO; 

LINELENGTH = LINELENGTH - VARLN; 

IF LINELENGTH < 0 THEN CALL NEULIN; 

CALL PRNTHN (PTR); 

CALL PRNTC (EQSIGN); 

CALL PRNTHX (MEMUORD); 

END; 

RETURN; 

LND PRTTRACE; 
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03S1 

0382 

0383 

0384 
03 S5 

0386 

0387 

0388 
0383 

0390 

0391 
'0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 


t 

t 

T 

T 

T 

T 

T 

* 

t 

t 

* 

* 

t 

t 

t 

M 

T 

T 


PROCEDURE UPDATEREG (PRINTFLAG, PTABLE, 
BASE, REG); 

DECLARE REG POINTER; 

D E C L A R F; M E M W 0 P D B 1 T i 1 13 ) C 0 N T R 0 1., f R E G ) ; 
DECLARE EASE FIXED (16); 

DECLARE Cl PRINTFLAG, 


3 PRTBIT (16) E:IT ( 1 ) ) ; 
DECLARE PTAE:LE (16) BIT (16), 

DECLARE PTR POINTER; 

D E i; L A R E N N 0 R D BIT (1 6 ) C 0 N T R 0 L ( F’ T R ) , 
IF PRTBIT (BhSE+PSE) = 1 THEN DO; 

P7'R = PTAELE (BASE+PSE); 

P T A E; L E ( B A S E + P S A ) - M b I L) R D , 

END; 


IF PRTBIT (BASE+PSR) = 1 THEN DO; 

PRTBIT (BASE+PSR) = 0; 

IF MEMIOORD . NE . PTABLE (BASE+PSR) THEN DO; 
PRTBIT (BASE+PSR) " 1, 

PTABLE (BASE + PSR) = HEMkIORD, 

END; 


END; 

RETURN; 

END UPDATEREG; 
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0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 


t PROCEDURE PUSHSTACK (ADDR), 

DECLARE ADDR PO INTER - 

DECLARE STACKMAX LITERALLY '4'; 

X DECLARE ME M W 0 R D BIT (1 6 ) C C ' N T R 0 1 ... ' A D D R ) 

% IF STACK INDEX >= STACKMAX THEN RETURN; 

;t; ADDR STACK C STACK I NDE X ) - ADDR, 

t BEFORE C 0 N T E N T S (ST A C K I N D E X ) - t.| E M l,J 0 R D ; 

* S TAG K I N D E X = S T ACKIN D E X + 1 ; 

X RETURN; 
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TRACE === AUTO INCREMENT TEST 945387-990 


0417 

0418 

0419 

0420 

0421 


t PROCEDURE AUTOiNCTES'T; 

* IF AND CSRCRHM, "30") = "30" 

* THEN SRCREGCONTENTS = 

SRCREGCONTENTS + 2; 

* 




END. 



TRACE 

DATA TABLES 
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0424 



t 



0425 



t 

WORKSPACE REGISTER DEFINITIONS 

0426 



t 



0427 


0000 

R0 

EQU 

0 

042 S 


0001 

R1 

EQU 

1 

0429 


0002 

R2 

EQU 

o 

0430 


0003 

R3 

EQU 

3 

0431 


0 0 0 4 

R4 

EQU 

4 

0432 


0005 

R5 

EQU 

5 

0433 


0006 

R6 

EQU 

6 

04 34 


0007 

R7 

EQU 

7 

0435 


0008 

R8 

EQU 

Q 

0436 


0 0 0 3 

R3 

EQU 

9 

0437 


000 A 

R10 

EQU 

10 

0438 


00 0B 

Rll 

EQU 

11 

0439 


0 0 0 C 

R12 

EQU 

12 

0440 


000D 

R13 

EQU 

13 

0441 


00 0E 

R14 

EQU 

14 

0442 

f/1 r'l ."I '*1' 


000 F 

R 1 5 

EQU 

15 

y ''-I- 4 j 

0444 




REF 

USRPC, USRWP, USRST 

0445 




REF 

ISRFLG.ESC 

04 4 G 


0 1 0 0 

LEYTE 

EQU 

>0100 

0 4 4 7 


■ 000D 

CR 

EQU 

>0D 

0 4 4 S: 


000 A 

LF 

EQU 

>0A 

0449 



t 



0 4 5 0 



Y OVERLAY PARAMETERS 

0451 






4 2 




REF 

SR 

04 53 




REF : 

STRACE 

'4 b 4 

0000 

53 


TEXT 

'SR' 

0455 

0002 

0000 


DATA 

SR 

0 4 5 G 

0 0 0 4 

53 


TEXT 

'ST' 

0457 

0 0 0 6 

0000 


DATA 

STRACE 

0453 

0 0 0 8 

0 0 0 0 


DATA 

0 

0459 

0 0 0 A 

0 0 0 0 

NEWWP 

DATA 

0 

0 4 6 0 

000C 

0000 

NEW ST 

D A T A 

0 

04G1 

0 0 0 E 

0000 

NEWF'C 

DATA 

0 

0462 

0 0 1 0 

003B 

RllATO 

DATA 

>3B 

0 4 6 3 

0012 


TEADDR 

BSS 

142 

0464 

0014 


DSTRNM 

BSS 

142 

0465 

0016 


SRCRNM 

BSS 

142 

0466 

00 IS 

0C0D 

ILMSG 

DATA 

IM1-ILMSG4LBYTE+CR 

4 b' /■'' 

0 0 1 A 

0A 


BYTE 

LF 

G '4 fci 3 

00 IB 

49 


TEXT 

' IDLE/ I LOP' 

0469 


0024' 

IMl 

EQU 

f 

047 0 

0024 

090 D 

HULINE 

DATA 

NL1-NULINE4LBYTE+CR 

0471 

0026 

0H 


BYTE 

LF 

■0472 

0027 

20 


TEXT 

? f 

0473 


002D' 

NLl 

EQU 

f 

0 4 7 4 




EVEN 


0 47 5 




REF 

ACL, RR 

0 4 7 !;::i 




REF 

PRINT, PRNTHX, PRNTC, PRNTHN 

0477 




REF 

TTTBL 
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0478 



REF 

GETCHR 

0479 



REF 

EiQSIGN 

0480 

002E 1000 

PkiPMSK 

DATA 

>1000 

0481 

0020 

SRCR 

EQU 

>0020 

0482 

0002 

DSTR 

EQU 

>0002 

0483 

0100 

SRCE 

EQU 

>0100 

0484 

0010 

DSTE 

EQU 

>0010 

0485 

1*^1 j i 

8000 

PPCHSK 

i- 

EQU 

>8000 

V-' 'U* w 

0437 


t 



0488 

i~4 .'1 Q Q 


t. 



U ‘4- o • J 

0430 


* 




©491 ■ 4 ' 

0492 

0493 t 


0494 

citr 

0030 

E000 

PRTFLG 

DATA 

>E000 

U '"1“ w' b 

0496 

0497 

0032 

IFFF 

CPFLG 

DATA 

>1FFF 

0498 

0499 

0034 

1000 

NOP 

NOP 


0500 



t 



0501 



t 




0502 * 

0503 * 

0504 t 


0505 

0506 



t 

t 



0507 

0508 

0036 


t 

SRCREG 

BSS 

1X2 

0509 

0038 


DSTREG 

BSS 

1X2 

0510 

0511 

0512 

003 A 

0400 

t 

% 

CRUFLG 

DATA 

>0400 

^'4 

003C 

0200 

t 

XOPFLG 

DAT A 

>0200 

0515 

0516 

0517 



X 

X 

t 



0518 

003E 

0800 

BRNFLG 

DATA 

>0800 


o 


SOURCE EFF ADDR MASK 
DEST EFF ADDR MASK 

2-DECLARE PCCUF'SOR POINTER; 
2~DECLARE MEMW0RD2 BIT (16) GONTRO 
2-DECLARE PTR POINTER; 

2- DECLARE NEUIUSRREG (16) BIT (16) 

3- CONTROL (NEkllJP); 

2-DECLARE EXECUTED I NSTRUCT I ON (3) B 
2-DECLARE MEMI.,I()RD BIT (16) CONTROL 
2 - D E C L. A R E P R I N V F I... AG BIT ( 1 6 ) ! 1 1 1 T I A 
PC. INST, AND STATUS 
2-DECLhRE CLEARFLAG bit (16) INITIA 

2- DECLARE NOP I NSTRUCT I ON BIT (16) 

3- INITIAL ("1000"); 

2-DECLARE I FIXED (16); 

2-DECLARE (FOUND, COND I T I ONMET ) FIX 
2-DECLARE XINSTPOINTER POINTER; 

2- DECLARE XEQINST BIT (16) 

3- CONTROL (XINSTPOINTER); 

2-DECLARE (SRCREG, DSTREG) POINTER; 
2-DECLARE SRGREGCOMTEMTS BIT (16) 

4 - CONTROL (SRCREG), 


2-DECLARE USRREG ( 1 6 ) B I T CIS) CONT 
2-DEGLARE CRUFLAG BIT (16) INITIAL 
PRINT CPU FLAG 

2-DECLARE XOPFLAG BIT (16) INITIAL 
PRINT XOP LEVEL FLAG 
2-DECLARE DISTANCE BIT (16); 

2- DECLARE BRANCHFLAG BIT (16) 

3- INITIAL. ("0800"); 

PRINT BRANCH TARGET FLAG 
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0520 




2 D E L- L H R E f~’ K V 0 h' h 

LITERALLY 

' 1 ' ; /X 

p 

0521 


0040 

PRVOPF EQU 

>40 PRIVILEGED 

OP CODE 



0522 



% 

2 -DECLARE NPROPF 

L ITERALLY 

MiV ; /t 

N 

■0523 


0000 

NPROPF EQU 

0 NON-PRIVIL 

EGED CODE 



0524 








0525 



t 

2-DECLhRE ILLOPF 

LITERALLY 

M-. 

I 

0 5i d, b 


0080 

ILLOPF EQU 

>80 ILLEGAL OP 

CODE 



0 5 2 7 



t 

2-DEC L ARE LEGOPF 

LITERALLY 

"0'’; /t 

L 

0528 

(A c ■:? Cl 


0 0 0 0 

LEGOPF EQU 

0 LEGAL OP C 

ODE 



V C? i:_ -J 

0530 



-r. 

H jj D F; E S S G P 

CUPS 



0531 



t 

2- DEC LA RE GAGRPA 

L ITERALLY 

M?'; /t 

A 

0532 


0000 

GAGRPA EQU 

0 FORMAT I 

I , V I I , X 



li? 5 :3 ’3 




2-DECLARE GAGRPB 

L. I TER ALLY 

' i' ; /* 


0 5 3! 4 


00 '3 1. 

GAGRPB EQU 

1 FORMAT V 

. VIII 



0535 



d. 

2-DECLARE GAGRPC 

!-. ITERALLY 

'•2'; /* 


0 5 3 b 


00i:'E 

GAGRPC EQU 

2 FORMAT I 

'J , V I , IX 

CMPY, DIV) 

0537 



4 

2-DECLARE GAGRPD 

u ITERALLY 

•' 3 ' ; 


0S3S 


0003 

GAGRPD FQU 

3 FORMAT '• 

II, IX(XOF) 


0539 



4 

2 E> E C' L A R E! G f-'i G! fp' 13 

LITERALLY 

' 4 ■' , 


0540 


0004 

GAGRPE EQU 

4 FORMAT I 




0541 



t 

2 - D E C L A R E i;=i P 0 1 J P L, 0 M E F: B 0 U M D 

(26) BIT 


0542 



t 

3- INITIAL ( "4000" 

, "3E:00", 

”3000^' . 

tl 

0Ed43 



t 

3- "2000" 

"1D00”,. 

" 1000” . 

M 

0544 



t 

3- " 0800” 

, "0780", 

”0GC0” / 

If 

0545 



t 

3- ” 04C0” 

.. ”0480”. 

"0440” . 

II 

0 b 4 b 



X 

3- "03E0” 

"03A0”. 

"03??0" . 

II 

0547 



X. 

3- " 0340" 

, "0320", 

"02E0" , 

II 

0548 



X 

3-“- ” 0200” 

, "0000") 



0549 


0040 ' 

GLBTBL EQU 

* GROUP LOWE 

R BOUND TABLE 


0550 

0040 

4000 

DATA 

>4000, >3800, >3000, >2C00 





0042 

3800 







0044 

3000 







0046 

2C00 






0E551 

0048 

2000 

DATA 

> 2000 , > 1 D00 , >1000, > 0C00 





004A 

1D00 







004 C 

1000 







004E 

0C00 






0E552 

0050 

0 8 0 0 

DATA 

>0800, >0780, >06C0, >0f5S0 





0052 

0780 







0054 

0 6 C 0 







0056 

0 6 8 0 






0553 

0058 

l'”'| C A 

04CO 

A 'P l 

DATA 

>04C0, >0480, >0440, >0400 





00 5 C 

•6' H- O ‘o' 

0440 







00 5 E 

0400 






0554 

0060 

03E0 

DATA 

>03E0, >03A0, >0380, >0360 





0062 

03A0 







0064 

0380 







0066 

0360 






0E555 

0068 

0340 

DATA 

>0340, >0320, >02E0, >02h0 





006 A 

0320 







006C 

02E0 







Cl 0 6 E 

02A0 







TRACE 

DATA 
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0556 

0070 

0200 


DATA 

>0200, >0000 



c 


0072 

0000 






'3B57 









0558 





2-DECLARE 

(1 TRACEDECODETABLE, 


0559 



X 


3“" 

3 DECODEENTRY (26), 


05S0 



t 


4“- 

5 LEGALITY BIT 

( 1 ) , 


0561 



% 


4- 

e; privilegedop b 

I T ( 1 ) , 


0562 



X. 


4- 

5 DEFILLER BIT ( 

2 ) , 


0563 



X 


c\. - 

e;; addressgroup b 

1 ( 4 ) ) ; 


0 5 6 4 


©074' 

TDTBL 

EQU 

f TRACE DECODE TABLE 



0565 

0074 

04 


BYTE 

LEGOPF+NPROPF+GAGRPE 

FORMAT I INSTRUCT IONS 


05 66 

0075 

03 


BYTE 

L E G 0 P F + N P R 0 P F + G A G R P D 

DIV, MPT 



0567 

0076 

02 


BYTE 

L E G 0 P F + N P R 0 P F + G A G R P C 

STCR, LDCR 



05 6 8 

0077 

02 


BYTE 

L E G 0 P F + N P R 0 P F + G A G R P C 

XOP GAGRPC 



10 5 6 9 

0078 

03 


BYTE 

LEGOPF+NPROPF+GAGRPD 

XOR, CZC, COC 



5 0 

0079 

00 


BYTE 

LEG 0 P F + N P R 0 P F + G A G R P A 

TB, SB2. SBO 



0571 

007A 

00 


BYTE 

L E G 0 P F + N P R 0 P F' + G A G R P A 

JUMPS 



0572 

007B 

80 


BYTE 

ILLOPF+NPROPF+GAGRPA 

XXX ILLEGAL 



0573 

007C 

01 


BYTE 

L E G 0 P F + N P R 0 P F+GA G R P B 

SHIFTS 



0574 

007D 

82 


BYTE 

I L L 0 P F + hi P R 0 P F + G A G R P C 

XXX RESERVED FOR LDS LDD 

0575 

007E 

02 


BYTE 

L E G 0 P F‘ + N P F ’ 0 P F + G A G R P C 

ABS, SETO, SUIPE 



0 5 7 6 

007F 

02 


BYTE 

L E G OP F + N P R 0 P F + GA G R P C 

BL 



0577 

0030 

02 


BYTE 

L E G 0 P F + N P R 0 P F + G A G R P C 

INC, DEC, !MV, 

MEG, CLR 


05 7 8 

0081 

02 


BYTE 

LEG 0 P F + N P R 0 P F + G A G R P C 

K 



0Ei 79 

0082 

02 


BYTE 

L E G 0 P F + N P R 0 P F + G R G R P C 

E 



0E.80 

0083 

02 


BYTE 

L E G 0 P F + N P R 0 P F + G A G R P C 

ELI, IP 



0581 

0084 

G0 


E:YTE 

I L L 0 F F + P R \i 0 P F + G A G R P A 

LREX 



0582 

0085 

40 


BYTE 

L E G 0 PF+ P R V 0 P F+GA G R P A 

CKON, CKOF 


0583 

0086 

00 


BYTE 

L E G 0 P F + H P R 0 P F + GA G R P A 

RTWP 


0 584 

0087 

40 


BYTE 

L E G 0 P F + P R 0 P F + G A G R P A 

RSET 



0585 

0088 

C0 


BYTE 

I L. L 0 p F + P h! \i u F' F X U h R F' A 

IDLE 



0Ei86 

0089 

C0 


BYTE 

I L L 0 P F + P R V 0 P F + G A G R P A 

XXX MAP FILE 



0587 

0 0 8 A 

01 


BYTE 

L E G 0 PF+ N P R 0 P F + G A G R P B 

LI HI, Ll'JPI 



0588 

008B 

01 


BYTE 

L t: G 0 P F + N P R 0 P F + G A G R P B 

STST, STRIP 



i0 5 8 

008C 

01 


BYTE 

LEG 0 P F + N P R 0 P F + G A G R P B 

IMMEDIATES 



0 Ei 9 0 

008 D 

81 


BYTE 

I L L 0 P F + N P R 0 P F + G A G R P B: 

XXX ILLEGAL 



0591 





2-DECLARE 

INSTFORMAT (26) C 

HARhCTER 


0592 



t 


3- 1 N I T I AL 

( ' 1 ' ; ' 9 ' , •’ 4 ' ; ' 

9 ' , 'S', 


0593 



t 


3- 

}' q f p p 

G ‘ . ' G ' , 


0594 



T 


•1.1 

r p- )■ pj p p "y p ? 

7 ‘ . ■■ 7 ' . 


0595 



* 


3~ 

' A ' , 'S', ' 8 ' , ■' 

EA . • •) 


0 59 6 


008E' 

INSFMT 

EQU 

f INSTRUCTION FORMAT NUMBERS 


0597 

A t:r i:;i o 

008 E 

31 

t 

t 

TEXT 

' 1949322X5X666666777 

77AS88X' 



y ...1 .zf <„« 

0599 

0600 



EVEN 

2-DECLARE 

PTABLE (15) FIXED 

( 16) ; 



0601 

00 A 8 


PTABLE 

BSS 

15X2 VALUES TO BE PRINTED 



0602 


0000 

PPC 

EQU 

0X2 

PROGRAM COUNTER 



0603 


0002 

PINST 

EQU 

iXZ 

INSTRUCTION 



0604 


0004 

PST 

EQU 

2X2 

STATUS 



0605 


0006 

PWP 

EQU 

3X2 

WORKSPACE POINTER 

CHANGES 


0 b 0 b 


0008 

PBT 

EQU 

4X2 

BRANCH TARGET 



0 6 0 7 


000 A 

PCRU 

EQU 

S:i<2 

CRU ADDRESS 



0608 


000 C 

PKL 

EQU 

0X2 

XOP LEVEL 



0609 


000E 

PSOURC 

EQU 

742 

SOURCE 


l^i 
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945387-9901 %% 


0G10 


0000 

PSE 

EQU 

0^2 

EFFECTIVE ADDRESS 

0611 


0002 

PSB 

EQU 

1*2 

(EA) BEFORE EXECUTION 

0 612 


0004 

PSA 

EQU 

2 .X 2 

iLh' after execution 

0613 


0006 

PSR 

EQU 

3X2 

WORKSPhCE REGISTER CHANGE 

0614 



t 



FOR TS/TD ,NE. 0 

0615 


0016 

PDEST 

EQU 

11*2 

DEST I NAT I ON 

0 6 1 G 


0000 

PDE 

EQU 

PSE 


0617 


0002 

PDB 

EQU 

PSB 


0618 


0004 

PDA 

EQU 

P S A 


0619 


0006 

PDR 

EQU 

PSR 


0620 



4 



2-DECLARE PRINTTAQS (15) CHARACTER 

0621 



T 



3- INITIAL (GRLF, 'X-', 'ST', 'UP', ' 

0 b id 2 



4: 



3- 'XL', 'SE', 'SB', 'SA', ' 

0b23 



t 



3- 'DB', 'DA', 'DR')); 

0624 



t 



2-DE C L A R E F 0 R M A T LIT E R A L L Y P R I H T T 

062B 


00C6' 

PRTTAG 

EQU 

$ 

PRINT TAGS 

0 6 2 6 

00C6 

0D0A 


DATA 

CR*LBYTE+LF 

0627 


00C8' 

FORMAT 

EQU 

% 


■0628 

00C8 

58 


TEXT 

•'X~" 


0629 

00CA 

53 


TEXT 

J* Q 'I* ^ 


0 6 3 0 

0 0 c c 

57 


TEXT 



0631 

00CE 

42 


TEXT 

'BT' 


0 6 3 2 

0 0 D 0 

43 


TEXT 

-’CR' 


0 6 31 3i 

00D2 

58 


TEXT 

■' XL ' 


0634 

00D4 

53 


TEXT 

'SE' 


0 6 3 S 

iS 0 D 6 

53 


TEXT 



0636 

00DS 

53 


TEXT 

SA 


0637 

00DA 

53 


TEXT 

'SR' 


0638 

00DC 

44 


TEXT 

' DE ' 


0639 

00DE 

44 


TEXT 

'DE' 


0640 

0 0 E 0 

44 


TEXT 

'DA' 


0641 

00E2 

44 


TEXT 

'DR' 


0642 






2-DECLARE STACK INDEX FIXED (16); 

0 6 4 . 3 

00E4 


S'^INX 

BSS 

1*2 

STACK INDEX 

0644 


0008 

S^^KMAX 

EQU 

4*2 

STACK SIZE 

0645 






2-DECL A R E A D D R S T A C K C 4 ) POINT E R ; 

0646 

00 EG 


A E' R S T K 

BSS 

ST KM AX 

A L'l D R Ei, S S- S- T' f'\ C K 

0647 



t 



2-DECLARE BEFORECONTENTS (4) BIT (1 

0648 

0C3EE 


B4CNTS 

BSS 

ST KM AX 

BEFORE CONTENTS STACK 

0649 



X 



2-DECL A R E ( 1 T R A C E R EGIO N TAB L E S , 

0650 



4: 



3- 3 TRCREGIONTBL 

0 .5 1 



X 



5 - C Cl N T R 0 L„ C T R C E- N T R A D DR), 

0652 



X 



4- 5 TRFLaGS, 

0653 



X 



5- 7 TE- DEFINED £■ T' (I). 

0654 



X 



5- 7 TFVARIAEiLE (3) BIT ( 1 ) 

0655 



X 



5- 7 TFINSTSTEP BIT (1), 

0656 



X 



5- 7 TF FILLER BIT (3), 

0657 



X 



4- 5 TRFILLER BIT (8), 

0 658 



X 



4- 5 TRLOkIBOUND POINTER, 

0659 



Xs 



4- 5 TPHIGHBOUND POINTER, 

0 6 6 0 



X' 



4- 5 TRTYPE INDEX FIXED (16 

0 6 6 1 



X 



4- 5 TRVARIABLE (3) POINTER 

0662 



X 



4 - 5 T R R E S E R V E D B I T ( 1 6 ) ) ; 

0663 




REF 

TRFLGS, 

TRLOW , TRH I GH , TRTYPE , TRVl 

0664 


0001 

TFVl 

EQU 

1 



TRACE DATA TABLES 94B387-990 1 ?fe4, PAGE 


0022 


0 6 6 B 


t 


2-DECLARE TRACETYPES (4) BIT (iG) 



tt TRACE INTERPERTER 945387-9901 PAGE 0023 


0668 




DEF 

TRACER 

0 6 6i 9 


00F6' 

TRACER 

EQU 

f 

0S70 

00F6 

0420 


ELkiP 

@ACL GET I4KSP FOR TRACER 


00F8 

0 0 0 0 




0671 

00 FA 

C80S 


MOV 

R8,@TEADDR AND POINTER 


00FC 

0012 ’ 




0672 

00FE 

0209 


LI 

R9JJSRWP 


0 1 0 0 

000 0 




0673 

0102 

0208 


LI 

R8, NEMWP 


0104 

000 A' 




0674 





2-PTABLE CPkiP) - USRMP; 

0675 

0106 

C819 


MOV 

1:.R9, @PThBLE + PWP 


0108 

00 AE' 




0676 





2-NEUiWP = USRWP; 

0677 

010A 

CE39 


MOV 

*;R9+. 'icRS-i- 

0678 



% 


2-PCCURSOR = USRPC; 

0679 

010C 

C179 


MOV 

TR9+. R5 

0 6 El 0 



% 


2-NEl'JST = USRST; 

0681 

010E 

CE19 


MOV 

*R9, 3KR8 + 

0688 



% 


2 -NEW PC == PCCURS'OR; 

0 6 S E"i 

0110 

C605 


MOV 

R5 . tR2 

0684 



% 


2 -FT ABLE (PPC) =■ USRPC; 

0685 

0112 

C805 


MOV 

R5, @PTABLE+PPC 


0 1 1 4 

0 068^ 




0 6 8 6 





2 - E K E C U T E D I N S T R U C T I 0 N '1 0 = M E M W 0 R 

0687 



% 


2-PCCURSOR = PCCURS'OR + 2; 

0688 

0116 

C835 


MOV 

:|'R5+.. ©XINST MOVE FIRST WORD OF INSTRUCT 10 


0118 

0212' 




0689 



% 


2-TRCKINST: /t REENTRY FOR X IN 

069 0 


01 lA' 

TRC010 

EQU 

f REENTRY POINT FOR 'X' INSTR. 

0691 



t 


2-STACK INDEX = 0; /t CLEAR STACK * 

0692 

01 lA 

04E0 


CLR 

@STINX 


0 1 1 C 

00E4' 




0693 



% 


2-DO I FROM 0 TO 2; 

0694 



% 


3- IF TFVARIAELE ( I) = i 

0695 



% 


4-THEN CALL PUSHSTACK (TRVARIABLE 

0696 





3-END; 

0697 

01 IE 

C260 


MOV 

@TEADDR.R9 


0120 

0012 ' 




0698 

0122 

D229 


MOVE 

@TRFLGS(R9) , R8 


0 1 2 4 

0000 




0699 

0126 

0A18 


SLA 

R8,TFV1 

0700 

0123 

0248 


AND I 

R8,>E000 ISOLATE THE VARIABLE TRACE BI 


012A 

E000 




0701 

012C 

0229 


AI 

R9,TRV1 


012E 

0000 




0'\'i2 


0130' 

TRC012 

E'OU 

f 

1..' ” 0 9 

0 1 3 0 

C 2 0 8 


M'OV 

R8, R8 

0704 

0132 

1307 


JEQ 

TRC014 IF ALL B:ITS PROCESSED 

'■'"'05 

'0134 

0A18 


SLh 

R8.1 

0 / ' 0 6 

0136 

1703 


JNC 

T R C 0 1 3 I F T H i S V A F I A L E N 0 'T 1=' R E S E N T 

0707 

0138 

C299 


MOV 

YR9. R10 

0708 

013A 

06A0 


BL 

©PUSH 


013C 

052E' 
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0709 


013E' 

TRC013 

EQU 

f 


0710 

013E 

05C9 


INCT 

R9 


07 1 1 

0140 

10F7 


JMP 

TRC012 


0712 


0142' 

TRC014 

EQU 

% 


0 /' 1 4 



t 



2-PRINTFLAG = AND (PRINTFLAG, CLEA 

0714 

0142 

4820 


SZC 

@CPP"LG, ®PRTFLG 


0144 

0032" 






0 1 46 

0030' 





0715 

0148 

0206 


LI 

R6, XINST 



014A 

0212' 





0716 



t 



2-PTABLE (PINST) = EXECUTED I NSTRUCT 

0717 

014C 

C296 


MOV 

T,Rf5. R10 


07 IS 

014E 

C836 


MOV 

TR6+ , @PTAFfLE + PINST 


0150 

00AA ' 





0719 



t 



2-EXECUTEDINSTRUCTION Cl) ~ MOP I NS 

0720 



t 



2 - E X E C U T E D i N S T R U C T I 0 N ( 2 ) = N 0 P I N S 

0721 

0152 

CDA0 


MOV 

@MOP, *R6+ 



0154 

0034 ' 





0722 

0156 

C5A0 


MOV 

®NOP , :fR6 



0158 

0034' 





0723 



% 



2"- 1 =0; 

0 7 2 4- 

0 1 5 A 

04C6 


CLR 

R6 


0725 



% 



2-FOUND = 0; 

0726 



% 



2-DO I.4HILE FOUND = 0; 

0727 


0 1 5 C ' 

TRC020 

EQU 

% 


0728 






3- IF EXECUTED INSTRUCT ION (0) < 

0729 



* 



5-GR0UPL0bJE;RB:0UND (I) 

0730 






4-THEN I = I + 1 

0731 






4 -ELSE FOUND = i; 

0732 

015C 

898A 


c 

R10.@GLBTBL(R6) 


015E 

0040 ' 





0733 

0160 

1402 


JHE 

TRC030 

IF INST CATAGORY FOUND 

0734 

0 1 b 2 

05C6 


INCT 

R6 


0735 

0164 

10FB 


JMP 

TRC020 


0736 



* 



3-END; 

0737 


0 166 ' 

TRC030 

EQU 

$ 


0738 






2-FORMAT = INSTFORMAT Cl); 

0739 

0166 

C046 


['10V 

R6, R1 

SET INSTRUCTION FORMAT 

0740 

0168 

0911 


SRL 

R1 - 1 


0741 

016A 

D821 


MOVE 

@IHSFMT(R1) 

, ©FORMAT 


0 1 6 C 

008E ' 






016E 

00C8' 





0742 






2-IF DECODEENTRY ( I). LEGALITY ~ LEG 

0743 

0170 

DlEl 


MOVE 

@TDTBLCR1 ) , 

R7 


0172 

0074 ' 





0744 

0174. 

0A17 


SLA 

R7, 1 


0745 

0 1 /’G 

1702 


JNC 

TRC035 

IF LEGAL OP CODE 

0746 

0178 

0460 


B 

0TRC210 

IF ILLEGAL OP CODE 


017A 

035E' 





0747 


017C' 

TRC035 

EQU 

* 


0 ? 4 8 



%. 



5-THEN DO; 

0 M3 



% 



3-XINSTPOINTER = ADDR C EXECUTED I NS 

0:^50 



X 



6- ( 1 ) ) ; 

.0751 



%■ 



3 -DO CASE DECODEENTRY Cl). ADDRESSG 

0752 

017C 

0209 


LI 

R9, XINST+2 




'4 V 
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017E 

0214' 






0753 

0130 

0637 


SLA 

R7, 3 



0754 

0182 

09B7 


SRL 

R7, 11 



0755 

0184 

0467 


B 

@TRC040(R7 

) CASE OF 

ADDRESS GROUP 


0186 

0188^ 






0 7 5 G 


0138' 

TRC040 

EQU 

f 



0757 

0188 

102D 


JMP 

TRC150 

GRP A - 

NO ADDRESSES TO DECOD 

0758 

018A 

1003 


JMP 

TRC100 

GRP B - 

IjJ 

0759 

01 SC 

1004 


JMP 

TRC110 

GRP C •- 

GA ( S ) 

0 7 b 0 

018E 

1009 


JMP 

TRC120 

GRP D - 

Gh(S), D 

0761 

0 1 9 0 

1 0 l-i 


JMP 

TRC130 

GRP e:: - 

GACS), GACD) 

0 7 f i 2 



t 



4-DO; END; 

/T GROUP A :i;:/ 

0763 



t 



4 -DO; 

/:|c GROUP E: :j<:/ 

0 7 £l 4 



t 



5-CALL P GAD DR 

( A N D C E N E C U T E D I N S T R U C 

0765 



t 



c;„ 

"F"); 

0766 



t 



5- 

XiNSTPO INTER, P TABLE 

0767 



t 



5- 

SRCREG, PCCURSORj ; 

'0768 



t 



5-END; 


0769 


0192' 

TRC100 

EQU 

f 



0770 

0192 

024A 


AND I 

R10, >000F 

MASK W 



0194 

000F 






0771 



t 



4-DO; 

/T GROUP C .I::/ 

0772 



% 



5-CALL PGA DDR 

( E > : E C U T E D I N S T R U C T I 0 N 

0773 



t 



q „ 

KINSTPOINTER, P TABLE 

0774 



t 



q — 

SRCREG , PCCURSOR) ; 

0775 



t 



5-END ; 


0776 


0196' 

TRC110 

EQU 

f 



0777 

0196 

0 6 A 0 


BL 

SPCADDR 




0198 

03 AA' 






077S 

019A 

00 0E 


DATA 

PSOURC , SRCRNM , SRCREG 



019C 

0016 ' 







019E 

0036 ' 






0779 

01A0 

1021 


JMP 

TRC150 



0780 



t 



4-DO; 

GROUP D .L,-- 

0731 






5-CALL PGADDR 

(EXECUTED INSTRUCT I ON 

0782 



t 




XINSTPOINTER, P TABLE 

0 7 S 81 



% 



5- 

L I'v (. R E , F ' L C U R S U R J ; 

0784 



t 



5-CALL PGADDR 

(AND ("F". RSHIFT ( 

0 7 S 5 



t 




EXECUTED INSTRUCT ION 

0786 






5““ 

XINSTPOINTER, P TABLE 

0 7 S 7 






q,^-. 

DSTREG, PCCURSOR) , 

07 88 


01A2' 

TRC120 

EQU 

$ 



0789 

01A2 

02 4 A 


AND I 

R10, >03FF 




01A4 

03FF 






0790 






5-END; 


0791 



t 



4-DO; 

/XGROUP E 

0792 



*. 



5-CALL PGADDR 

( E X E C: U T E 0 I H S T' R U C T 1 0 N 

07 93 






q>. 

XINSTPOINTER, P TABLE 

0794 



)K 



q_ 

SRCREG, PCCl.iRSOR); 

0795 


01 AG' 

TRC130 

EQU 

f 



0796 

01A6 

06 A0 


BL 

(5PGADDR 




01A8 

03 ^A' 






0797 

0 1 A A 

00 3E 


DATA 

PSOURC, SRCRNM, SRCREG 



0 1 AC 

0 0 L 6 ' 







0 1 AE 

00 AG' 








c 



tt TRACE INTERPERTER tt 


9453S7-9901-5fel(f 


PAGE 0026 


0798 



t 


5-C:ALL PGhDDR CRSHIFT ( EXECUTEDI NST 

0799 



t 


5- 6) . 

0800 



t 


5- XINSTPO INTER, PTABLE 

0801 



JK 


5- DSTREG, PCCURSOR); 

0802 

01B0 

036A 


SRL 

R10, 6 

0803 

01B2 

01B4 

06A0 
03AA ' 


BL 

gPGADDR 

0804 

0 1 B 6 

0016 


DATA 

PDEST,DSTRNM, DSTREG 


01BS 

0014' 

A A O O 




08 0S 

U i, b H 

U W O o 



5- IF DSTREG = SRCREG THEN CALL PUSH 

0806 

01BC 

8820 


C 

©DSTREG, SSRCREG WHEN I +• , :*;R I + 


U i b- L 

01C0 

U 'cJ D C‘ 

0036" 




0807 

01C2 

1610 


JNE 

TRC135 RI+1 MODIFIED 

080 S 

01C4 

0201 


LI 

Rl,>30 

0809 

y 1 y b 

01C8 

01CA 

y y j y 

4060 

0016' 


SZC 

@SRCRNM,R1 

0810 

01CC 

160B 


JNE 

TRC135 

0811 

01CE 

0201 


LI 

R1 , PTABLE+PDEST+PDE 


01D0 

00BE ' 




0812 

01D2 ' 

C 2 A 0 


MOV 

©PTABLE+PINST, R10 


01D4 

00AA ' 




0813 

01D6 

0A4A 


SLA 

R10,4 

0814 

01D8 

1801 


JOC 

TRC133 

0815 

01DA 

0591 


INC 

4:R1 

0816 


01 DC' 

TRC133 

EQU 

« 

0817 

01 DC 

0591 


INC 

^;ri 

0818 

01DE 

C051 


MOV 

it:Rl,Rl 

0819 

01E0 

01E2 

C811 

00C0' 


MOV 

:i(Rl , ©PTABLE+PDEST+PDB 

0820 


01E4' 

TRC135 

EQU 

S 

0821 



* 


5-END; 

0822 



* 


4-END; 

0823 





3-DO CASE I; Vt DO INSTRUCTION 

0824 



t 


FIXUPS t.- 

0825 


0:IE4' 

TRC150 

EQU 

f 

0826 

01E4 

04C1 


CLR 

R1 

0827 

0 1E6 

0916 


SRL 

R6, 1 

0828 

01E8 

D066 


HOVB 

©CDISP(R6) , R1 


01EA 

0340' 




0829 

01 EC 

0971 


SRL 

Rl,7 

0830 

0 1 EE 

0204 


LI 

R4,NEWPC 


01F0 

0O0E' 




0831 

01F2 

0206 


LI 

R6, NEWWP 


01F4 

000A' 




0832 

01F6 

0209 


LI 

R9,XINST 


01FS 

0212' 




0833 

01 FA 

0461 


B 

©CATBL (Rl) 


01FC 

01FE' 




0834 



t 


4-CALL INSTEXEC; /t FORMAT I %/ 

0835 


01FE' 

CATBL 

EQU 

f BRANCH BY CATAGORY OF INST. 

0836 




Uttt' 


0837 


01FE' 

CATA 

EQU 



o 
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0S38 

01FE 

C3E0 


MOV 

®USRST. R15 


RESTORE USER CONTEXT 


0200 

0000 






0839 

0202 

C389 


MOV 

R9, R14 



0840 

0204 

C00D 


MOV 

R13.. R0 


SAVE UKSP LINKAGE ■ 

0841 

0206 

C360 


MOV 

fSUSRWP- R13 



0842 

0 2 0 8 
020 A 

02 A 1 


STWP 

R1 


SET UP ELWP TO TRACER CONTEXT 

0843 

020C 

C801 


MO0 

R1 , @XBLUP 




020E 

02 1C' 






0844 

0210 

0380 


RTWP 




0845 

8212 


XINST 

BSS 

342 


4444 EXECUTED INSTRUCTION 

0846 

0218 

0420 


BLIaIP 

@XBLWP 


RETURN TO TRACER CONTEXT 


021A 

021C' 






0847 

02 1C 


XBLWP 

BSS 

142 



t:iS48 

02 IE 

0220 ' 


DATA 

CAT A 1 0 



0849 


0220' 

CATA10 

EQU 

f 


RETURN HERE AFTER EXECUTED 

0850 

0220 

0300 


L I M I 

0 


INSTRUCTION 


0 2 2 2 

0000 






0851 

0224 

C58D 


MOV 

R13, 4R6 


SET NEW WP 

0852 

0226 

C505 


MOV 

RS, 4R4 



0853 

0228 

C80F 


MOV 

R15, @NEWST 




022 A 

000C ' 






0854 

02 2 C 

C340 


MOV 

R0, R13 


RESTORE WKSP LINKAGE 

0855 

022E 

0460 


B 

0TRC200 




0230 

035A' 






0856 



X X X X X :t. X 4: X X X 4; 444 



0857 



4 



4-DO; 

/4 MPY DIV 4/ 

0858 


0232' 

CATB 

EQU 

f 



0859 



4 



5-CALL 

PUSH (PTABLE (PDE) +2); 

C^860 

0232 

C2A0 


MOV 

0PTABLE+PDEST+PDE, 

R10 


0234 

00BE' 






0861 

0236 

05CA 


INCT 

R10 


(DE) + 2 AFFECTED BY MRY, DIV 

0862 

0238 

0 6 A 0! 


BL 

@PUSH 




023A 

052E' 






0863 



4 



5-CALL 

INSTEXEC; 

0864 

023C 

10E0 


JMP 

CATA 



0865 



4 



5-END; 


0866 



4444444444444444444 



0867 



4 



4-DO ; 

/4 LDCR STCP 4/ 

0868 


023E' 

CATC 

EQU 

S 



0869 



4 



5-PTABLE (PCRU) = USRF'EG (lE); 

C- b’ 7 0 

023E 

C060 


MOV 

@USRWP, R1 




0240 

0208' 






0871 

0242 

C821 


MOV 

@R1242(R1 ) , 

, @PTAELE+PCRU 


0244 

0018 







0246 

00B2' 






0872 



4 



5-PRINTFLAG OR (PRIHTFLAG, CRUF 

0873 

0248 

ES20 


SOC 

iCRUFLG, @PRTFLG 



024A 

003A' 







02 4 C 

0030' 






0874 



4 



5-CALL 

INSTEXEC; 

0875 

024E 

10D7 


JMP 

CATA 



0876 



4 



5-END; 


;087-7 



^ '4*'’ Sk * 4 *^ ' 4 *' *4^ '4' '4^ ' 4 *' 4^ 4’ 4^ 4' 4* 

/p, ^ ^ ^ •'T- 'T'- -T* *T' -n"- -T* 



0878 






4-DO; 

/4 XOP 4/ 
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0879 


0270' 

CATD 

EQU 

f 


0880 



t 



5-PTABLE (PXL) ■■= LSHIFT (AND C"00C0 

08 SI 



t 



7-EXECUTEDINSTRUCTION C0)), 6); 

0882 

0250^ 

G0 ,9 


MOV 

*R9,R0 


0883 

0252 

0Aij0 


SLA 

R0,6 


0884 

0254 

09' :0 


SFL 

R0,12 


0885 

0256 

C8m0 


MOV 

R0.. ©PTABLE+PXL 


0258 

00! -4 ' 





0886 



t 



5-PRINTFLAG = OR CPRINTFLAG, XOF'F 

0887 

025A 

ESi'0 


SOC 

SXOPFLG, ©PRTFLG 


025C 

00: :C' 






02 5 E 

00: ;0' 





0888 



t 



S-CALL INSTEXEC; 

0889 

0260 

10! E 


JMP 

CATA 


0890 



t 



5-END; 

0891 



)K :4: -1- !t: 4: 


0892 






4-CALL INSTEXEC; /:.■■: COC CZC XOR 

0893 


011-E' 

CATE 

EQU 

CATA 


0894 



% 4: X * XX X t X. ;)( * 4 X X 4 X :ic 


0895 



X 



4-DO; /l; SBO SE:Z TE X. 

0896 


02i!;2 ' 

CATF 

EQU 

f 


0897 



X 



5-PTABLE (PCRU) = USRREG (12) + 

0898 



X 



6 - A N D ( E X E C U T E D I N S T RU C T 1 0 N , " F F " ) * 

0893 

0262 

C0 9 


MOV 

*R9. R0 


0900 

0264 

0A80 


SLA 

R0,S 


0901 

0266 

09 -’0 


SRL 

R0, 7 


0902 

0268 

G060 


MOV 

©USRWP ,.R1 



026 A 

0240' 





0903 

026C 

A021 


A 

@R12*2CRi) - R0 


02GE 

00:8 





0904 

0270 

C8 :>0 


MOV 

R0. @PTABLE+PCRU 


0272 

00 >2' 





0905 



X 



5-PRINTFLAG = OR (PRIHTFLAG, CRUF 

0906 

0274 

E8-!!0 


SOC 

©CRUFLG, ©PRTFLG 


0 2 .7 6 

00':! A' 






0278 

00 30' 





0907 



X 



5-CALL INSTEXEC; 

0908 

027 A 

10C1 


JMP 

CATA 


0909 



X 



5-END; 

0910 



xtxtxxtxxxxxxxxxtxx 


0911 



X 



4-DO; /* JUMPS !lc/ 

0912 


02 ’C' 

CATG 

EQU 

f. 


0913 



X 



5-CALL XEQ JUMP INST ( EXECUTED I NSTR 

0914 



X 



7-CONDITIONMET) , 

0915 

027C 

D8i9 


MOVE 

*R9, ©JIHST 



027E 

0298' 





09 1 6 

0280 

C3E:.0 


MOV 

©USRST, R15 

GET USER STATUS 


0282 

0200' 





0917 

0284 

024F 


AND I 

R15, >FFF0 

AT LEVEL ZERO 


0286 

FFF0 





0918 

0288 

020E 


LI 

R14, CATG10 

RTkiP TO CATG10 


028h 

0293' 





0919 

028G 

02A0 


5Tl.JP 

RA 


0920 

028E 

C800 


MOV 

R0. ©JBLWPl 



03! 90 029E' 
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0921 

0292 

C800 

MOV 

R0, ©JLLWPE 


0294 

02A6 ' 




0922 

0296 

0380 

RTWP 



0923 


0293' CATG10 

EQU 

» 


0924 


0293 •' JINST 

EQU 

t 


0925 

0293 

1004 

JMP 

CATG20 

1 1 * M 0 IJ I F I E D I N S T R U C T 1 0 N 

092b 

029 A 

0420 

BLWP 

@JBLWP1 

IF JUMP HOT TAKEN 


029C 

029E' 




092 7 


029E' JBLUPl 

EQU 

i 


0922 

029E 

0 0 0 0 

DATA 

0 


092 9 

02A0 

02BE' 

DATA 

CATG40 


0930 


02A2' CATG20 

EQU 



0931 

02A2 

0420 

BLIaIP 

@JBLlviP2 

IF JUMP TAKEN 


0 2 A 4 

02 AG'’ 




0932 


02A6'’ .JBLUP2 

EQU 

f 


093 3 

02A6 

0000 

DATA 

0 


■093 + 

02A8 

02AA' 

DATA 

CATG30 


0935 


% 



5- IF CONDI TIONMET = 1 /t YES X/ THE 

09 3 G 





6-DISTANCE == ARSHIFT (LSHIFT 

0937 


t 



? - ( E X E C U T E D I N S R U C T 1 0 N ( 0 ' . 8 , 7 ) 

0932 


02AA' CATG30 

EQU 

f 


0333 

02AA 

C059 

MOV 

4R9, R1 


0940 

02 AC 

0 1"! b 1 

SLA 

R1,S 


0941 

02AE 

0371 

SPA 

R1 7 


0942 


t 



6- IF DISTANCE . NE . 0 THEN DO; 

0943 

02B0 

1 2 0 6 

JEQ 

CATG40 

I h Hop 

0944 


t 



7-PCCURSOR = PCCURSOR + DISTANCE; 

0945 

02B2 

A 1 4 1 

A 

R1 , R5 


094S 


% 



7-PTABLE (PBT) = PCCURSOR; 

0947 

02B4 

C205 

MOV 

R5. @PTABLE+PBT 


02B6 

00 E0' 




0948 





7-PRINTFLAG = OR CPRINTFLAG, BRANC 

0949 

02B8 

ES 20 

SOC 

@BRNFLG, 

gPRTFLG 


02BA 

00 3E' 





02BC 

0('30' 




0950 


t 



7-END; 

0951 


t 



G-END; 

0952 





5-NEUPC = PCCURSOR; 

0953 


02BE' CATG40 

EQU 

f 


0954 

02BE 

C50S 

MOV 

R5,4:R4 


0955 





5-PTABLE (PST) USRST; 

095 b 

02C0 

C30F 

MOV 

R15, ®P.TABLE + PST 


02C2 

00 AC ' 




0957 





5-END; 

0953 

02C4 

104A 

■JMP 

TRC200 


0 9 5 y 


* 




09G0 




0961 


% 



4-DO; END; ILLEGAL OPCODE 

0 962 


02 C6' CATH 

EQU 

f 


0 903 

02C6 

10FF 

JMP 

f 


0964 


4; * 5K 4: * 4: S: 4; * 4: 5K 4: * 


0965 


* 



4-CALL INSTEXEC; /X SHIFTS Y/ 

09SG 


01FE' CAT I 

EQU 

CATA 


0967 


>f: * )fc * :jc 4: 4 4 * S; 4 4 4; * * 4: 


0963 





4-DO; END; /* ILLEGAL OPCODE 
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09 G 9 


02 C6 ' 

CATJ EQU 

CATH 


0970 



t ;t; t -t Jt: tttttttttt 

Cy 

0971 



t 


4-CALL INSTEXEC; /:L SUPB SETO ABS :ic 

0973 


01 FE' 

CATK EQU 

CATA 


0973 





0974 





4-DO; /t BL 

0975 


02C8' 

CATL EQU 

S 


0976 





5-USRREG 111) = PCCURSOR. 

0977 

02G3 

C060 

MOV 

@USRWF, R1 



02CA 

026A' 




0978 

02CC 

C845 

MOV 

R5. @R11*2(R1 ) 


02CE 

0016 




0979 





5-NEWPC = PTABLEiPSXKJRC+PSE) 

0980 

02D0 

C520 

MOV 

@PTABLE+PS 

0URC+PSE,*R4 


02 D 2 

00B6' 




0981 

02D4 

8820 

C 

eSRCRNM, ®R11AT0 


02D6 

0016 ' 





02D8 

0010 ' 




098c 

02DA 

1302 

JEQ 

CATL20 


0983 





5-PTABLE (PBT) = NEWPC; 

0984 


02 DC' 

CATL10 EQU 

s 


0985 





5-CALL AUTOINCTEST; 

09SG 

02DC 

06 A0 

BL 

(3ATOIHC 



©2DE 

0 !5 4 S ^ 




0987 


02E0-' 

CATL20 EQU 

% 


0988 

02E0 

C814 

MOV 

*R4, ©PTABLE+PBT 


02 E 2 

00B0 ' 




0 9 S' 9 



t 


5-PRINTFLAG = OP (PRINTFLAG, BRANC 

0990 

02E4 

ES20 

SOC 

@BRNFLG,@PRTFLG 


02E6 

003E' 





02E8 

0030 ' 




099 1 





5-END; 

0992 

0 2 E A 

1037 

UMP 

TRC200 


0993 



* :*: ^ t .1: 1 1 1 1 1 ^ * * 1 1 T 1 1 


0994 



t 


4-CALL INSTEXEC; /* CLR NEG INV INC 

0995 


01FE' 

CATM EQU 

CATA 


099(5 






0997 





4-DO; /t X t/ 

0998 



)K 


5-PTR = PTABLE (PSOUROPSE). 

0999 


02EC' 

CATN EQU 

% 


1000 

02EC 

C060 


©PTABLE+PS 

OURC+PSE. PI 


02EE 

00B6' 




1001 





5-EXECUTED INSTRUCT ION (0) = MEMWOR 

1002 

02F0 

C(351 

NOV 

TRl , :|;R9 


1003 



t 


5-CALL AUTOINCTEST, 

1004 

02F2 

06A0 

BL 

©ATO i NC 



02F4 

01346' 




1005 



i: 


5-CALL TRCPRINT (PRINTFLAG, TRCEN 

1006 



t 


5- PTABLE) 

1007 

02 F 6 

06A0 

BL 

©PRTRC 



02F8 

0418' 




100S 





5-GO TO TRCXINST, 

1009 

02 FA 

0460 

B 

©TRC010 



02FC 

011 A ' 




1010 



:F 


5-END; Q 



m TRACE INTERPERTER tt 


945387-9901 ^ 


PAGE 0031 


1011 



jfot: * )tc * Jf; * -T * * * * 


1012 



si-- 

-■r- 



4-DO; /:|t E 

1013 






5-NEUPC PTABLE ( PSOURC+PSE I' ; 

1014 


02FE' 

CATO 

EQU 

s 


1015 

02FE 

CS20 


MOV 

@PTABLE+PSOURC+FSE, TR4 


0300 

0 0 B b ■' 





1 0 1 G 






5- PTABLE (PBT) = NEWPC; 

1017 






5-PRINTFLAG “ OR (PRiNTFLAG, BRANC 

1018 






5-END; 

1019 

0302 

10 EC 


JMP 

CATL10 


1020 



T :i£ ;ic * 1 1 1 1 1 1 4 * 1 1 1 1 


1021 



% 



4-DO; ./S. BLWP t/ 

1022 



t 



5-PTR = P T ABLE CP S 0 U R C + P ;2 E :< ; 

1023 


0304' 

CATP 

EQU 

f 


1024 

0304 

C060 


MOV 

@ P T A B L E + P S 

OURC+PSE- Ri 


0306 

00B6' 





1025 






5-NEMWP - MEMW0RD2, 

1026 



t 



5-PTR = PTR + 2; 

1027 

0308 

C5B1 


MOV 

*Rl-^, *R6 


1028 



t 



5 -NEW PC - MEMW0RD2; 

1029 

030 A 

C511 


MOV 

-TRl , 4CR4 


1030 



t 



5-NEWUSRREG (13) = USRWP; 

1031 

030C 

C056 


MOV 

:|:R6, R1 


1032 

030E 

C360 


MOV 

©USRUIP.. @R13.t:2(Rl ) 


0310 

02 C A ' 






0312 

001 A 





1033 



t 



5-NEWUSRREG (14) = PCCURSOR; 

1034 

0314 

C845 


MOV 

R5. @R14:i'2(Rl ) 


0316 

00 1C 





1035 



t 



5-NEWUSRREG (15) USRST; 

• 1036 

0318 

C8S0 


MOV 

@USRST, 0R15*:2(R1 ) 


031 A 

0282' 






031C 

00 IE 





1037 



t 



5-PTABLE (PBT) = NEWPC; 

1038 



t 



5-PRINTFLAG = OR (PRINTFLAG, BRANC 

1039 



t 



5-END; 

1040 

031E 

10DE 


JMP 

CATL10 


1041 



)!c ;K t S-: t T ^ ; S: 


1042 



t 



4-DO; END; /% LREX ILLEGAL X/ 

104 3 


02C6' 

CATQ 

EQU 

CATH 


104‘l- 



t :k t ^ )t:: * HOI:; 4. * 1 1 1 1 


1045 






4-CALL INSTEXEC; /,T CKON CKOF X/ 

1046 


01FE' 

CATR 

EQU 

CATA 


1047 



1 1 1 )t; ;l=: 1 1 1 :4c t * 1 1 1 1 1 :4c 


1048 






4-DO; RTWP */ 

1049 


0320' 

CATS 

EQU 

$ 


1050 



t 



5-NEUWP = USRREG (13); 

1051 

0320 

C060 


MOV 

©USRIaIFu R1 



0322 

0310' 





1 052 

0324 

CSAl 


MOV 

@R13;ic2(Rl ) 

4:R6 


0326 

001 A 





1053 



t 



5-NEWPC = USRREG (14); 

1054 

0323 

C521 


MOV 

@R14*2CR1 ) , 

*R4 


032A 

001C 





1055 



t 



5-NEWST = USRREG (15); 



TRACE INTERPERTER OK* 945387-9901^(K^ PAGE 003S 


1056 

032C: 

C821 


MOV 

®R15*2(R1) 

,@NEUST 

o 


0 32E 

00 IE 







033© 

000C ' 






1057 



* 



5-PTAB:LE (PE:T) 

== MEUPC; ■ 

1058 



* 



e:-printflag = 0 

R (PRINTFLAGL BRANC 

1059 






5-END; 


1060 

0332 

04E0 


CLR 

@SRCREG 




0334 

0036 ' 






1061 

0336 

10D2 


JMP 

CATL10 



1062 



*4^ >4^* "‘X"' *'X* ’‘X* 'X' *X‘* Sk X** *X* X' 

^ ^ ^ ^ 



1063 



* 



4-CALL INSTEXEC 

. /* RSET */ 

1 064 


01FE' 

CATT 

EQU 

CATA 



1065 



*;K****: 

K:K*:K* 

******** 



1066 






4-DO. END. 

/* IDLE */ 

1067 


02C6' 

CATU 

EQU 

CATH 



1068 



******: 

:t 1 1 * * * * * * * * * 



1069 






4 -DO; END; 

/* MAP FILE ILLEGh 

1070 


02C6' 

CATV 

EQU 

CATH 



1071 



******; 

fl .-t. ^ 

******** 



1072 


0338' 

CATU 

EQU 

$ 



1073 






4-DO; 

/* LWPI LI MI ;*/ 

1074 



* 



5-EXECUTEDINSTRUCTION C 1) == MEMWOR 

1075 



t 



5-PCCURSOR == PC 

CURSOR -f 2; 

1076 

0338 

G835 


MOV 

*R5+, ®XINST + 2 move: IMMEDIATE VALUE 


033A 

0214' 






1077 



t 



5-CALL INSTEXEC 

> 

1078 

033C 

0460 


B 

fCATA 




033E 

01FE' 





■ .■,A> 

1 079 



* 



5-END; 


1080 




******** 



1081 



t 



4-CALL INSTEXEC: 

; /:K STST STWP */ 

1082 


©IFE' 

CATX 

EQU 

CATA 



1 t:* J 

1084 



/f. Jf: /fv A 

* 

,f.. .5K .T . )F. 

-f. .?v. )ji, ^ ^ 

4-DO; 

/* LI Ai AMD I OR I 

1035 



t 



5-EXECUTABLE I NS 

TRUCTION (1) = MEMU 

1086 



t 



5-PCCURSOR = PCCURSOR +2; 

1087 


0338' 

CATY 

EQU 

CATU 



1088 



:t: 



5-CALL INSTEXEC 

; 

1089 



* 



5-END; 


1090 



* 



4-DO; END; 

/* ILLEGAL OPCODE 

1091 


02C6' 

CATZ 

EQU 

CATH 



1092 



* 



4-END; 

/* END OP CASE I * 


jrx 

c 



TRACE INTERPERTER 345387-9901 PAGE 0033 


1094 


0340^ CD ISP 

EQU 

f 

DISPLACEMENTS TO CATAGORI5S 

1095 

0340 

00 

BYTE 

CATA-CATBL/2 

FORMAT I INSTRUCTIONS 

1096 

0341 

1 A 

BYTE 

CATB-CATBL/2 

Mpy DiV 

1097 

0342 

20 

BYTE 

C A T C - C A T E: L / 2 

LDCR STCR 

1093 

0343 

29 

BYTE 

CATD-CATBL/2 

XC'I-’ 

1099 

0344 

00 

BYTE 

CATE-CATBL/2 

COC CZC XOR 

1100 

0345 

3 2 

BYTE 

CATF-CATEL/2 

SEC SBZ TB 

1101 

0346 

3F 

BYTE 

CATG-CATBL/2 

JUMPS 

1102 

0347 

G4 

BYTE 

CATH-CATBL/2 

ILLEGAL OPCODES 

1103 

0348 

00 

BYTE 

CATI-CATBL/2 

SHIFTS 

1104 

0 349 

S4 

BYTE 

CATJ-CATBL/2 

illegal opcodes 

1105 

034 A 

00 

BYTE 

CATK-CATBL/E 

SkiPB SETO ABS 

1106 

034E: 

i:35 

BYTE 

CATL.-CATBL/2 

Bl... 

1107 

034 C 

00 

BYTE 

CATM-CATBL/2 

clr heg inv inc(t:' decct) 

110S 

034D 

} y 

BYTE 

CATN-CATBL/2 

P's 

1 109 

034E 

:3 0 

BYTE 

G A T U — C A T E' L / 2 

B 

1110 

0341- 

33 

BYTE 

CATP-CATEL/2 

blup 

1 1 1 1 

0350 

("ij 4 

BYTE 

CATQ-CATBL/2 

lrex 

1112 

0351 

00 

BYTE 

CATR-CATBL/2 

CKOH CKOF 

1113 

. 0352 

91 

BYTE 

CATS-CATBL/2 

RTkiP 

1114 

035 3 

00 

BYTE 

CATT-CATBL/2 

RSET 

1115 

0354 

6 4 

BYTE 

CATU-CATBL/E 

1 14... E 

1 1 1 6 

0355 

64 

BYTE 

CATV-CATBL/2 

MAP FILE 

1 1 1 7 

0356 

9D 

BYTE 

ChTUI-CATBL/2 

LI HI LWPI 

1118 

0357 

'3 0 

BYTE 

CATX-CATBL/2 

ST ST STI.jp 

1113 

0358 

9D 

BYTE 

CATY-CATBL/2 

IMMEDIATLS EXCEPT LIMI LMPI 

1120 

0359 

64 

BYTE 

CAT2-CATBL/2 

TY4: ILLEGAL 



( 


c 


:• flft 


TRACE INTERPERTER tt 945387-9901 PAGE 0034 


1122 



TRC200 


c 

1123 



•4/ 

••T' 


3-ERRORCODE = 0; ^ 

1124 

035A 

04 C 4 


CLR 

R4 

1125 



t 


3-END; ■' 

11 £b 

035C 

1006 


JMP 

TRC220 

1 1 2 7 



t 


2-ELSE DO; /X ILLEGAL OP CODE 

1128 


035E' 

TRC210 

EQU 

■f ILLEGAL OP CODE DETECTED 

1129 



t 


3-CALL PRNTC ('IDLE OR HOP DETECTED 

1130 

035E 

02 0A 


LI 

R10.ILMSG 


0360 

0018' 




1131 

0362 

06A'0 


BL 

@PRNTC 


0 :] 6 4 

0000 




1 132 

0:366 

1000 


NOP 


1133 



t 


3-ERRORCODE =1; 

1134 

0 3 6 8 

0704 


SETO 

R4 

1135 





3-END; 

1136 


036A' 

TRC220 

EQU 

f 

1137 





2-CALL PRTTRACE CPRINTFLAG, TRCEN 

1138 





2- PTABLE) 

1139 

0 3 b A 

06 A0 


BL 

@PRTRC 


036 C 

0418' 




1140 

036E 

0704 


SETO 

R4 XXXt ERROR RETURN 

1141 



t 


2-USRPC = NEUIPC; 

1142 

0370 

C820 


MOV 

UNEUJPC, @USRPC 


0372 

000E' 





0374 

0000 




1143 



t 


2-USRWP = MEWWP; ^ 

1144 

0376 

C820 


MOV 

@NEUUP, iUSRUiP 


0378 

000 A' 





037 A 

0322' 




1145 





2-USRST = NEWST, 

1146 

037C 

C820 


MOV 

@NEklST, @USRST 


037E 

000C ' 





0380 

031A' 




1147 



t 


2- IF TFINSTSTEP = 1 THEN DO; 

1148 

0382 

C2A0 


MOV 

@TEADDR.R10 


0384 

0012' 




1149 

0386 

C2AA 


MOV 

@TRFLGS(R10) , R10 


0388 

0124' 




1150 

038 A 

22A0 


COC 

@ISRFLG,R10 


038C 

0000 




1151 

03SE 

1606 


JNE 

TRC230 ' ^ 

1152 



t 


3-CALL GETCHR (CHAR) ; 

1153 

0390 

06 A0 


BL 

SGETCHR 


0392 

0000 




1154 



X 


3- IF CHAR = ESC THEN ERRORCODE = 1; 

1155 

0394 

980A 


CB 

R10,@ESC 


0396 

0000 



■ 

1156 

0398 

1601 


JNE 

TRC230 

1157 

039A 

0704 


SETO 

R4 

1158 



X. 


3-END; 

1159 


039C' 

TRC230 

EQU 

f 

1160 



X 


2-RETURN; 

1161 

039C 

C104 


MOV 

R4(R4 



tt TRACE INTERPERTER tt 


945387 - 9901 ^^ 


PAGE 0035 


1162 

039E 

1602 


JNE 

TRC250 

1163 

03A0 

03A2 

05ED 

0016 


INCT 

@R11X2(R13) 

1164 


03A4' 

TRC250 

EOU 

f 

1165 

03 A4 
03A6 

0420 

0000 


BLWP 

@RR 

1166 
1 167 

03A8 

045B 


B 

*R11 

c. 


IF EPRO'"' CODE IND, ERROR 
NORMAL EXIT 


BACK TO PREVIOUS MKSP 


END TRACER; 


TRACE === POST GENERAL ADDRESS 945387-9901 PAGE 0036 


1170 

1171 

1172 

1173 

1174 

1175 
ll'^G 

1177 

1178 

1179 

1180 
1181 
1182 
1183 
1184 - 

1185 

1186 

1187 

1188 
1139 

1190 

1191 

1192 
'1193 

1194 

1195 

1196 

1197 

1198 

1193 
1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1 2 1 1 

1 2 1 2 

1213 

1214 

1215 

121 6 

1217 

1218 
1219 
,1220 
1221 


03AA 

03AC 
03 AE 
03B0 


03B4 

03BS 

03B8 

03BA 

03EC 


1000 

E000 
0 3 H A ' 
C03B 

020E 
00A8' 
A3 80 


03E2 0810 


C04A 

0241 

003F 

C33B 

C701 


t TITLED 
■T 

* REVISION 
t 

t ABSTRACT 
t 

4; 

* 

•t 

* 

CALLING 

■T 

t 

t 

t 

t 

t 

t 

t 

t 

t 

* 

t 

t 

% 

t 

t 

t 

PSRMSK 

PEEAHK EQU 
PGADDR EQU 
MOV 

LI 


PGADDR 

POST A GENERAL ADDRESS 
ORIGINAL 


THE LEFTMOST SIX BITS OF -^HE INSTRUCTION ARE 
INTERPRETTED AS A GENERAL ADDRESS. THE 
ADDRESS OF THE WORKSPACE REGISTER, THE CONTENTS 


OF THE WORK 
ADDRESS AND 
ADDRESS ARE 
SEQUENCE 
<R10> 

<R9> 

<R5> 


* 


;:PACE REGISTER. 
THE CONTENTS ( 
POSTED. 

TD/TS, D/S RIGHi 
XEQ INSTRUCTION 


THE EFFECT 
IF THE EFFEC 


JUSTIFIED 

POINTER 


IVE 

TIVE 


PC CURSOR 


BL ©PGADDR 
DATA (PTABLE 
DATA <PTR TO 
DATA <PTR TO 


DISPLACEMENT.'! 

WORD TO GET TS/TD S/D VALUES) 
WORD TO GET WKSP REG ADDRESS) 


1 - PROCEDURE 
1 - 

1 - 

2- DECLARE 

2- DECLARE 

3- CONTROL 

2- DECLARE 

3 - CONTROL 
2-DECLARE 
2-DECLARE 
2-DECLARE 
2-DECLARE 
2-DECLARE 
2-DECLARE 
2-DECLARE 
2-DECLARE 


PGADDR (INST, XIHSTPOIH 
SUBPTA'BLE, REG, 
REGNUMiiERi: 

( X I N S T P 0 I N T E R , P C C U R S 0 R i 
WOP DOF INST BIT (16) 

(XINS TP 0 INTER) , 


WORDOFSIMINST BIT (16) 
CPCCURSOR); 

SUE:PTAB:LE (4) 

REG POINTER; 

REGNUMBBIR BIT (16) 
WREGADDR POINTER; 

TSTD BIT (16); 

MEMWORD BIT (16) 

MASK BIT (16); 

PSRMSK LITERALLY 


BIT (16) 


CONTROL 


000 " 


EQU >1000 


E000 


*R11+, R0 


R 14, PTABLE 


A R0,R14 

SRA R0,1 

MOV R10,R1 
AND I R1 , > 3F 

MOV *R11+,R12 
MOV R1,'*R12 


2 - D E C L A R E P E B A M K L I T E R A L. L Y ' ' E 0 0 0 " 


GET DISPLACEMENT IN PTABLE 
= SHIFT COUNT t Z 


ADDR OF SUB PTABLE 

ADJUST SHIFT COUNT 
2-REGNUMBER - AND (INST, "3F"); 


SET 

-WREGADDR 


TS-'^TD 
- AND 


S/D 
( INST, 


"F" ) Y 2 -i- 


03BE 


0241 


AND I R1,)F 



TRACE 

=== POST GENERAL ADDRESS 

945387-990USe^ PAGE 00 

O ’F'* 


03Ce 

000F 





1222 

03C2 

C3E0 

MOV 

@USR10P, R15 




03C4 

037A' 





1223 

0 3 C 6 

A3 Cl 

A 

R1 , R15 



1 2 2 4 

0 3 C 8 

A3 Cl 

A 

R1,R15 

ADDRESS 0 

F UlkSP REGISTER 

122E; 


t 



2-REG = MREGADDR 


1226 

03CR 

C33B 

MOV 

4R11+.R12 



1227 

0 3 '3 C 

C70F 

MOV 

R15, 4R12 

SET kIKSP 

REGISTER ADDRESS 

1228 


t 



2-SUBPTABL.E (PSP 

) = MEMWORD; 

1229 

03CE 

CB9F 

MOV 

4R15, @PSR(R14) 



03D0 

0 0 0 G 





1230 


t 



2-TSTD =: RSHIF'' 

(AND (INST. >30) 

1231 

03D2 

C30A 

MOV 

R10, R12 



1232 

03D4 

02 4 C 

AND I 

R12, >30 




03D6 

0 0 3 0 





1233 

03D3 

09 3 C 

SRL 

R12, 3 



1234 





2-DO CASE TSTD; 


1233 

03DA 

046 C 

B 

@PGA010(R1 

2 ) 



03DC 

03DE' 





1236 


03 DE' PGA010 

EQU 

s 



1237 

03DE 

100 3 

JMP 

PGA 100 

DIRECT 


1233 

03E0 

1004 

JMP 

PGA200 

INDIRECT 


1239 

03 E2 

1007 

■JMP 

PGA300 

I NDEXED 


124^:' 

03E4 

1003 

JMP 

PGA400 

I ND I PECT' , 

AUTO-INCREMEN'i' 

1241 


t 



3-DO; 

/t DIRECT 4/ 

1242 


•t 



4-EFFECTI VEADDR 

== UREGADDFl, 

124 3 


03ES' PGA100 

EQU 

S 



1244 


4 



4 -MASK = 0; 


1245 

03E6 

04GC 

CLP 

R12 



1246 


* 



4-END; 


1247 

03E8 

100D 

JMP 

PGA5G0 



1243 


4 



3- DO; 

/4 INDIRECT 4/ 

1243 


03EA' PGA200 

EQU 

s 



1250 


4 



4-EFFECTI VEADDR 

=. MEMWORD; 

1251 

03E A 

C3DF 

MOV 

4R15- R15 



1252 


4 



4-MA.SK . = PSR'iSK; 


1253 

03EC 

020C 

LI 

R12,PSRMSK 




03EE 

1000 





1254 

03F0 

1003 

JMP 

PGA500 



1255 


4 



4-END; 


1256 


4 



3-DO; 

/X INDEXED 4/ 

1257 


03F2' PGA300 

EQU 

f 

INDEXED 


1258 


4 



4-EFFECTI VEADDR 

= MEMWORD; 

1259 

03F2 

C3DF 

MOV 

4R15. R15 



1260 


4 



4- IF AND CREGNUMBER, "F") = 0 

1261 

03 F 4 

C041 

M 0 V 

R1 . R1 



1261 

03 F 6 

1601 

JNE 

PGA310 



126 ,! 





5-THEM EFFECT I VEADDR = 0; 

1 26'i- 

03F8 

04CF 

CLP 

R15 



126' i 


X 



4 -EFFECT I VEA9DR 

= EFFECT I VEADDR 

126il 





B-T WORDOFSI MIMST; 

1262' 


03Fi4' PGA310 

EQU 

$ 



1263 

03FA 

A3DS 

A 

;i(R5, R15 



. 126: 1 





4-I.JORDOFINST = WORDOFS I M I NST ; 

'i ' 


t. 



4-XIMSTPOIMTER = 

X INST POINTER -i- 



c 


TRACE === POST GENERAL ADDRESS 945387-9901^4^ PAGE 0038 


1271 



t 


4-PCCURSOR = PCCURSOR + 2; 

1272 

. 03FC 

CE75 


MOV 

:f!R5+2*R3+ MOVE EXTENDED PART OF INST \> 

1273 



* 


4 -MASK = PSRMSK; 

1274 

03FE 

020G ^ 


LI 

R12.PSRMSK 


0400 

1000 




1275 





4-END; 

1276 

0402 

1000 


JMP 

PGA500 

^ ■•“j -1 





3-DO; /* INDIRECT AUTO- IN ' 

127S 



t 


4-EFFECTIVEADDR = MEMWORD; 

1279 



t 


4-MASK = PSRMSK;- 

12S0 



t 


4-END; 

1281 


03EA^ 

PGA400 

EQU 

PGA200 INDIRECT AUTO INCREMENT 

1282 



t 


3-END; END CASE TSTD :K/ 

1283 



% 


2 -SUE FT ABLE (PSEj = EFFECT i VEADDR ; 

1284 


0404' 

PGA500 

EQU 

$ 

128f^ 

0404 

CB8F 


MOV 

R15- @PSE(R14) 


04 0S 

0000 




12S6 



t 


2 - S UBPT A B L E ( P S B ) r M E hi W 0 R D ; 

1287 

0408 

CB9F 


MOV 

*R15, ©PSB(R14) 


0 4 0 A 

0002 




1288 



t 


•2-MASK = RSHIFT (OR (MASK, PEBAMIO , 

1289 





4-DISP (SUBPTABLE) ) ; 

1290 

040 C 

026G 


OR I 

RIE/PEBAMK 


040E 

E000 




1 2 9 1 

0410 

090C 


SRL 

R12,0 

l,:98 



)k; 


2-PRINTFL.AG = OR (PRINTFLAG, MASK.) 

12' 9 3 

0412 

E80C 


SOC 

R12,@PRTFLG 


0414 

0030' 




1294. 





2-RETURN, 

1 235 

0416 

045B 


E 

4CR11 

1 i2 9 6 





2-END PGADDR, 



TRACE 

=== PRINT SUBROUTINE 
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1299 



.1 TITL 

E : 

PRTRC 

1300 





TRACE PRINT SUBROUTINE 

1301 



t REVISION^ 


1302 





ORIGINAL 

1303 



l; ABSTRACT: 


1304- 





THE VALUES OF PRINT FLAGS AND PTABLE ARE USED 

1305 



A 


TO PRINT A SEMI -FREE FORMAT TRACE OUTPUT. 

1306 






1307 



1 CALLING SEQUENCE: 

1308 





BL .©PRTRC 

1309 





JMP <ERROR/ESC ACTION) 

1310 



t 


R0, Rl, R2, R6, R7, RS . R9, R10, R12, R14, R15 

1311 



t 


R3 

1312 





ARE DESTROYED 

1313 



t 


1-PROCEDURE TRCPRINT (PRINTFLAG, 

1314. 





3 - T R C E N T R Y A D DR, PTABLE); 

1315 



t 


■2 - D E C L El R E T' F? C E N T R Y A D D R POINTER; 

1316 



t 


2-DECLARE PTABLE C 16) BIT ( 1 6 ) , 

1317 



t 


2 - D E C L A R E t 1 R I N T F L A G . 

1318 



t 


3- 3 PR TBIT i;i6) BIT CD); 

1319 



t 


2 -DEC LORE SOURCE VALUE BIT (16) 

1320 



t 


4 -CONTROL CSRCREG), 

1321 



t 


2- DECLARE DESTVALUE BIT (16) 

1322 



t 


4-CONTROL (DSTREG); 

1323 



t 


2 - D E C L A R E ( I , L I N E L E N GTH) F I X E D ; 

1324 



t 


2-DE C L A R E M A X L E N G TH LITERA L L. Y (65) ; 

1325 



.4'. 


2 - D E C L ARE E 1 . E M E N T L E N G T H LITER A L L Y ( 

1326 


0041 

MAXLN 

EQU 

65 

1327 


0009 

ELEMLN 

EQU 

9 

1328 





2-DE C L A R E P T R P 0 I N T' E R ; 

1329 



t 


2-DECLARE MEMWORD BIT (IG) CONTROL 

1330 



t 

> 

2-DE C L H R E V A R L N L I T E R A L L Y ' 11'. 

1331 


000B 

VARLN 

EQU 

11 

1332 


0418’ 

PRTRC 

EQU 

f 

1333 

0418 

C08B 


M 0 V 

R11,R2 SAVE RETURN 

1334 



:K 


2-PTABLE (P.ST) =: NEW ST; 

1335 

041A 

C820 


MOV 

@NEWST.@PTABLE+PST 


041C 

000C ' 





041E 

00AC' 




1336 



X 


2 - I F U S R W P . N E , t'.| E W W P THEN D 0 ; 

1337 

0420 

8820 


c 

©USRUP- ©NEWWP 


0422 

03C4’ 





0424 

000 A' 




1338 

0426 

1306 


JEQ 

PT010 

1 33i9 



X 


3-PTABLE (PWP) = NEWWP; 

13-0 

0428 

C820 


MOV 

©NEUUIP. @PTABLE + PWP 


0 4 2 A 

000A' 





042 C 

00AE’ 




13<:.l 



t 


3-PRINTFLAG = OR (PRINTFLAG, PUPMS 

13-2 

042E 

E820 


SOC 

©PWPMSK, ©PRTFLG 


0430 

002E’ 





0432 

0030’ 




13^' 3 



t 


3-END; 

1344 


0434' 

PT010 

EQU 

f 


TRACE 
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945387-9901 PAGE 0040 

1345 



t 


2-CALL UPDATEREG (PRINTFLAG, PTABL 

1346 



T. 


4-PSOURG, SRCREG); 

1347 

0434 

C2A0 


MOV 

@PRTFL.G,R10 UPDATE SOURCE REGS 


0436 

00 30" 




1 348 

0438 

06 H0 


BL 

@UDREG 


043 A 

05 '^6' 




1349 

043C 

00 46 ' 


DATA 

FT ABLE+PSOURC/SRCE^SRCR, SRCREG 


0 '1' 'J E 

01 40 





0440 

00 10 





0442 

00 46' 




1350 





2-CALL UPDATERE:G (PRINTFLAG, PTABL 

1351 





4-PDEST. DSTREG) ; 

1352 

0 4 4 4 

0 6 ! 1 0 


BL 

iUDREG UPDATE liEST I NAT 1 ON REGS 


0 448 

05iv6' 




1353 

0448 

00FE' 


DATA 

PTABLE + PDEST . DSTE , DSTR , DSTREG 


I,-;) I'-i- 4 A 

00 ■ 0 





0 4 4 C 

0002 





044E 

003S' 




1354 

0450 

C0t A 


MOV 

R10,R1 SAVE PRINT FLAG 

1355 


04E 2 ' 

PT030 

EQU 

* 

1356 



t 


2-PRlNTFLAG = AND (PRINTFLAG, 

1357 



t 


4-TRACETYPES ( 7 RACETYPE I NDEX ) ) ; 

•1358 

0452 

C2i^^0 


MOV 

@TEADDR,R10 


0454 

00 i 2 ' 




1 3 5 9 

0 4- b 5 

C2f^A 


MOV 

iTRT YP E ( R 1 0 ) , R 1 0 TRAC E T 'v P E IND E K 


045S 

00 G 0 




1360 

045 A 

0A] A 


SLA 

R10,l 

1361 

045C 

C i;Cl H 


MOV 

@TTTBL(R10) ,R10 TRACE TIRE 


045E 

0000 




1362 

0460 

054 A 


INV 

R10 

1,363 

0462 

404 A 


S2C 

R10, R1 

1364 



t 


2- IF PRINTFLAG .ME. 0 

1365 

0 4- 6 4- 

04C0 


CLR 

R0 

1360 

0 4- 6 ti 

1 3 2 6 


JEQ 

PT090 NOTHING TO PRINT 

1367 



% 


3-THEN PRTE:IT (0) -- 1; /* ASSURE P( 

1368 


0463' 

PT035 

EQU 

$ 

1369 

0468 

0261 


OR I 

R1,PPCMSK ASSURE PC PRINTED 


046A 

.8000 




1370 





2-LINELENGrH = MAXLENGTH, 

1371 

0 '4 6 C 

0206 


LI 

R6 < MAXLN 


0 46E 

0041 




1372 





2-DO I FROM 0 TO 15; 

1373 

0470 

04C3 


CLR 

RS LOOP COUNT 

1374 

0472 

ClCl 


MOV 

R1,R7 

w 

VI 
— 1 



t 


3- IF PRTEIT (I) ,NE. 0 THEN DO; 

1376 


0474' 

PT040 

EQU 

S 

1377 

0474 

0A17 


SLA 

R7,l 

1 J /■' 8 

0476 

171A 


JNC 

PT080 

1379' 



t 


4-LIHELENGTH = LINELEHGTH - ELEMEN 

1380 

0478 

0226 


AI 

R6, -ELEMLN 


047 A 

FFF7 




1381 



t 


4- IF LINELEHGTH <= 0 THEN DO; 

'13R2 

047C 

1502 


JGT 

PT050 

1383 



t 


5-CALL NEWLIM, 

1384 

047E 

06A0 


BL 

©NEWLIN 





TRACE = = = PRINT SUBROUTINE 945387-9901 ^^ PAGE 0041 



0480 

04F4' 




1385 



4. 


5-END; 

1386 


0482 ^ 

PT050 

EQU 

f 

1 3 S 7 



4 


4-CAI L PRINT (PRiMTTAGS (1), .? ) ; 

13SS 

04 S 2 

r'.'i 1-1 ^1 

020 A 


LI 

R10,PPTTAG 

138’'^ 

L’ '"'i' H' 

0 4 8 6 

kJ k j L- b 

A i;:' 8 8 


A 

R8,R10 

1 :3i 3 0 

9 '1- S 8 

0209 


LI 

R9, 2 


04SA 

0002 




139 1 

0 4 S C 

0 I.'!) f i 0 


BL 

©PRINT 


04SE 

0 0 0 3 




1399 

0490 

1030 


JMP 

PTS00 tttt ERROR/ESC RETURN 

1393 



4 


4- IF I > F-’IMST THEN CALL PPNTC CEQ: 

1394 

0 4 9 2 

0283 


Cl 

RS, PINST 


0494 

0 0 0 2 




1393 

04 96 

1 205 


JLF 

PTO70 

1396 

0493 

020 A 


LI 

R10.EQS1GN 


04 9h 

0000 




1397 

04 9 C 

06 A 0 


BL 

©PRNTC 


04 9 E 

0364 ' 




1398 

10 4 A 

1023 


JMP 

PT800 ERROR/ ESC RETURN 

1399 


04 A2' 

FT070 

EQU 

$ 

1 4 0 0 



4 


4 - C A L L P R M T H X ( P T A B L E ( I ) ) ; 

1401 

04A2 

C2AS 


MOV 

@PTABLE(R8) , R10 


i/'i (ij. |-| 4 

00A8 ' 




1402 

4 A b 

06 A0 


BL 

©PRNTHX 


04 A8 

0 0 0 >1' 




1403 

04 A A 

1023 


JMP 

PT800 ttt*. ERROR/ESC RETURN 

1404 



t 


4 - E N D ; 

1405 



% 


3 -END; 

1406 


04 AC' 

PT080 

EQU 

* 

1407. 

04 AC 

05C3 


INCT 

R8 

1408 

04 AE 

C1C7 


MOV 

R7, R7 

1409 

04E0 

16E1 


JNE 

PT040 

1410 

04B2 

0 5 8 0 


INC 

R0 

1411 



t 


2-DO WHILE STACK INDEX > 0; 

1412 



t 


3-STACK INDEX = STACK INDEX - 1: 

1413 


04B4' 

PT030 

EQU 

$ 

1414 

04B4 

C1E0 


MOV 

iSTINX, R7 


04B6 

00E4' 




1415 


04 B3 ' 

PT100 

EQU 

'1 

1416 

04BS 

0647 


DECT 

R7 

1417 

04 BA 

lllA 


JLT' 

PT190 

1418 





2-LTR = ADDRSTACK ( STACK I NDEX ) ; 

1419 

04 BC 

C227 


MOV 

@ADRSTK(R7) . R8 


04BE 

00ES ' 




1 4 2 0 



•vF- 


2- IF MEMWORD . NE . BEFORECONTENTS 

1421 





4- (STACK I NDEX) THEN DO; 

1422 

04C0 

8627 


c 

®B4CNTS(R7) ,*R8 


04C2 

00EE' 




1423 

0 '4 C 4 

13F9 


JEQ 

PT100 

1424 

04 C 6 

C000 


MOV 

R0,R0 

1425 

04 C 8 

13CF 


JEQ 

PT035 

1426 





3-LINELENGTH = LINELENGTH - VARLN; 

1427 

04CA 

0226 


A I 

R6,. -VARLN 


RACE 

= = =: PRINT SUBROUTINE 
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04CC; 

FFFi'; 



142S 


t 


3- IF LINELENGTH < 0 THEN CALL. NEWLI ''Lr' 

1429 

04CE 

1502 

JGT 

PT110 

1 4 3 0 

04 D0 

0 6 A 

BL 

0NEWLIN 


04D2 

04 F4' 



1 4 3 1 


04 D.-' PT110 

EQU 

f 

1432 


t 


3-CALL PRNTHN (PTR) ; 

1433 

04D4 

C288 

MOV 

RS.R10 

1 434 

0 4 D 6 

0 6 A 0 

BL. 

(5PRNTHN 


04DS 

0000 



1435 

0 4 D A 

1001-' 

JMP 

P T 8 0 0 1 4. * % ERR 0 R / E S C R E T U R N 

1 436 


* 


3-CALL PRNTC (EQSIGN) ; 

i 437 

0 4 D C 

iT-i /I Tl P' 

02 0H 

lyWl Q r \ J' 

LI 

R10,EQSIGN 

1438 

'cJ '4 .U L„ 

04E0 

y Z> I" ! 
0 6 f'-i 0 

BL 

0PRNTC 


04E2 

049E' 



1439 

04E4 

1006 

JMP 

PTS00 tttt ERROR/ESC RETURN 

1440 


■* 


3 - C A L L P R N T H X i M E M U 0 R D ) ; 

1441 

04E6 

C298 

MOV 

TRS.R10 

1442 

04 ES 

06 A0 

BL 

0PRNTHX 


0 4 E A 

04 A8' 



1443 

04EC 

1002 

JMP 

PT800 **** ERROR/ESC RETURN 

1444 


t 


3-END; 

1445 

04EE 

10E4 

JMP 

PT100 

i 446 


04F0' PT190 

EQU 

$ - . 

1447 


T 


2-RETURN; 

144S 


04F0' PT700 . 

EQU 

$ S^ 

1449 

04F0 

05 C2 

INCT 


1450 


04F2' PTS00 

EQU 

^ J 

1451 

04F2 

0452 

B 

TR2 

1452 


* 



1453 


JK 



1454 


* 


PRINT A NEW LINE 

1455 


04F4' NEULIN 

EQU 

f 

145f3 

04 F 4 

C0CE 

MOV 

Rll. R3 

1457 

04F6 

020 A 

LI 

R10,NULINE 


04 F 8 

0024' 



1458 

04FA 

06 A0 

BL 

0PRNTC 


04FC 

04E2' 



1459 

04FE 

10F9 

JMP 

PTS00 tttt ERROR/ESC RETURN 

1460 

0500 

0206 

LI 

R6,MAXLN RE-ESTABLISH LINE COUNT 


0502 

0041 



1461 

0504 

0453 

B 

TR3 

1462 


* 


2-END PRTTRACE; 
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1465 



* TITLE: 

UDREG 

1 4 6 6 



% 

UPDATE REGISTERS 

1467 



:t: REVISION: 


1468 



4: 

ORIGINAL 

1469 



4 ABSTRACT: 


1470 



4; 

T l-l E I N D I C A T E D S 0 U R C E ( D E S T I N ATI 0 N ) E F F E C T I V E 

1471 




ADDRESS iS USED TO SET THE 'AFTER' CONTE'.NTS 

1472 



t 

0 F THE E F F E C T I V E A D D R ESS . IN ADD I T I 0 M . I F 

■■ 1473 



■4‘ 

.•T> 

'REGISTER' F L A G I S S E T J N P R i H T F L A G . T H E N 

1474 



t 

IF THE CONTENTS OF THE REGIS'^'F.R HAVE CFIANGED. 

1475 



t 

THEN THE NEW CONTENTS ARE SET IN PTABLE'- ELSE 

1476 



t 

THE 'REGISTER' FLAG IS RESET 

1 4 7 7 



t CALLING SEQUENCE: 

1478 



4*‘ 

(R10> : : PRINT FLAG 

1479 



T 

BL ©UDREG 

1480 



4 

DATA <BASE ADDRESS OF REGISTER SET IN PTABLE> 

1481 



•,L 

DATA (EFFECTIVE ADDRESS MhSIC: 

1488 




DATA ^REGISTER CONTENTS MASK; 

1483 



4 

DATA (ADDRESS OF REGISTER;:- 

1484 



4 


1485 



;i: 

1 F-' R 0 C E" D U R E U f-*' D f-'i T f:” R EG ( P R I N T I- L.. R G / 

1486 



:t 

4-BASE, REG) ; 

1487 



4 

2 -DEC LORE REG F'O INTER; 

1488 



4 

2- DECLARE NEMHORD Ef i T (lb.' LuNFFAjL 

1489 



4 

2-declhre ease filed (16;:, 

1430 



4 

2 -DECLARE (1 PRIN'iFLAG, 

1431 



4 

3- 3 PRTB i T ( 1 6 ) B I T C 1 ) ) ; 

1492 



4 

2 - D E C L A R E P T A BLE ' 1 6 ) B IT (1 6 ) , 

.1433 



4: 

2-DEC L ARE PTR POINTER; 

1434 



t 

2 - D E C L A R E M M 0 R D BIT (1 6 ) C 0 M T R 0 L C P 

1495 


0506' 

UDREG EQU 

f 

1436 

0506 

C3FE 

MOV 

4R11+.R15 PTABLE BASE ADDRESS 

1497 



% 

2- IF PRTBIT CEASE-i-PSE) = 1 THEN DO; 

1498 

0508 

22BE 

C 0 c 

;TR11+, R10 

1499 

050 A 

1604 

JNE 

UDREG 2 IF THIS \<EQ UNUSE-D 

1500 



4 

3 p T R = P T f :i B L E ( B h S E + 1"’ ;S El ;> ; 

1501 

050C 

C3AF 

MOV 

@PSE(R15) ,R14 


050E 

0000 



1502 



4 

3 - P T A B L E ( B A S E + P S A ) = H W U R D ; 

1503 

0510 

CEDE 

MOV 

4R14, @PSA(R15) 


0512 

0004 



1504 



t 

3 -END; 

1505 


0514' 

UDREG2 EQU 


1506 

0514 

C3BE: 

MOV 

4R11+,R14 REG CHANGE MASK 

1507 

05 16 

C03B 

MOV 

4R11+,R0 REG ADDR 

1508 



4 

2- IF PRTBIT ( BASE-t-PSF') = 1 THEN DO; 

1509 

0518 

228E 

coc 

R14,R10 

1510 

051 A 

1608 

JNE 

IJ D R E G 4 I F D 0 N T C A R E A B 0 U T RE G C H A N G E 

1511 



4 

3 -PRTB IT CBASE + PSFO 0, 

1512 

051C 

428E 

szc 

R14, R10 

1513 



4 , 

3 - I F M E M W 0 R D . N E , P T A B L„ E ( B A S E -i- P ::S R ) 

1514 

051E 

C010 

MOV 

4R0,R0 

1515 

0520 

SBD0 

c 

4R0, ©PSRCRIS) 


0522 

£>006 






TRACE 
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1B16 

©!d24 

1303 

JEQ 

UDREG4 IF NO CHANGE 

1517 



>ic 

4-PRTB I T ( BASE + PSR ) - 1 ; 

1518 

0526 

E2SE 

soc 

R14, R:10 

1 5 1 9 




4-PTAELE CB:ASE + PSR) = MEMWORD; 

1520 

0528 

CBD0 

MOV 

*R0. @1-’SR(R15) 


05 2 A 

0006 



1521 




4-END; 

1522 



* 

3-END; 

1523 


052 C 

^ UDREG4 EQU 

S 

1524 



* 

u2-RETURN; 

1525 

052C 

045B 

B 

*R11 

1526 



)'K 

2-END UPDATEREG; 








TRACE 
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1529 




TITLE : 

PUSH 

1530 



4 


PLACE ADDRESS AND (ADDRESS) ON STACK 

1531 



)?■: 

REV I S I ON : 


1532 





ORIGINAL 

1 



.4' 

ABSTRACT : 


1534 





THE PASSED ADDRESS AMD ITS CONTENTS ARE PLACED 

1535 



.4 


ON THE STACK. STACK OVERF'LOl.J IS DETECTED 

1536 





AND IGNORED. 

1537 



t 

CALLING SEQUENCE: 

1538 





<R10> ::= ADDRESS 

1539 





BL , @PUSH 

1540 





1 - P P 0 C E D U RE P U S H S TACK ( A D D R .'i ; 

1541 



t 


2-DECLARE ADDR POINTER; 

1542 



Z 


2 - D E C L A R E S T A C K M A X LITERALLY ' 4 ' ; 

1 5< 4 3 



z. 


2-DECLARE ME MHORD BIT (16) CONTROL 

1544 






1545 


052E' 

PUSH EQU 

S 

1546 





2 - { F- ST f\ C: K I f 1 D E . X " • - S T“ f-i C' K !• { i-i i-s T‘ H 2 F-! R 

1547 

052E 

C060 


MOV 

QSTINX, R1 


0530 

©0E4' 




1548 

0532 

0281 


Cl 

R1 ,STKMAX 


0534 

0008 




1549 

0536 

1406 


JHE 

PUSH90 

1550 



t 


2-ADDRSTACK ( STACK I NDEX ) = ADDR; 

1551 

0533 

C84A 


MOV 

R10, @ADRSTKCR1 ) 


053A 

00EG ' 




1552 





2-BEFORECONTEMTS (STACK I NDEX) = ME 

1553 

053C 

CSS A 


MOV 

XR10, @B4CNTSCR1 ) 


053E 

00EE' 




1554 





■ 2 - S TACK I NDEX = S T A C K I N D E X + i - 

1555 

0540 

05E0 


INCT 

@ST I NX 


0542 

00E4' 




1556 





2-RETURN, 

1557 


0544' 

PUSH90 EQU 

% 

1558 

0544 

045B 


B 

:lcRll 


c 



TRACE 
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1561 



TI-'LE: 

ATOINC 

1562 




AUTO INCREMENT TEST 

1563 

1564 


t 

REV I S I ON : 

ORIGINAL 

1565 

1566 


% 

ABSTRACT : 

. i ■ ■ 

THE SOURCE REGISTER IS INCREMNTED BY TWO 

1567 




IF NECESSARY, 

IE 368 



CALLING S 

EQUENCE: 

1569 




BL SATOINC 

1570 




1 -PROCEDURE A U T 0 I NC T E S T ; 

1571 




2- IF AND (SRCRNM. "30") = "30" 

1572 


0546' ATOINC EQU 

$ 

1573 

0546 

0201 

LI 

Rl<>30 


054S 

©030 



1574 

054 A 

4060 

SZC 

@SRCRNM-R1 


054C 

0016' 



1575 

054E 

1603 

JNE 

ATO190 

1576 


X 


3-THEN SRCREGCONTENTS = 

1577 




3- SRCREGCONTENTS + 2 ; 

1578 

0550 

C060 

MOV 

@SRCREG,R1 


0552 

0036' 



1579 

0554 

05D1 

INCT 

. T::R 1 

1580 


* 


2-END.; 

1581 


0556' ATOI90 EQU 

% 

1582 

0556 

045B 

RT 


1583 



END 




0000 ERS 





























OUHP MEMORY TO CASSETTE 


945388»R00l 


PA6I 0002 


0009 

0004 

0008 

0006 

0007 

0008 
0009 
00t0 
0011 
0012 

0013 

0014 
0018 
0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 
0028 
0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 
0038 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 
0048 

0046 

0047 

0048 

0049 
0080 

0091 

0092 
0053 
0094 
0098 
0096 


* TITlEl 

* 

* 

* REVXSIONI 


OPRG 

DUMP MEMORY TO CASSETTE IN ASS DATA PORMAT 


0RI61NAI. 


* ABSTRACT! OPRG IS A PX990 MONITOR COMMAND PROCESSOR NHXCH 

* TRANSLATES THE MEMORY AREA DCfINEO BY "START" 

* AND "END" INTO THE ABSOLUTE LOAD DATA FORMAT 

* AND SAVES THE PROGRAM IMAGE ON CASSETTE TAPE, 

* 

* IF THE OPERATOR WANTS THf OUTPUT DIRECTED TO 

* OTHER than the DEFAULT OUTPUT CASSETTE UNIT, 

• LUNO 7 MUST BE ATTACHED TO THE DESIRED DEVICE 

• PRIOR TO ENTERING THE "OP" COMMAND, THE TRANS- 

♦ FER WILL BEGIN AT THE CURRENT TAPE POSITION. 

* THE COMMAND WILL ABORT IF THE SELECTED UNIT IS 

• NOT READY OR ENCOUNTERS AN UNRECOVERABLE ERROR; 

* 

* IF "ENTRY" AND/OR "NAME" PARAMETERS ARE ENTERED 

* THEY ARE APPROPRIATELY TAGGED FOR THE LOADER 

* AND WRITTEN WITH ThE ABLOLUTE LOAD ADDRESS AS 

* THE FIRST DATA RECORD ON THE FILE, 

* 

♦ CONTIGUOUS WORDS HAVING THE SAME DATA VALUE 

• will be compressed before dumping 

* ' 

♦ IF "PARTIAL" parameter ENTERED, EOM TAG AND END 

* OF file will NOT BE OUTPUT ON TAPE, | 

# ^ 
t CALLING SEQUENCEt 

* OP START, END, ENTRY, NAME, PARTIAL 

• 

# STARTCR«QD)i l-»4 HEX CH. REPRESENTING THf AOOR, 

* OF THE FIRST BYTE TO BE DUMPED 

* END (R» GO) I 1-4 HEX CH. REPRESENTING THE AOOR, 

* OF the byte after the last BYTE DUMPED, 

* ENTRY(OPT)! 1»4 HEX CH. REPRESENTING THE AOOR, 

# AT WHICH EXECUTION 18 TO BEGIN WHEN THE 

* prog, is RELOADED (NO DEFAULT SUPPLIED), 

♦ NAME (OPT) 11.23 ALPHANUMERICS, THE NAME BY WHICH 

♦ THE PROGRAM IS TO BE KNOWN (NO DFLT SUPPLIED) 

♦ PARTIAL(OPT)! 1 CH*. IF CHAR EQUALS 'PI THEN 

♦ partial DUMP OCCURS, 


ERROR COOES 

MS01 SYNTAX error iABORT 

M809 REQUIRED PaRM NOT ENTERED •ABORT 

MP00 parameter specification error •abort 

MX01 unrecoverable I/O ERROR • .ABORT 

0Pl3 INCORRECT LIMITS 


****** AL60RITHMI 



)UMP MIMORY 

TO CASSETTE 


9493B8-9901 ♦♦ 

PAGE 0003 

0097 


♦ 


NOTEl IN-LINE COMMENTS CORRES. W/STATEMENTS 

0098 


* 




0099 






0060 



IDT 

•ABSOMP' 


0061 


♦♦♦•REGISTER EQUATES***** 


0069 


* 

ALL 

REGISTER REFERENCES IN ABS DUMP ARE VIA ACRONYMS 

0063 


* 

INDICATIVE OF THE CURRENT CONTENTS OF THE REGISTER. 

0064 


♦ 

THE 

FOLLOWING DEFINES 

the ACRONYMS. WHEN MULTIPLE 

0069 


♦ 

ACRONYMS ARE ASSIGNED 

TO A REGISTER, THE ORDER OF 

0066 


* 

THEIR USE CORRESPONDS 

TO THE ORDER GIVEN BELOW, ANY 

0067 



TIME 

A REGISTER FREES 

UP, OR gets re-assigned, one 

0068 


* 

OF THE FOLLOWING COMMENT CAROS WILL SO INDICATE, 

0069 






0070 


*♦♦ REGISTER REASSIGNMENTIPRIOR WPXi»PTRl»i NEW WPXi»PREE» 

0071 


*♦♦ REGISTER REASSIGNMENTIPRIOR WPXi’PTRl’, NEW WPXi»PTR2» 

0072 


♦ 




0073 

0000 

R0 

EQU 

0 

SCRATCH 

0074 

0000 

DATA 

EQU 

0 

16 BIT DATA VALUE 

0079 

0001 

R1 

EQU 

1 

SCRATCH 

0076 

0002 

CPRM 

EQU 

2 

ADOR, OF COMMAND FARM, TABLE 

0077 

0003 

HOR 

EQU 

3 

header FROM COMMAND FARM, TAB 

0078 

0004 

ST 

EQU 

4 

DUMP START ADOR. 

0079 

0009 

UN 

EQU 

9 

DUMP LENGTH 

0080 

0006 

EP 

EQU 

6 

DUMP ENTRY POINT 

0081 

0006 

OUPC 

EQU 

6 

compression repeat COUNT 

0082 

0007 

PRBA 

EQU 

7 

PRB address 

0083 

0008 

6FRA 

EQU 

8 

OUTPUT BFR index 

0084 

0009 

BPRE 

EQU 

9 

END OF OUTPUT BFR 

0089 

000A 

R10 

EQU 

»A 

SCRATCH 

0086 

0006 

Rll 

EQU 

»B 

return pc 

0087 

000D 

R13 

EQU 

»D 

ADOR. OF PREVIOUS WORKSPACE 

0088 


♦♦♦ ABSOLUTE DATA FORMAT EQUATES 

0089 


♦ 




0000 

0004 

ABS 

EQU 

4 

16 BIT ABS DATA TAG 

0001 

0070 

ABEND 

EQU 

>70 

END OF module TAG 

0092 

0073 

ABEP 

EQU 

>73 

16 BIT ABS ENTRY POINT 

0093 

0006 

ABLP 

EQU 

6 

16 BIT ABS LOAD POINT 

0094 

0071 

ABPN 

EQU 

>71 

1-8 CH, PROGRAM NAME 

0099 

0076 

ABRP 

EQU 

>78 

ABS DATA REPCATCC0MPRE885 

0096 

0009 

ABS8 

EQU 

>9 

8 BIT abs Data 

0097 

0079 

ABCKSM 

EQU 

>75 

16 BIT ChECKSUM(ABS) 

0098 


♦ 



' 

0099 


*♦♦ SERVICE 

call equates 


0100 


♦ 




0101 

0000 

OPEN 

EQU 

0 

OPEN FILE 

0102 

0000 

EOF 

EQU 

13 

WRITE END-OF-FILE 

0103 

0008 

WRTA 

EQU 

11 

WRITE ASCII 

0104 


* 




0109 


♦♦♦ ERROR MESSAGE EQUATES 


0106 


♦ 




0107 

0209 

MS09 

EQU 

>0205 

required parameter missing 

0108 

0100 

MP00 

EQU 

>0100 

NUMERIC VALUE OUT OF RANGE 

0109 

0001 

MX01 

EQU 

>0001 

unrecoverable I/O ERROR 

0110 

1113 

DP13 

EQU 

>1113 

limit error 

0111 


*** EXTERNAL REFERENCES 



DUMP MEHORY to cassette 


94SS6S»99S| ** 


PASS 0004 


0119 

0113 

0114 

0115 
0115 
0117 
0115 

0119 

0120 
0121 
0122 

0123 

0124 
0123 

0125 
0127 
0125 

0129 

0130 

0131 

0132 

0133 

0134 

0135 
0135 
0137 
0135 

0139 

0140 
0151 
0H2 

0143 

0144 

0145 
0145 
0147 
0145 

0149 

0150 

0151 


* 

REP ACl 
REP RITW8P 
REP RETBUP 
REP ERROR 
REP RR 
REP SVCALT 
*«* data SECTIONS 


OVERLAY PARAHETERS 




OEP 

0PR6 



REP 

lOABS 

0000 

44 

TEXT 

»OP» 

0002 

0072* 

DATA 

OPRG 

0004 

4C 

TEXT 

»LA* 

0005 

0000 

DATA 

UDABS 

0008 

0000 

DATA 

0 


# 

tt# PERIPHIRAk RtQUIST itOCKCPPi) 



000A' 

PRB 

EQU 

S 

000A 

00 

SVC 

BYTE 

0 

000B 

00 


BYTE 

0 

000C 

00 

PRIOR 

BYTE 

0 

0000 

07 

PRIOLN 

BYTE 

7 

000E 

00 

PRSF8 

BYTE 

0 

000P 

00 

PRUPS 

BYTE 

0 

0010 

001At 

PRBFA 

DATA 

BPR 

0012 

0056 

PRBLN 

data 

86 

0014 

0000 

PRCNT 

DATA 

0 

0016 

0000 


DATA 

0 

0018 

0000 


DATA 

0 


# 

*** output supper eSPR) 

001 A BPR iSS 85 

* 

0070 50 PARTIL TEXT »P » 

* 



dump memory to cassette 
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0153 

0154 

0155 

0156 

0157 

0158 

0159 
0180 
0181 
0168 
0189 
0164 
0189 
0166 

0167 

0188 

0169 

0170 

0171 
0178 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 
0189 
0186 

0187 

0188 

0189 

0190 
0101 
0192 

0199 

0194 

0195 

0196 

0197 


0072* DPRG 


dee 

EQU 


DPRG 

$ 


0072 

C08A 

MOV R10.CPRM 

0074 

0420 

BLHP PACL 

0076 

0000 

*•1 IF((8TRB,ANO,LN65),EO,03 

0078 

C0F2 

hov *cprm*#hor 

007 A 

0A99 

SLA H0R,9 

007C 

1702 

JNC abrti 

007E 

0A13 

SLA HDR.l 

0080 

1804 

JOC DPRG01 

0082* 

ABRTI EQU S 

0082 

020A 

Ll R10.MS09 

0084 

0209 

ABRT2 EQU S 

0086* 

0086 

0460 

8 PABORT 

0088 

01BE* 

DPRG01 EQU S 

*1 CALL TRPLT(A8LP»ST) 


008A* 

008A 

C132 

MOV *CPRM+fST 

008C 

C172 

MOV *CPRM^,LN 

008E 

6144 

S ST.LN 

0090 

0589 

INC LN 

0092 

1503 

JOT OP001 

0094 

020A 

Ll R10.OP13 

0096 

1113 

JMP ABRT2 

0098 

10F6 

009A* 

DP001 EQU 1 

009A 

C004 

MOV ST.R0 

009C 

0201 

Ll Rl.ABLP 

009E 

0006 

Ll BFRA.BFR 

00A0 

0208 

00A2 

001A* 

Ll bfre.bfr^sb-s-s 

00A4 

0209 

00A6 

0060* 

BL PTRPLT 

00A8 

06A0 

00AA 

01CA* 

♦1 IF(EPB) 


abs dump entry point 


SAVE PaRM ADOR in 0RI6 WP 


CHECK FOR START PARM PRESENT 
AND abort if NOT 
CHECK FOR LENGTH PRESENT 
JUMP IF OK 


GET THE start AND LENGTH PARM 
FIND LENGTH 

IF LEN LE 0 THEN LIMIT ERROR 


MOVE THE LOAD POINT INTO THE 
OUTPUT BUFFER. 


leave room for checksum 


00 AC 
00AE 


♦ 2 
♦ 2 
*2 
*2 
*l 
*1 
•I 
*l 


the N I 

call TRPLT(A8EP,EP3 
IFC(EP»8T) .GE,LN)CALL ABORT ?MP02) 
ELSE* 


enoif 


00B2 

0084 


0A13 

170E 

0200 

7300 

DE00 

C012 


SLA HDR.l 
JNC DPRG02 
Ll R0,ABEP*256 

MOVB R0,*BFRA* 
MOV *CPRM,R0 


TEST FOR IP PRESENT 
JUMP IF NOT 


MOVE EP TO OUTPUT 8FR 


DUHP HiMORY TO CASSETTE 


949388ti990| ** 
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0198 

0088 

0201 


U 

Rl.ABS 



00BA 

0004 





0199 

00BC 

06A0 


61 

PTRPLT 



0086 

01CA» 





0200 

00C0 

C032 


MOV 

*CPRM+,R0 

TEST 70R EP IN DUMP AREA 

0201 

00C2 

6004 


8 

ST,R0 


0202 

00C4 

020A 


LI 

R10,MP00 

IF EP NOT IN RANGE, 


00C6 

0100 





0209 

00C8 

8140 


C 

R0iLN 


0204 

00CA 

MOD 


JHE 

A0RT2 

LOAD ERROR MSG, AND ABORT 

0208 







0206 


00CC' 

OPRG02 EOU 

S 


0207 







0208 



*1 

I7(NMB)0UT(NAHE) 


0209 

00CC 

0A13 


SLA 

HOR.l 

CHECK FOR PROG NAME PRESENT 

0210 

00CE 

1711 


JNC 

OPRG04 

AND JUMP IF NOT 

0211 

0000 

04C1 


CLR 

R1 

get program name TAG 

0212 

0002 

0072 


MOVB 

*CPRH*|R1 

and character count 

0219 

0004 

0261 


OR! 

Ri«A6S*4096*ABPN 



0008 

4071 





0214 

0008 

06C1 


SWPB 

Rl 

INTO OUTPUT BFR, 

0219 

00OA 

0101 


MOVB 

R1 1 ^B7RAa 


0216 

00 DC 

06C1 


SWpB 

Rl 


0217 

0001 

DE01 


MOVB 

Rl,*B7RA^ 


0216 

00E0 

0A31 


8LA 

Rl,9 

clear 077 all BUT LON ORDER 

0219 

00E2 

0981 


SRL 

Rl.ll 

SIX BITS 07 CHARACTER COUNT 

0220 

00E4 

A042 


A 

CPRM,R1 

& ADJUST TO END OF STRING, 

0221 







0222 


00E6« 

OPRG03 EOU 

$ 

; Cj. 

0223 







0224 

00E6 

0192 


MOVB 

♦CPRB+# *BFRA* 

MOVE program name INTO 

0229 

00E8 

8042 


C 

CPRM,Rl 

OUTPUT buffer 

0226 

00EA 

1170 


JLT 

OPRG03 

LOOP back till done 

0227 

00EC 

0911 


SRL 

Rl.l 

CHECK IF ON A EVEN BOUNDARY 

0226 

00EE 

1701 


JNC 

OPRG04 


0229 

00P0 

0982 


INC 

CPRM 

MOVE POINTER TO NORO BOUNDARY 

0290 


0072 » 

OPR604 EOU 

S 

PARAMETER VALIDATION COMPLETE 

0291 


t 





0292 



*1 

CALL OPEN(PRB) 


0299 



* 

CIN 1 

LINE EXPAN8I0N) 


0294 

00P2 

0207 


Ll 

PRBA.PRB 

get PRB ADOR in REG 


00P4 

000A* 





0299 

0076 

0200 


H 

R0,OP|N 

OPEN the DEVICE 


0078 

0000 





0298 

007A 

0600 


MOVB 

R0,#PRSF6 

CLEAR SYSTEM FLAGS THEN 


007C 

0001^ 





0297 

007E 

0800 


MOVB 

R0,fPRIOP 



0100 

000C»' 





0298 

0102 

C287 


MOV 

PRBA.R10 


0299 

0104 

0420 


BLWP 

psvcalt 



0106 

0000 





0240 

0108 

0020 


MOVB 

PPR876,R0 



010A 

000E> 





0241 

010C 

1672 


4NE 

DPR604 

LOOP until OEVlCi IS READY 

0242 



•1 

CALL LABEL(PRBA,B7RA,B7RE3 




I 


DUMP 1 

ilHORY 

TO qAS0ETTE 

949308-9901 ** 
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0249 

010E 

0200 


LI 

R0|WRTA*296 

SET PRB I/O CODE TO 


0110 

0900 





0244 

0112 

0800 


MOVB 

R0,7PRIOP 

WRITE ASCII 


0114 

000C’ 





0249 



*1 CAUL CK8M(07RAiB7R) 


0249 

0U6 

00A0 


Bl 

• CK8M 

CHECKSUM THE DATA 


0110 

021A* 





0247 



*1- CAU WRJTE(B7RA,PRBA,8TATU8) 

0240 

011A 

0OA0 


Bl 

PWRITI 



0UC 

01EE' 





0249 

011E 

1640 


jne 

OPRGlB 

JUMP IF WRITE failed 

0290 



*1- I7(MOO(8Tr2),NE,0)CAU 

BYT0UTCST,BFRA5 

0291 

0120 

C004 


MOV 

8T,R0 


0292 

0122 

0010 


8RC 

R0il 

PUT L8B OF START IN CARRY BIT 

0293 

0124 

1703 


JNC 

OPRQ10 


0294 

0126 

00A0 


Bl 

•bytout 

CALL bytout. 


0120 

0200 1 





0295 

012A 

0009 


DEC 

IN 


0290 



*** NOW READY TO 0TAPT DATA 

TRAN8FER--PR0CES8 CODED IN LIME 

0297 



*REO REA8SX6NI PRIOR R6iEP 

. NEW R6WDUPC (COMPRESSION CNTR) 

0290 



♦ 




0299 


0t2C< 

DPRG10 

equ 

S 


0290 







0201 

012C 

04C0 


CIR 

DUPC 

CLEAR REPEAT COUNT 

0262 

0121 

0285 


Cl 

IN.l 

HAVE all BYTES BEEN OUMPEOt 


0130 

0001 





0269 

0132 

1321 


jeq 

0PRS19 

JUMP IP ON BYTE remaining 

0264 

0134 

1122 


JIT 

0PR016 

JUMP IF all done 

0260 


0130» 

OPRCtl 

EQU 

$ 


0260 

0130 

C034 


MOV 

*0T+,DATA 

GET THE NEXT WORD AND CHECK 

0267 

0136 

0645 


DECT 

IN 

FOR POSSIBLE COMPRESSION. 

0260 

013A 

0289 


Cl 

LN,1 



013C 

0001 





0269 

013E 

1900 


jeq 

0PR612 

JUMP IF end of DATA 

0270 

0140 

1107 


JIT 

0PR612 

JUMP IP END OF DATA 

0271 

0142 

8900 


C 

0ATA,*8T 

JUMP IF NO COMPRESSION 

0272 

0144 

1609 


JNE 

0PRG12 

REQUIRED 

0273 

0140 

0860 


INC 

DUPC 

INCR REPEAT COUNT AND CHECK 

0274 

0140 

0286 


Cl 

0UPC,63 

FOR MAX COMPRESSION 


014A 

0037 





0270 

014C 

1174 


JIT 

OPRGll 

JUMP TO continue COMPRESSION 

0276 

0l4g 

0606 


DEC 

OUPC 

(ADJUST REP COUNT! 

0277 


0190* 

DPR612 

EQU 

S 


0270 

0190 

0286 


Cl 

OUPC,0 

CHECK FOR COMPRESSION AND 


0192 

0800 





0279 

0194 

1909 


jeq 

DPR613 

JUMP IF NONE OCCURED 

0200 

0l90 

0220 


AX 

DUPC,ABRP*19*AB9*16*1 El8E, GENERATE THE 


0190 

7641 





0201 

019A 

OE06 


MOVB 

DUPC,*B7RA^ 


0202 

019C 

06C0 


8WPB 

DUPC 


0203 

0196 

OE09 


MOVB 

0UPC,*B7RA+ 


0204 



# 



Character count, ano 

0209 



* 



STORE IN the output 

0206 



# 



buffer. 

0207 


0160’ 

DPP813 

EQU 

f 



OUHl* HfHOty TO CASSSTTE 9483«t.990l ** PACE 0008 


0880 



♦ ♦ 

TRANSMIT THE DATA TRIPUET #• 

0889 

0100 

0201 



U 

RliABS 

SET TAG TO 10 BIT ABS DATA 


0188 

0004 





jO 

0890 

0184 

0OA0 



iU 

ptrplt 

AND translate INTO OUT BPlrf 


0180 

01CA' 






0891 

0108 

18E1 



JIE 

OPRC10 

REPEAT IP BPR NOT PULL, 

0898 


018A« 

0PRG14 

ecu 

s 


0893 




OUTPUT 

BUPPER IS PUUf * 

».OUMP IT TO tape 

0894 

016A 

0OA0 



Bl 

9CK8M 

CHECKSUM THE DATA AND 


016C 

081 A » 






0899 

019E 

0OA0 



Bl 

•WRITE 

WRITE THE BUPPER 


01^0 

0lff » 






0898 

01P8 

1083 



JNE 

0PR618 

JUMP IP WRITE PAILEO 

0197 

01T4 

1008 



JMP 

DPRG10 

ELSE, REPEAT FROM TOP 

0898 


il70» 

0PRQ19 

EQU 

S 


0899 

0170 

0OA0 



Bl 

•8YT0UT 

ONE BYTE left. OUTPUT IT, 


0178 

0808’ 






0300 


017A’ 

OPRSIO 

EQU 

$ 


0301 

017A 

0A13 



SLA 

HOR,l 


0308 

017C 

170D 



4NC 

OP080 


0303 

017B 

C018 



MOV 

*CPRM,R0 

IP PARM ;EQ. partial 

0304 

0180 

0A80 



IIA 

R0,9 


0309 

0188 

9800 



C8 

R0,PPARTIL 

THEM EXIT WITHOUT WRITTING 


0184 

0070’ 






0300 

0180 

1608 



JNI 

OP020 

EOP; 

0307 

0188 

8808 



C 

8PRA,*PRiPA 



018A 

0010’ 






0308 

018C 

131A 



jeq 

0PR619 


0309 

0181 

06A0 



81 

• CK8M 

■ ^ 


0190 

081A« 






0310 

0198 

0OA0 



8l( 

•WRITE 



0194 

01EE« 






0311 

0190 

1019 



jMP 

DPRG19 

ELSE 

0318 


0198’ 

DP020 

EQU 

S 


0313 

0198 

0800 



Ll 

R0,ABENO*896 

add eom tag to data 


019A 

7000 






0314 

019C 

OE00 



M0V8 

R0i*BPRA* 


0319 

019E 

06A0 



Bl 

•CK8M 

ELSE, CHEK8UM THE OATA AND 


01A0 

021A’ 






0310 

01A8 

0OA0 



Bl 

•WRITE 

WRITE IT OUT 


01A4 

01EE’ 






0317 



* 





0318 


81A8> 

0PRC17 

EQU 

S 


0319 



# 





0380 




THE DUMP IS PINISHEO-w* 

CLOSE THE PILE AND TERMINATE 

0381 



♦ 





0398 

01AO 

0800 



LX 

R0,iOP#896 

WRITE EOF 


01A8 

0000 






0383 

01 AA 

0800 



MOVB 

R0, •PRIOR 



01AC 

000C’ 






0384 

01AE 

C887 



MOV 

PRBA,R10 


0389 

0180 

0480 



BLWP 

•svcalt 



0188 

0106’ 






0380 

0184 

0020 



MOVB 

•PRSP6,R0 



0180 

000E’ 








OUHP himory to cassette 
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0327 

0328 

01B8 

1304 


JEQ 

0PRG19 

0329 


01BA» 

0PRG18 

EQU 

S 

0330 

0331 

01BA 

01BC 

020A 

0001 

# 

LI 

R10«M)(01 

8332 

0333 


01BE' 

ABORT 

♦ 

EQU 

8 

0334 

0338 

01BE 

01C0 

08A0 

0000 


BL 

PERROR 

0338 

0337 


0102’ 

DPR6I9 

♦ 

EQU 

S 

0338 

0102 

0104 

0420 

0000 


BUMP 

PRR 

0339 

0340 

0108 

0108 

0282 

04SB 


MOV 

RT 

CPRM,R10 


JUMP IF WEOF 8UCCE8SFUI. 
load I/O ABORT MS6IO 

OUTPUT the error ME88A6E 
RESET R10 FOR CMO PRC8R 


TflAN$ 10 0IT8 TO 9 BYTES 949988.9901 ** PAGE 0010 


0943 



# 

title 1 

TRPLT 


0944 



# 


translate and TRANS7E6 16 DATA BITS 

0941 



« 

REVISION! 



0940 





ORIGINAL 


0347 



* 

ABSTRACT! 

TRPLT TRANSLATES 

A 16 BIT WORD INTO 9 lYTiS. 

0940 





A TRIPLET, and moves THE BYTES INTO THE 8Y8TEH 

0949 



# 


BUFFER, 


0990 




CALLING SEQUENCE! 


0991 



# 


ENTRY! Rl ■ R1 

■THE 4 BIT AB8, LOAD TAG 

0990 



t 


R8 tBPRA 

•ADDRESS OF CURRENT BFR 

0999 



t 


R0 eOATA 

•WORD TO BE translated 

0994 



t 


R9 iBFRE 

•END OF DATA AREA IN BFR, 

0999 



t 




0990 





EXIT ! RS PeFRA 

•current byte ADOR in BFR 

0997 



* 


R0.RI ■OISTROYIO 

0990 



t 


ST ■ ,LT,, 

IF BFR NOT FULL 

0990 


' 

# 


• ,GE. 

IF BFR FULl 

0960 


01CA* 

TRPLT EQU 

S 


0991 

01CA 

0040 


NOVB 

R0.RI 

FORMAT byte 0 AND STORE 

0960 

01CC 

0041 


SRC 

Rl,4 

IN OUTPUT BUFFER 

0969 

0 1 CE 

OE01 


HOVB 

Rl,*BFRA+ 

(SOURCE BITS 0-3) 

0964 

0100 

0600 


SNRB 

R0 

FORMAT 2ND BYTE 

0969 

01D3 

0041 


SRL 

Rl|4 

(SOURCE BITS 4»0) 

0960 

0104 

0040 


MOVB 

R0,RI 


0167 

0106 

0091 


SRC 

Rl,B 


0960 

0106 

0261 


OR! 

R1,A88*6102 



01OA 

6000 





0960 

0100 

0011 


SRL 

Rlfl 


0970 

01DE 

DE01 


HOVB 

R 1 , ♦BFR a a 


0971 

01E0 

0A71 


SLA 

R1|7 


0370 

0iea 

0261 


ORI 

R1,ABSA8102 

SOURCE BITS10.1S 


01E4 

6000 





0973 

01E6 

0011 


SRL 

Rl,l 


0974 

0110 

OE01 


HOVB 

R 1 , aBFR a a 


0379 

01EA 

6246 


C 

bfra,bfre 

SET STATUS BITS AND RETURN 

0976 

01EC 

0496 


RT 





write 

0U77IRS TO CASS 

9483e8»9901 ** PA6E 0011 

0379 




TITLEl 

WRITE 

0380 



♦ 

REVISION! 


0381 



* 


ORIGINAL 

0388 




ABSTRACT! 

THE OUTPUT BUFFER POINTED AT BY kPRBAp 

0383 



t 


IS PRESENTED TO MONITOR VIA A WRITE SERVICE 

0384 



« 


CALL, 

0388 




CAUIN6 SEQUENCE! 

0386 





ENTRY! 

0387 



* 


R7 tPRBAwADORESS OF PR0 

0388 



t 


R6 fBFRAiAODR OF NEXT CH‘, POS IN B7R, 

0389 



# 



0390 



♦ 


EXIT! 

0391 



♦ 


BFRAiADOR OF 1ST CH. POS, IN BFR 

0398 





R1B0-8TATU8 OF WRITE (SYS. FLAGS PROM PRB) 

0393 





STATUS REG ■ ,EQ, FOR SUCCESSFUL 

0394 





• ,NE, FOR trouble 

0398 





ALL OTHER REGS UNCHANGED, 

0396 



♦ 



0397 


01CE* 

WRITE EOU 

s **#*entry point**** 

0396 

0lEi 

6280 


8 

PPRBFAiBFRA COMPUTE CHAR, COUNT AND 


0170 

0010' 




0399 

0178 

C808 


MOV 

BFRA.PPRCNT STORE IN PRB, 


0174 

0014' 




0400 

0176 

C287 


MOV 

PRBA,R10 

0401 

0178 

0480 


BIWP 

•svcalt 


017A 

0188' 




0408 

0l7C 

0208 


LI 

BFRA.BFR reset THE BUFFER POINTER 


0176 

001A» 




0403 

0200 

0060 


MOVB 

PPRSPG,R1 GET THE I/O STATUS FLAGS AND 


0208 

000EI 




0404 





RETURN TO CALLER WITH STATU 

0408 





SET. 

0406 

0204 

0430 


RT 







CHECKSUM THE OUTPUT SUPPER 


949388»99Si ** 


PAGE 0013 



0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0480 

0481 

0482 

0483 

0484 

0488 

0486 

0487 
0458 

0489 
0460 
0401 


* TITLE I CK8M 

* REVISZONI 

* ORIGINAL 

* ABSTRACT! 

* THE EXCLUSIVE OR CHECKSUM OP EACH EVEN NUMBERED 

* BYTE AND THAT OP EACH ODD NUMBERED BYTE ARE 

* computed and RETURNED IN THE LEPT AND RIGHT 

* HALVES OP A 16 bit WORD. 

* NOTE that ip THE LAST 

* BYTE IS ON AN EVEN ADDRESS, THE RIGHT HALP OP 

* THE CHECKSUM IS PRESERVED SO THAT THE NUMBER 

* OP EVEN BYTES ¥OR»EO MAY BE 1 GREATER THAN THE 

« NUMBER OP ODD BYTES XORI’EO', WHEN CKSM PINIIHES 

* IT palls into trplt to stash the checksum, 

* CALLING SEQUENCE 

f ENTRYlTHE VALUE OP «BFR» IS THE STRING ADDRESS 

* R8 «BPRA»THE NEXT AVAILABLE BYTE AOOR. 

* EXIT! R0 •COMPUTED CHECKSUM 

* Rl iOESTROYED 

« ALL OTHER REGS UN.ALTEREO 


0402 


021A< 

CKSM 

EQU 

S 

0403 

021A 

04C0 


CLR 

R8 

0404 

02U 

C048 


MOV 

BPRA,Rl 

0408 

021E 

0B11 


SRC 

Rill 

0400 

0200 

1701 


JNC 

CKSMl 

0467 






0468 

0222 

D600 


MOVB 

R0,*BPRA 

0409 



* 



0470 


0224! 

CKSMt 

EQU 

S 

0471 






0472 

0224 

0201 


LI 

R1,BPR 


0220 

001A» 




0473 






0474 


0228* 

CK8M2 

EQU 

$ 

0475 



♦ 



0470 

0228 

2831 


XOR 

♦Rl*,R0 

0477 

022A 

8801 


C 

R1,8PRA 

0478 

022C 

lAFO 


JL 

CK8M2 

0479 

022E 

1301 


JEQ 

CKSM3 

0480 

0830 

06C0 


SWPB 

R0 

0481 


0232* 

CK8M3 

EQU 

1 

0482 

0232 

0201 


LI 

R1,ABCKSM^286 


0234 

7800 




0483 

0230 

2801 


XOR 

Rl,R0 

0484 

0238 

0221 


Al 

Rt,ABS 


023A 

0004 




0488 

02SC 

DE01 


MOVB 

R1,*BFRA* 

0480 

023E 

0460 


B 

•trplt 


0240 

0tCA» 




0487 




END 



♦•♦•entry 

clear checksum accumulator 

CHECK number OP BYTES AND 
JUMP IP EVEN 


CLR RIGHT HalP OP ODD BYTE WO 


GET THE STARTING ADDRESS 


CHECKSUM ANOTHER WOROi AND 
IP NOT DONE, 

LOOP BACK FOR ANOTHER TIME 


CHECKSUM THE CKSM TAG 


STORE THE CKSM TAG IN THE 
OUTPUT BUFFER AND RETURN 


0000 ERS 


990 • 

980 CONCORDANCE 



$ 


0134 

0184 

0169 



0899 

0269 

0277 



0329 

0332 

0336 



0481 



A9CK8M 

0097 

0482 



A8CND 

0091 

0313 



ABI P 

0098 

0199 



AilP 

0093 

0160 



ABORT 

0338 

0168 



ABPN 

0094 

0213 



ABRP 

0099 

0280 



ABRTt 

0199 

0162 



ABRT2 

0167 

0177 

0204 


A88 

0090 

0198 

0213 

0280 

ASSB 

0099 

0429 



ACU 


0113 

0198 


BFB 

0148 

0141 

0181 

0182 

BFRA 

0083 

0161 

0196 

0219 



0363 

0370 

0374 



0464 

0468 

0477 

BFRI 

0084 

0182 

0379 


BYTOUT 

0428 

0294 

0299 


CK8M 

0468 

0846 

0294 

0309 

CK8HI 

0470 

0466 



CK8H2 

0474 

0478 



CKSM3 

0481 

0479 



CPRM 

0076 

0197 

0160 

0171 



0229 

0229 

0303 

DATA 

0074 

0866 

0271 


0900} 

0178 

0179 



DP0B0 

0318 

0302 

0306 


0P13 

0110 

0176 



DPR6 

0194 

0124 

0127 

0193 

OPR60I 

0169 

0164 



DPR602 

0206 

0194 



DPRQ03 

0822 

0226 



DPR604 

0830 

0210 

0228 

0241 

DPR610 

0899 

0293 

02S^1 

0297 

OPRCU 

0899 

0279 



0PRO18 

0277 

0269 

0270 

0272 

0PR9t3 

0287 

0279 



DPRBtA 

0892 




DPR6I9 

0298 

0263 



0PR616 

0300 

0264 



0PR6i7 

0318 




DPR618 

0329 

0249 

0296 


DPR619 

0336 

0308 

0311 

0327 

DUPC 

0081 

0261 

0273 

0274 

EOF 

0102 

0322 



EP 

0080 




ERROR 


0116 

0334 


HDR 

0077 

0160 

0161 

0163 

iOABB 


0129 

0129 


IN 

0079 

0172 

0173 

0174 

MP00 

0108 

0202 



M805 

0107 

0166 



MX01 

0109 

0330 



OPEN 

0101 

0238 



PARTII. 

0190 

0309 
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0167 

0169 

0178 

8206 

0222 

0230 

0287 

0292 

0298 

0300 

0312 

0318 

0360 

0397 

0428 

0462 

0470 

8474 


0289 

0368 

0372 

0434 

0464 


0402 

0217 

0379 

0489 

0472 

0824 

0398 

0881 

0399 

0283 

0402 

0307 

0438 

8314 

0439 

0319 






0178 

0197 

0800 

0212 

0220 

0224 


0339 


0276 

0278 

0280 

0881 

0888 0883 

0193 

0809 

0301 



0203 

0899 

0268 

0267 

0888 



945388-9901** 
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RRB 

0134 

0234 



PRBA 

00B2 

0234 

0238 

0324 

PRBPA 

0141 

0307 

0398 


PRBLN 

0142 




PRCNT 

0143 

0399 



PRIOIN 

0136 




PRIOP 

0137 

0237 

0244 

0323 

PRSPG 

0139 

0236 

0240 

0326 

PRUPO 

0140 




R0 

0073 

0179 

0198 

0196 



0237 

0240 

0243 



0313 

0314 

0322 



0468 

0476 

0480 

Rl 

0075 

0160 

0198 

0211 



0218 

0219 

0220 



0305 

0366 

0367 



0374 

0403 

0429 



0464 

0465 

0472 

R10 

0068 

0187 

0166 

0176 

Rtl 

0086 




R13 

RITBUP 

0087 

0115 



retnbp 


0114 



RR 


0117 

0338 


ST 

0076 

0171 

0173 

0179 

SVC 

SVCALT 

0135 

0118 

0239 

0325 

trplt 

0360 

0183 

0199 

0290 

WRITE 

0397 

0248 

0295 

0310 

WRTA 

0103 

0243 




THERE ARE 0iT6 SYMBOLS 


040a 


0403 


0197 

0200 

0201 

0203 

0235 

0236 

0244 

0281 

0282 

0303 

0304 

0305 

0323 

0326 

0361 

0364 

0386 

0463 

0483 

0212 

0213 

0214 

0215 

0216 

0217 

0225 

0227 

0289 

0361 

0362 

0363 

0368 

0369 

0370 

0371 

0372 

0373 

0430 

0431 

0432 

0433 

0434 

0435 

0476 

0477 

0482 

0483 

0484 

0485 

0202 

0238 

0324 

0330 

0339 

0400 

0201 

0251 

0266 

0271 

0430 



0401 

0486 

0316 






























elT VAi, # BITS FROM ASRT35 9483S9i«99«t** 


FAse 


BOBS 

9994 

9999 

9999 

9097 

9098 

9099 
0010 
9911 

9012 

9013 

9014 

9015 
901i 
9017 
9918 
0019 

9020 

9021 

9022 

9023 

9024 

9025 

9028 
0927 
9928 

9029 
0030 
9031 

0032 

0033 

0034 

0039 
0038 
9037 
0038 
9039 

0040 

0041 

0042 

0043 

0044 

0045 

9048 
9047 
9948 

9049 
9059 
0091 

0992 

0993 
9094 

0095 

0096 


* 

* 

♦ 

* 

« 

* 

* 

* 

* 

* 

* 

* 

« 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

« 

* 

« 

* 

♦ 

* 

* 

* 

* 

« 

t 

* 

* 

* 

t 

« 

* 

# 

* 

* 

« 

* 


PROeiDURElROMBUT 
6ETBIT • A(eeTBIT) 

CALL AB8LD«£»A95 
IFCERRORJCALL 8P1N£S) 
iFtPROfi fP.NE,0) 

THEN 

SO TO CCEP) 

ELSE 

80 TO FRONT PANEL 

INOIF 

END ROMBOOT 
SUBROUTINE ABSLOR 
00 UNTIL END OF MODULE 
REPEAT CNTi9 
CKSMiOLO CK8M 

CALL eET8ITCVALUEf3,GLR5 
00 CASE 

ClIDO VALUE, iO.KTNDED TAB 
CALL BET0IT(VALUI»4,CLR) 

00 CASE 

CllOO VALUE, EQ, PCM NAME 
IFCPaRM ADOR,NE,0) 

Farm PGNfPARM ADDR*PHM08PL 
LIMITiSS 

CALL 8ETBIT£VALUi,7,CLR) 

NM8R CHARiAND(VALUE»>SFJ 
00 IF FARM AOOR,NE,0 

cePARM pgnj^nmbr char 
Farm PSNtPARM PSN^jl 
00 WMILKNMBR CHAR. SI, 0), AND 
(LIMIT, CE, 03 

CALL 6ETiIT(VALUE»7iCLR) 
C(PARM P8N3iVALUEI 
FARM PSNrPARM P6N4'1| 
LIMIT*LIMfT«ll 
END 00 f 

00 WHILE NM8R CHAR'.SE.B 
CALL GETBJTCVALUEi 7#CLR) 
NMBR CHARiNMBR CHAR-1 
END OOf 
END OOl 
END Cl I 

CilOO VALUt.EO.ITRY POINT 
CALL 6ET19 (VALUE) 

EP«VALUE 

IF(PaRM ADOR,NE,03 
C(PARM AODR)»EP 
END C2 

CSiOO VALUE, ED. CHECKSUM 
TEMP»CK8M 
CALL 6ET19, VALUE 
IF (NOT (TEMP, EQ, VALUE). AND, 

NOT (8HC (TEMP, 8), ED, VALUE) 
ERROR RETURN 




** ABSOLUTE LOADER ** 


S483S§«980t** 


PASI P0i8 


0087 

0088 
0089 
0060 
0061 
0062 

0063 

0064 
0068 
0066 

0067 

0068 
0009 

0070 

0071 

0072 

0073 

0074 
0078 

0076 

0077 

0078 

0079 
0000 
0081 
0082 

0083 

0084 
0088 
0086 
0067 
0088 

0089 

0090 

0091 

0092 

0093 

0094 
0098 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 
0108 
0106 

0107 

0108 

0109 

0110 
0111 


* 

* 

« 

« 

« 

* 

* 

♦ 

« 

* 

* 

* 

-* 

* 

* 

* 

* 

* 

* 

* 

# 

« 

* 

« 

* 

* 

* 

* 

* 

* 

« 

* 

« 

* 

* 

* 

* 

* 

* 

* 

« 

* 

* 

* 

* 

« 

* 


END IF 
END C3 

C4ID0 VALUE, ID. END OF HOOULE 
RETURN 
END C4 

CSlOO VALUE, EQ, REPEAT TRIPLET 
CALL 8ETB1T(VALUE,7,CLR) 
repeat COUNTiANO(VALUE»PSF3 
CALL SETieCVALUE) 

DO WHILE REPEAT COUNT. NE,0 
CeCURR ADOR31VALUE 
CURR ADDR«CURR AD0*2 
REPEAT COUNTfREPEAT COUNT*! 

END DO 
END CB 

***N0TEI in the INTEREST OF SPACE, 
*** THE CODE FOR THE ABOVE 

*** IS INCLUDED IN THE 

**« PROCESSING FOR ABSOLUTE 

*** DATA TRIPLETS, 

END CASE 

C2ID0 VALUE.EO.ABS WORD 
CALL 6ET16(VALUE5 

DO while repeat count, GT,0 

CfCURR AOOR) -VALUE 
CURR AODRaCUR A0DR<4>2 
REPEAT COUNTpREPEAT COUNT*! 

END DO 
END C2 

C3I00 VALUE, EQ, ASS BYTE 
CALL GETBIT(VALUE,S,CLR) 

VALUEtSRL(VALUE,l) 

CALL GET0IT(VALUE,6,OR) 

CtCURR ADOR3iSHLeVALUE,23 
CUR AODRwCURR ADDR*1 
END C3 

C4ID0 value, EQ, LOAD ADDR 
CALL GETl6fVALUE) 

IFCPARH ADOR.NE.P) 

CUR,A00R*VALUE 

CtPARH ADDR*LDPT5fVALUE 
END C4 

C8IOO VALUE.lt. >4 
ERROR RETURN 
end ABSLDR 
SUBROUTINE GET18 
End GET16 
SUBROUTINE GETBIT 
♦•♦START INPUT STREAM*** 

CRU8A8f*100 

BIT.COUNTlR 

CKSM10 

lNBITS-0 

INBI0 

RE ENTRYiACGETBtJ 



*« ABSOLUTE LOADER ** 945309«9S01** PASS 0BE4 


eua 

♦ 

♦♦♦newrecoro*** 

eu3 


DO WHILE CHAR.ES.LP 

8114 

# 

CHAR1IN733 

0115 

t 

END DO 

0116 

t 

IPCCHAR,EQ.0EL)CHARilN733 

0117 

♦ 

• *«r**6ETCHAR***** 

0116 

t 

CHAR ■ IN733 

0119 

t 

If CHAR,EO,«CR» NlWRECORD 

0180 

# 

CKSHtCKSH.XQR.CHAR 3 

0181 

♦ 

CB8PCNCfCB8»CHAR,CiC) 

0188 

♦ 

C§CiC8C47 

0183 


**iit*6ETBT8 ******* 

0184 


If eMODI.EQ.CLRSRBS i0 

0185 

* 

If (RBC.ST.CSCJSETCHAR 

0186 

# 

DO while RBC.6T.0 

0187 

♦ 

CALL 8LAtRB8,n 

0188 


CALL 8LA(CB8,1) 

0189 

« 

If eCARRY)RB8iiR88*l 

0130 

t 

CBCtCBC-l 

0131 

# 

RSCiRBC"! 

0138 

t 

end do 

0133 

* 

RETURN 

0134 

t 

PROCEDURE SET BIT CHQNITOR CONTROL) 

0135 

t 

/* SET BIT PROVIDES 10 SUPPORT 

0136 

♦ 

fOR THE ABSLOADER, THE OPEN 

0137 

♦ 

HAS BEEN PROCESSED BY THE MAIN 

0138 

♦ 

DRIVER, 

0139 

♦ 

*/ 

0140 

♦ 

If CLEAR fLABiB THEN 

0141 

t 

RETURN CALUE f 0f 

0148 

♦ 

DO WHILE REQUEST BIT COUNT»0| 

0143 


If CURRENT BIT COUNT » 0 THEN 001 

0144 


CURRENT BIT COUNT p CURRENT BIT COUNT-U 

0145 

« 

CALL MOVE BITCRETURN VALUE, CURR BUf AODR) 

0146 

♦ 

REQUEST BIT COUNT P REQUEST BIT COUNT -ll 

0147 


ENOIELSE 

0148 

* 

IF CHAR COUNT H0 THEN 001 

0149 

* 

CHAR COUNTlCHAR COUNT *11 

0150 

t 

CURRENT BIT COUNT t 71 

0151 

■ 

CALL SLAtCURR BUFF AD0R,CHARil3l 

0158 

# 

CK8H * SWPBt 

0153 

♦ 

CHECKSUM • 8WPBeCHECK8UM«X0R (CHECKSUM, 

0154 

« 

CURR BUFF AOOR.CHARJ) 

0155 

t 

CURB BUFF AODR • CURR BUFF AOOR<Hf 

0156 

« 

ENDlELSE 081 

0157 

t 

LOAD PR8 OPCODE i ‘READ’ I 

0158 

« 

CALL 8VC(8VC CALL BLOCK) I 

0159 

t 

CURR BUFF AODR P LOADER BUFFER ADORf 

0160 

♦ 

ENOl 

0161 

* 

END t 

0168 

0163 

t 

ENO STBITMf 
lOT »AB8LP» 

0164 

* 

TITLEI »A88L0» 

0165 


ABSOLUTE LOADER 

0106 

n 

REVISION! 



•« absolute loader ♦* 


945S89w99il«* 


PAGE 00(85 


0167 




ORIGINAL 


016S 


# COMPUTERI 

990, ASF 


0169 


* ABSTRACT! 

CALLED BY THE MONITOR AS AN OVERLAY TO 

0170 


* 


PERFORM LOADS OF ABSOLUTE CODE MODULES, 

0171 




SET CALLA2 TO ZERfJ TO INHIBIT RETURN PARAMETERS 

0172 




ELSE, CALL+2 is 

ASSUMED TO POINT TO A 16 WORD 

0173 


n 


TABLE AT WHICH 

THE FOLLOWING PARAMETERS WILL 

0174 


♦ 


BE STORED IF ENCOUNTERED DURING THE LOAD 

0175 




LOCCBYTC) 

DESCRIPTION 

0176 




0,1 

PROGRAM ENTRY POINT tIF NON»ZERO 

0177 




2,3 

program load point 

0178 




4 

ROF CM, IN PROGRAM NAME(1«28) 

0179 




5»(4) 

program name 

0180 


• CALLING SEQUENCE! 


0181 




BL PABSLDR 


0182 




DATA PARMTA8LE 


0183 


« 


JMP ERROR 


0184 






0185 






0186 


« 


*♦* GETBIT PARAMETERS #*• 

0187 



DCF 

AB8LDR 


0188 



DCF 

ABSBUT 


0189 



REF 

SVCALT 

l.| 

0190 



REF 

LDCBBC 


0191 



REF 

LDCBA 


0192 



REF 

LDCC 

}i 

0193 



REF 

LDOPCD 

ii 

, 

0194 



REF 

LOPRB 


0195 



REF 

LOADOP 


0196 

0000 

M 

CQU 

0 

i 

0197 

EFFF 

OR 

EQU 

-1 


0198 


n 



1 

0199 


* 


**•733 A8R CONTROL 8 DATA EQUATiS **♦ | 

0200 


« 




0201 

0009 

DTR 

CQU 

9 


0202 

000A 

RT« 

EQU 

>A 


0203 

0000 

CLRViRQ 

CQU 

>B 


0204 

000C 

CLRRRQ 

EQU 

MC 

CRU OUT READ REQUEST 

0205 

000C 

RRQ 

EQU 

PC 

CRU IN READ REQUEST | 

0206 

1100 

OCl 

CQU 

*1100 

READER «0N» COMMAND 

0207 

7F0i 

OIL 

CQU 

>7Fi0 

•DELETE* 

0208 

0A00 

Lf 

EQU 

W0A00 

•LINE FEED* 

0209 

0000 

CR 

EQU 

»0D00 

•CARRIAGE RETURN* 

0210 


t 




0211 


* 


***return parm 

TABLE DISPLACEMENTS 

2212 


« 




0213 

0000 

ENTRY 

CQU 

0 


0214 

0002 

LOAOAD 

CQU 

2 


0215 

0004 

PRGNN 

CQU 

4 


0216 


# 




0217 




•••REGISTER 

allocation 

0218 


« 





*♦ ABSOlUTf tOAOiR ** 


945SB9«i9il*« 


PA6E SiB8 


0220 

0000 

R0 

EQU 

0 

TEMP(8HI7T COUNT 6 INOfXlNQll 

022i 

0001 

R1 

EQU 

1 

AD0RE86 0748ITilT* ^ 

0222 

0002 

R2 

EQU 

2 

6ETiIT«BIT 8TRINS ON HAND 

0229 

0003 

R3 

EQU 

3 

SETBIT*# OP BITS IN R2 

0224 

0004 

R4 

EQU 

4 

6IT16 TIMRtRTRN AOOR 8AVIJ 

0229 

0009 

R9 

EQU 

9 

CURRENT LOAD A00RE88 

0226 

0006 

R6 

EQU 

6 

REPEAT COUNTINMBR CHAR 

0227 

0007 

R7 

EQU 

7 

•LIMITS 

0228 

0006 

R9 

EQU 

8 

TEHP 

0229 

0009 

R9 

EQU 

9 

ENTRY POINT 07 lOAOED PR08RAM 

0290 

000A 

R10 

EQU 

10 

«VAIUE» 

029t 

0009 

Rll 

EQU 

11 

AUTO 8UBR. RETURN LINKAGE 

0292 

000C 

R12 

EQU 

12 

CRUBASE 

0299 

0000 

R13 

EQU 

13 

TEHP 

0234 

000E 

R14 

EQU 

14 

<CK8Ml> 

0299 

0007 

R15 

EQU 

19 

AI8L0R RETURN A0DRE88 

0296 


* 




0297 


• 


***ABSOUUTE 

DATA 70RMAT DEPINITIONB 

0296 


* 




0299 

0002 

RLA 

EQU 

2 

REL0C.A00ReUN8UPPaRTE0) 

0240 

0003 

RDM 

EQU 

3 

RELOC.WORO (UN8UPP0RTID) 

0241 

0004 

ABWO 

EQU 

4 

ABSOLUTE DATA W0RDI18B1T85 

0242 

0009 

ABYT 

EQU 

9 

ABSOLUTE DATA BYTEC8 BITS? 

0243 

0006 

AlOA 

EQU 

9 

AB0L8UTE LOAD ADDRESS 

0244 

0007 

XT7 

EQU 

7 

EXTENDED TA8 

0249 


* 




0246 

0000 

EO0 

EQU 

0 

END OP MODULI ,f * 

0247 

0001 

R6N 

EQU 

1 

PR06RAM NAME 

0246 

0002 

PSU 

EQU 

2 

PROGRAM LeNSTMCUNSUPPORTfOl 

0249 

0003 

AIR 

EQU 

3 

ABSOLUTE ENTRY POINT 

0290 

0004 

REA 

EQU 

4 

RELQC, ENTRY ADOR (UNSUPPORTIO 

0261 

0009 

CK8M 

EQU 

5 

CHECKSUM 

0292 

0006 

R7T 

EQU 

8 

REPEAT COUNT 



** ABSOLUTE LOADER ** 


O463e0»9Sil*« 


PACE 0Bi7 


02S4 






«#PROCEDURE|R0M8UT 

Bess 


0000' 

ABS8UT 

EQU 

S 


Base 






l-SETBIT • A(OETBtT) 

B2S7 

0000 

0201 


LI 

RliSETBIT 

ADOP, OF GET8IT 


0002 

0136« 





Bass 






1*CALL ABSLOR(»A0) 

0889 

0004 

06A0 


BL 

9AB00 



0006 

001A< 





BaSB 

0006 

0000 


DATA 

0 


8281 



♦ 



t.IF(|RROR)CALL SPIN CD 

B26a 

000A 

10Ff 


JMP 

S 

RETURNS MERE ON ABORT 

0863 



« 



l»IFCPROS EP.NI.0) 

0264 

000C 

C249 


MOV 

R9«P9 


0268 

000E 

1301 


JED 

BOOTl 


0266 






2»THEN 

B267 






3»90 TO C(EF) 

B26S 

0010 

0489 


B 

«R9 

EXECUTE PROGRAM 

0269 



♦ 



2-ELSe 

0270 



♦ 



3*00 TO FRONT PANEL 

0271 

0012 

0420 

BOOTl 

BLWP 

98 

NO EP POUND’.., trap to panel 


0014 

0008 





0272 



♦ 



1*EN0IF 

0273 



♦ 



0*END ROMBQOT 

0274 



♦ 



1»SUBR0UTXNE A88L0R 

0278 


0016' 

AB8t08 

EQU 

S 

***intry point 

0876 

0016 

0201 


LX 

Rl,8TBITM 



0018 

01A8< 





0277 


001 A > 

AB00 

EQU 

S 


0278 

001A 

C3CB 


MOV 

PllfPlB 

SAVE RETURN AOOR 

0279 

00 1C 

04C9 


CLP 

R9 

CLEAR ENTRY POINT 

0880 

00 IE 

04E0 


CLR 

9LDCBBC 



0020 

0000 





0281 

0022 

04C3 


CLP 

RS 

clear bit COUNT 

0262 

0024 

04CE 


CLP 

R14 

CLEAR CHECKSUM 

0883 

0026 

C21F 


MOV 

*R18«P8 


0284 

0028 

1302 


JEQ 

AB01 


0288 

002A 

04E8 


CLP 

«PR6NM(R81 



002C 

0004 





0286 






1*00 UNTIL end of module 

0287 


002E< 

ABBl 

EQU 

S 


0288 



♦ 



1*PEPEAT CNTt0 

0289 

002E 

04C6 


CLP 

R6 


0290 



* 



l-CKSMiOLO CKSM 

0291 

0030 

C20E 


MOV 

R14rR6 

WILL SET CLOBBERED IF TAG 

0292 



♦ 



IS NOT CKSM, BUT D0E8NT 

0293 



* 



matter in this case 

0294 



♦ 



2pCALL eET8ITtVALUE,3»CLR5 

0298 






2»D0 CASE 

0296 






3.C1I00 VALUi.EQ.XTNDIO TAB 

0297 

0032 

0691 


BL 

*Rl 

GET A TAB IN R10 

0298 

0034 

00 


BYTE 

CLR»3 



0038 

03 





0299 

0036 

028A 


Cl 

R10,XTF 

CHECK FOR EXTENDED TAB 


0038 

0007 






C 


** AitOLUTI (.OAOiR ** 


94538i»SSfll«« 


PA6t 8808 


8300 

jiSA 

184C 


JNE 

AB13 

0301 



f 



0303 

083C 

8691 


8L 

*R1 

0303 

003E 

80 


SITE 

CLR|4 


003F 

04 




0304 






0309 



'# 



0306 

0040 

028A 


Cl 

R 10, PON 


0042 

0001 




0307 

0044 

1620 


JNE 

AB07 

0308 






030S 



* 



0310 

0046 

C21F 


MOV 

*R19,R8 

0311 

0048 

1302 


JEQ 

A 802 

0310 

004A 

0228 


AI 

R8,PR8NM 


004C 

0004 




0313 


004E» 

AB02 

EQU 

i 

0314 



h 



0319 

004E 

0207 


LI 

R7,23 


0090 

0817 




0316 






8317 

0882 

0691 


8L 

•Rl 

0318 

0094 

00 


BYTE 

CLR,7 


0056 

07 




0319 






0320 

0096 

824A 


ANDl 

R10f>3F 


0098 

003F 




0381 

009 A 

C16A 


MOV 

R10,R6 

0322 



t 



0323 

009C 

C206 


MOV 

R8,R8 

0324 

009E 

1310 


JEO 

AB89 

0329 



♦ 



0326 

0060 

81CA 


C 

R18,R7 

0327 

0062 

1201 


JLf 

AB020 

8328 

0064 

C287 


MOV 

R7,R10 

0329 


0066 1 

ABBte 

EQU 

I 

0330 

0066 

06CA 


SWP0 

R10 

0331 

0068 

DE0A 


MOV0 

R10,*R8+ 

0338 



« 



0333 



« 



0334 



A 



0339 


086A* 

ABK3 

EQU 

S 

0336 

806 A 

0606 


DEC 

R6 

0337 

006C 

1109 


JLT 

A 68 6 

0338 



♦ 



0339 

806E 

8691 


BL 

*R1 

0340 

0070 

00 


BYTE 

CLR,7 


0071 

07 




0341 



# 



0342 



# 



0343 

0072 

06CA 


SWPB 

R10 

0344 

0074 

OE0A 


MOVB 

Rt0,«R84 

0348 



« 



0346 

0076 

8687 


DEC 

R7 

0347 

0078 

16F8 


JH 

AB03 


JUMP 8NOT 

4*CAUI. 0lT8ITCVAUUi.4,ClR3 
4«00 CA8f 

5«CilOO VALUE. CQ.PSR NAME 

iPirePARM ador,ne',0J 

7»PARM PGNiPARM A0DR4PHM158PL 

8»CAU. GtT8ITCVAl.Ui«?,Cl.R3 

8»NMiR CHARtANDfVALUliMlf) 

8*pOO if P arm ADOR.Nf .J 
7»CCPARM PSNjfNMBR CHAR 

f.PARN PGNtPARM PeNtl 
7»00 WHILKNM8R CHAR,GE,0J , AND 
(LIMIT, QI.0) 

8.CALL GtTBlT(VALUE.7,CLR) 

8»C(PARM PBNji valuer 
4448*PARM PBNfPARM PQN4U 

8i*LIMITiLIMIT«$l 



** ABSOLUTE 

LOADER 



945389»990M* 

PAGE 0009 

0348 

007A 

1202 


JLE 

AB08 


0349 






7*END OOP 

0380 






7»D0 WHILE NMBR OHAR.6E.0 

0351 


0070 » 

AB04 

EQU 

S 


0352 



♦ 



8*CALL 6ETBIT(VALUE.7,CLRJ 

0383 

007C 

0691 


BL 

*Rl 


0354 

0071 

00 


BYTE 

CLR»7 



0077 

07 





0355 






8»NHBR CHARtNHBR CHAR«1 

0386 


0080’ 

Asee 

EQU 

$ 


0387 

0080 

0606 


DEC 

R6 


0358 

0082 

MFC 


JHE 

AB04 


0359 



• 



7»EN0 DOI 

0350 






6*EN0 OQI 

0361 



# 



5»EN0 on 

0362 


0084* 

AB06 

EQU 

S 


0363 

0084 

1004 


JMP 

AB01 


0364 



AB07 




0365 



♦ 



8*C2lOO VALUE. IQ, ITRY POINT 

0366 

0086 

028A 


Cl 

R10I AEP 



0088 

0003 





0367 

008A 

1607 


JNE 

AB08 


0368 



« 



6»CALL GETlOeVALUE) 

0369 

0080 

06A0 


BL 

•8ET19 



008E 

0114* 





0370 






6-EP-VALUE 

0371 

0090 

C24A 


HOV 

R10fR9 


0372 



# 



8-lFfPARM AOOR.NE.B) 

0373 






6» CCPARM AOORJsiP 

0374 

0092 

C21F 


MOV 

*R18,R8 


0375 

0094 

13CC 


JEQ 

AB01 


0376 

0096 

0609 


MOV 

R9»*R8 


0377 






8*END 02 

0378 

0008 

10CA 


JMP 

AB01 


0379 


009A* 

AB0B 

EQU 

S 


0380 



t 



8*03100 VALUE. EQ.CHECK8UM 

0381 

009A 

028A 


01 

R10»CK8M 



0090 

0005 





0382 

009E 

160A 


JNE 

AB10 


0383 



♦ 



6*TEMP*CK8M 

0384 

00A0 

C20E 


MOV 

RM^RB 


0365 






6-CALL GET19.VALUE 

0386 

00A2 

06A0 


BL 

• GET 19 



00 A4 

0114* 





0387 



t 



♦♦N0TEI8INCE #QF BYTES SINCE 

0388 



t 



LAST CK8M MAY BE EITHER EVEN 

0389 



# 



OR ODD, fANO WE DON’T KNOW 

0390 






WHICH), .WI’LL settle for A 

0391 



t 



MATCH*UP ANY WAY WE CAN MAKE 

0392 



# 



IT HAPPEN 

0393 






B-IF (NOT (TEMP, EQ, VALUE) , AND. 

0394 






6* N0T(8NCfTEMP,a),EQ.VALUE) 

0398 



t 



6* ERROR return 

0396 

00A6 

04CE 


CLR 

R14 

CLEAR CHECKSUM FOR NEXT TIME 

0397 

00 A8 

8286 


C 

R8,R10 



c 


PA6E teie 


#* ISSOLUTI LOAOEi ** 940Sa9»990l** 


0398 

00AA 

13C1 


JES 

AB01 

0399 

01 AC 

06C8 


SWPi 

R8 

0400 

00AE 

8268 


C 

R8»R10 

0401 

0000 

136E 


JEO 

A001 

0409 

0062 

1004 


JMP 

A811 

0403 






0404 



♦ 



0408 


0084t 

Aili 

EQU 

S 

0406 






0407 

0004 

028A 


Cl 

R10»EOH 


0066 

0000 




0408 

0068 

1603 


JNE 

AB12 

0409 



■# 



0410 

00 6 A 

08CF 


INCT 

R15 

0411 


00SC' 

ABU 

EOU 

S 

0419 

006C 

08CF 


INCT 

R10 

0413 

006E 

048F 


0 

•RIS 

0414 






0418 


00Ci» 

AB12 

EQU 

S 

0416 



* 



0417 

00C0 

028A 


Cl 

R10,RPT 


00 C2 

0006 




0418 

00C4 

16FB 


JNE 

ABU 

0419 



t 



0490 

00C6 

0691 


8L 

*R1 

0491 

00C8 

00 


8YTE 

CLR|7 


00C9 

07 




0492 



# 



0493 

00CA 

C16A 


MOV 

Rl0fR6 

0424 

00CC 

0946 


AND! 

R 6 1 ' W 3 F 


00CE 

003F 




0428 



♦ 



0426 






0427 



♦ 



0428 



# 



0429 



t 



0430 



# 



0431 






0432 






0433 



♦ 



0434 



# 



0438 



t 



0436 



# 



0437 

0000 

0691 


6L 

*R1 

0438 

0002 

00 


iYTi 

CLR#3 


0003 

03 




0439 



t 



0440 


00D4» 

Ails 

EQU 

S 

0441 



t 



0448 

00D4 

02SA 


Cl 

R10I ABWO 


0006 

0004 




0443 

0006 

1606 


JNE 

AB18 

0444 



t 



0448 

00OA 

06 A0 


BL 

•SET16 


00OC 

0122< 





CK8M 0K*P«0Ci8S NEXT OIT* Q;, 

CK8M 0K-PRCI88 NEXT DATA 

8A0 CHECKSUM,, IRROR EXIT 
«»END IE 
S»ENO C3 

8*C4lDD VAI,UIiEQ,ENO OR MOOUI.I 


fl*RlTURN 
8UCCE88EUI LOAD 
HERE FOR ERROR 


8»END C4 

S-CSIOO VAUUE.EQ, REPEAT TRIPit 


UNSUPPORTED EXTENDED TAB 
8»CAU 6ET8IT(VAUUB,7,CLR) 


SiiREPEAT COUNTf AND (VALUE f»3P3 ^ 


«*CALL 0ETlfl(VAiUt3 
$•00 WHILE REPEAT COUNT. NS.0 
T-CCCURR ADORjfVALUl 
T*CURR ADDRwCURR ADD4>2 
f.REPEAT COUNTfREPEAT COUNT-1 
i*END DO 
8-END C6 

f.***NOTE| IN THE INTEREST OP 
fm*** THE CODE FOR THE AS 

F—** IS INCLUDED IN THE 

7»*«* PR0CE88IN6 FOR A8S0 

fm*n* data TRIPLETS, 


A-END CASE 

S-CSIDO VALUE, E8.AS8 WORD 


4-CALL SETietVALUE) 

■ • f !) 



*• ABSOLUTE 

LOADER 



949389 

0446 



t 



0447 


00DE’ 

AB14 

EQU 

8 

0448 






0449 






0460 

0001 

C04A 


NOV 

R10,*R8« 

0481 



* 



0452 

00E0 

0606 


DEC 

R6 

0453 

00E2 

19F0 


J6T 

AB14 

0454 

00E4 

10A4 


JMP 

AB01 

0459 



♦ 



0496 



a 



0497 


00E6< 

ABIS 

EQU 

8 

0498 



* 



0499 

00E6 

026A 


Cl 

R10,ABYT 


00E8 

0005 




0460 

00EA 

1608 


JNE 

A816 

0461 






0462 

00EC 

0691 


BL 

*R1 

0463 

00CE 

00 


BYTE 

CLR,9 


00EF 

08 




0464 



n 



0469 

00F0 

091A 


SRL 

R10,l 

0466 



♦ 



0467 

00F2 

0691 


BL 

*R1 

0468 

00F4 

Ff 


BYTE 

OR, 6 


00F6 

06 




0469 






0470 






0471 

00F6 

0A6A 


SLA 

R10,6 

0472 

00F8 

D04A 


NOVB 

R10,*R94- 

0473 






0474 

00FA 

1099 


JMP 

AB01 

0479 


00FC» 

AB16 

EQU 

8 

0476 






0477 

00FC 

028A 


Cl 

R10,ALDA 


00FE 

0006 




0478 

0100 

1608 


JNE 

AB17 

0479 






0460 

0102 

06A0 


BL 

PSET16 


0104 

0122t 




0481 



♦ 



0482 






0483 

0106 

C14A 


MOV 

R10,R9 

0464 



♦ 



0469 

0108 

caiF 


MOV 

«R19,R8 

0486 

010A 

1391 


JEQ 

AB01 

0467 

010C 

05C8 


INCT 

R8 

0488 

010E 

C60A 


MOV 

R10,*R8 

0469 






0490 

0110 

108E 


JMP 

AB01 

0481 



♦ 



0492 






0493 


0112t 

kBir 

EQU 

8 

0494 

0112 

1004 


JMP 

ABU 

0499 







9901** PASS 0011 

4*DQ WHIUI REPEAT COUNT. 8T.0 

a-C(CURR AOORJiVALUl 
S-CUPR ADORiCUR A0DR42 

9»REPEAT COUNTiREPlAT COUNT-l 
4»END DO 

3»CND ca 

3>C3lDO VAI.UC*EQ.AB8 BYTE 

4-CAU 6ITBIT(VALUE,I,CUR) 

4.VALUEi8RUVALUI*n 
4.CAU SETllTCVAUUEiB.QRl 

4*CCCURR AODRltSHl. (VALUE,!) 
4»CUR AOORwCURR ADDR41 
Eoiv TO SL a ♦ awPB 

3-END C3 

3- C4I00 VALUBiEQ.LOAD ADDR 

4.CAU SETieevAtuE) 

4- IFfPARH AOOR,NE‘,0) 

4-CUR. ADDRiVALUE 

4- CtPARH ADOR*LOPT)iVALUE 
3-END C4 

3- C5I00 VALUE. LT,»4 

4- error return 

IP value, 8E.4, WE WOULDNT 
BE HERE 



#♦ ABSOLUTI kOAOER 


94B389«i9ei*« 


RA6E B0ie 
J»|NO AB8L0R 


* 


0498 



OIT VAUUe FROM DATA STREAM 94B3S9*9901** PAGE 9013 


0499 



* 



1-8UBROUTINE QET16 



0900 


0114t 

GIT19 

EQU 

S 




0901 

011A 

C10B 


MOV 

RllfR4 




0902 

0116 

0691 


BL 

*R1 




0903 

0116 

00 


BYTE 

0i3 





0119 

03 







0904 

011A 

028A 


Cl 

R10,ABWD 





011C 

0004 







0909 

011E 

1302 


JEQ 

GETIQA 




0906 

0120 

10CD 


JMP 

ABU 




0907 


0122 « 

GET16 

EQU 

$ 

•♦♦entry point*** 



0908 

0122 

C10B 


MOV 

R11#R4 

SAVE RETURN 



0509 


0124t 

SET19A 

EQU 

S 




0910 

0124 

0691 


BL 

*R1 




0911 

0126 

00 


BYTE 

0,9 





0127 

05 






CH. 

0912 

0128 

091A 


8RL 

R10#1 

DISCARD TAG FROM 

NEXT 

0913 


012At 

GET12A 

EQU 

S 




0914 

012A 

0691 


BL 

*R1 

S OR IN NEXT 7 

BITS 


0919 

012C 

FF 


BYTE 

"1 17 





012D 

07 







0618 

012E 

091A 


SRL 

Rl0f 1 

DISCARD TAG FROM 

3RD 

BYTE 

0617 

0130 

0691 


BL 

*R1 

8 OR IN next 8 

BITS 


0918 

0132 

FF 


BYTE 

• 1,6 





0133 

06 







0919 

0134 

0494 


B 

*R4 

RETURN TO CALLER 



0920 



* 



l»ENO GETie 




SIT VAfi, % BITS FReM AJRfBB 9453S9.9901** 


FA0B BB14 


0883 



# 



8884 


0136* 

eiTilT 

EQU 

S 

0888 



t 



0886 



♦ 



0887 



t 



8886 



# 



0880 

0136 

020C 


L I 

Rl2r*100 


0138 

0100 




0830 



♦ 



0831 

013A 

1009 


8B0 

DTR 

0838 

013C 

1O0A 


SBO 

RTS 

0833 

013E 

1O0B 


880 

CLRWRQ 

0834 

0140 

1D0C 


860 

CLRRRQ 

0838 

0148 

0202 


LI 

R2,0C1 


0144 

1100 




0836 

0146 

3202 


LOCR 

R2i8 

0837 



* 



8838 



t 



0830 



* 



0540 

0148 

388E 


MPY 

R14,R2 

0541 



# 



0548 

014A 

0201 


LI 

RliSETBTt 


014C 

0188’ 




0543 


014C’ 

6Sil 

EQU 

S 

0544 



t 



0848 



t 



0546 

0141 

1E0C 


88Z 

CLRRRQ 

0847 


018@t 

mm 

EQU 

S 

0548 

0150 

1F0C 


TB 

RRQ 

0540 

0158 

16FE 


JNE 

6B02 

0580 



■ t 



0881 

0184 

04C0 


CLR 

R0 

0558 

0156 

35C0 


STCR 

R0,7 

0583 

0158 

0260 


Cl 

R0»LF 


015A 

0A00 




0584 

01SC 

13FS 


JEO 

6B01 

0555 






0886 






0887 

018E 

0280 


Cl 

R0fOEL 


0160 

7F00 




0886 

0162 

1605 


JNE 

6B06 

0859 






0860 


0164’ 

mm 

EQU 

S 

0561 

0164 

1E0C 


SB! 

CLRRRQ 

0868 


0166’ 

mm 

EQU 

S 

0563 

0166 

1F0C 


TB 

RRQ 

0564 

0168 

16FE 


JNE 

6B0S 

8865 



t 



0566 

016A 

04C0 


CLR 

Ri 

0867 

016C 

35C0 


STCR 

R0r7 

0868 



t 



0569 


016E' 

mm 

EQU 

S 

0570 

016E 

0260 


Cl 

R0,CR 


0170 

0000 





t»8UIR0UTINf 8f TUT 
***ENTRY POINT**** 

INITIAUZt 8ET8IT VARIABLES 
lP**#8TART INPUT STREAM*** 
l»CRUBA8Etl0P 



im 8IT,COUNT*0 


l.CKSMiB 

1»1NBIT8*0 

i»INBt0 

i«RE ENTRYtAeSETia) 


I* ***NEWREC0R0*** 
g.DO WHILE CHAR,BO.LP 
CLEAR READ RE8UE8T 

WAIT FOR READY 
S*CHARfINF83 


3*EN5 DC 

t . I F ( C H A R , 1 0 0 E L 5 C H A R • I N F 3 3 


!-•*** **6ITCHAR***** 

HERE TO SET ANOTHIR CHARACTER 
CLEAR READ REQUEST 


WAIT FOR CHARACTER 
IpCHAR i IN733 
SET THE CHAR. 

FROM THE CRU 

nr CHAR,EQ.»CR» NEWRECORO 
CHECK FOR END OF RECORD 
IF EOR, 60 START ANOTHER 





BIT VaR, # BITS PROM A8R733 948389«98il** PAGE B815 


8971 

0172 

13ED 


JEG 

GB01 

RECORD 

8972 



♦ 



1»CK8M«CK8M. XOR. CHAR 

8973 

0174 

2B80 


XOR 

R0f R14 


8974 

0176 

06CE 


SWRB 

R14 


8979 



t 



l-CB9lCNC(CB8»CHAR,C9C) 

8976 

0170 

0A10 


81A 

R0il 

left justify the * DATA BITS 

0977 

017A 

C0C3 


MOV 

R3fR3 

AVOID 16 BIT SHIFT 

8978 

017C 

1302 


JEQ 

6B06A 


8979 

017E 

A003 


A 

R3fR0 

NON, ZERO SH COUNT IN R0 

8988 

0160 

0900 


8RU 

R0|R0 

SHIFT char by no bits ON HAND 

8981 


0182* 

oeesA 

ECU 

t 


8982 

0182 

E060 


80C 

R0»R2 

OR IN NEW BITS 

8983 



♦ 



lf*C8CiCBC#7 

0984 

0184 

0223 


AI 

R3»7 

UPDATE CURR BIT COUNT 


0186 

0087 





8989 



♦ 



lfi***«6ETBT8******t* 

0986 


0188* 

SCTBT2 

EOU 

8 

♦♦•SECONDARY ENTRY POINT 

8987 







8988 



♦ 



l«IFfM00E,E0.CLR5RBS 10 

8989 

0186 

C01B 


MOV 

*R11,R0 

get PARAMETERS 

8998 

016A 

0000 


MOVB 

R0,R0 


8891 

016C 

1601 


JNE 

GB07 

JUMP IF R10 HAS GOOD DATA 

8992 

ei6E 

04CA 


CLR 

R10 

ELSE# clear OUT TRASH 

0983 







8994 


0190* 

6Bi7 

EQU 

I 


8995 







8596 



t 



1pIF(RBC.6T',C8C)6ETCHAR 

0997 

0190 

9000 


8ZCB 

R0|R0 

clear the MODE FLAG 

8998 

8192 

60CB 


C 

R0«R3 

CMPR ROST TO BITS ON HAND 

0999 

0194 

1BE7 


JH 

6604 

JUMP TO GET MORE BITS 

8688 







8681 



* 



1*D0 WHILE RBC.GT.B 

8682 


0196* 

6B08 

EOU 

8 


0683 







8684 



« 



2.CALL SLAtRBS,!) 

8685 

0196 

0A1A 


8UA 

R10il 


8686 



t 



2»CALL SLA(CB8,n 

8687 

0198 

0A12 


SLA 

R2.1 


8686 



t 



2»IF(CARRy)RBSiRB84l 

8609 

01BA 

1701 


JNC 

6B09 


8610 

019C 

098A 


INC 

R10 


8611 


019E< 

6BS3 

EOU 

1 


8612 






2»CBCtCBC*l 

8613 

019E 

8603 


DEC 

R8 


0614 



♦ 



f.RBCfRBC.l 

8619 

01A0 

0600 


DEC 

R0 

DECR REQUEST COUNT AND 

0616 


' 

t 



1»EN0 00 

0617 

B1A2 

1879 


JH 

6808 

REPEAT IF NOT DONE 

8616 



♦ 



0-RETURN 

8619 

01A4 

09CB 


INCT 

Rll 

INCREMENT RETURN ADDRESS 

0620 

01A6 

846B 


RT 






SET VAR, # SITS FROR ASRT33 94S38S«990l** 

RASE §918 

0089 



t 



fiiPROCEOURE SIT BIT fMONlTOR C^ 

0683 



t 



3*/* SIT BIT PROVIDES 10 8UP7« T 

9084 



t 



3- FOR THE AB8L0ADER, THE OFfN ; 

9680 



# 



3* HAS BEEN RROCeSSiO BY THE 

9080 



t 



3- DRIVER, 

9087 



« 



3»*/ 1 

9080 



it 




9089 


01A0f 

6T0ITH 

EQU 

$ 


9039 



* 


MAY use R9fR8,R3 

THIS SUBROUTINE 18 

0031 



# 


NON-STANDARD, 


9038 



t 



S-IF CLEAR 7LA8f9 THEN 

9033 



t 



4-RETURN CALUE 8 91 

9034 

91A8 

0938 


MOVB 

*Rn + ,R9 

CALL^li CLEAR FLAG. 

9030 

91AA 

1801 


JNI 

LDI019 


9630 

91AC 

94CA 


CLR 

R10 


9037 


91AB» 

LDIiii 

EQU 

S 


9038 



* 



3-00 WHILE RiSUtST BIT COUNTR0 

9039 

9IAE 

0078 


R0V8 

*Rll«fR3 

CALL*8 • RES BIT COUNT 

9040 

9199 

9983 


8RL 

R3»0 


9041 


0182’ 


EQU 

S 


9048 



# 



3-IF CURRENT BIT COUNT R 9 THE 

9043 

9188 

9889 


DEC 

•LOCBBC 



9194 

9989’ 





9044 

9180 

110A 


JLT 

LDI940 


0040 



t 



4-CURRlNT BIT COUNT i CURRINT 

9048 



# 



4-CALL MOVi bit (RETURN VALUE»C 

9047 

9188 

C089 


MOV 

#L0CBA,R9 



9 18 A 

0000 





9048 

01BC 

0A1A 


8L A 

RlBil 


9049 

01BE 

0999 


MOVB 

•R9tR8 


9009 

91C0 

9A1S 


SLA 

R2,l 


9091 

91C8 

1791 


JNC 

LDI039 


9098 

91C4 

9S9A 


INC 

R19 


9003 


01C0’ 

LOli30 

EQU 

S 


9004 

01C8 

0492 


MOVB 

R8,*R0 


9000 






4-RISUIBT BIT COUNT • RlQUISt 

9000 

01C8 

0803 


DEC 

R3 


9007 



t 



3-EN0|EL8f 

9000 

01CA 

1981 


JMP 

LOI90i 


9809 


01CC’ 

L0Ii4» 

EQU 

$ 


9009 






4-17 CHAR COUNT *9 THEN 001 

9081 

9 ICC 

0080 


DEC 

♦LDCC 



9 ICE 

0900 





9008 

9109 

1107 


JLT 

LD1969 


9003 






8-CHAR COUNTiCHAR COUNT -U 

9004 






8-CURRENT BIT COUNT P 7f 

9000 

9108 

0890 


LI 

R9,7 



9104 

0907 





9008 

9100 

C800 


MOV 

R9,#LDCBBe 



9108 

9194’ 





9807 



# 



8-CALL BLAtCURR BUFF AOOR.CHAi 

9008 






5-CMSH tw 8WFB( 

9009 



* 



B-CHECKBUM • BWFBeCHECKBUMrXQR 

9079 



t 



0-CURR BUFF AODR.CHAR)) ^ 


c 



6ET VAR. 0 BITS FROM A8R7S3 046389-R901** 
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0671 

0672 

eiOA 

05A0 

* 

INC 

8L0CBA 

8»CURR buff ADDR • CURR BUFF A 


01OC 

01BA< 





0673 

01OE 

CB20 


MOV 

8LOCBA.R0 



01E0 

01DC> 





0674 

01E2 

06CE 


SWFB 

R14 


0675 

01E4 

0090 


MOVB 

«R0»R2 


0676 

01E6 

0982 


8RL 

R2.8 


0677 

01E8 

2B62 


XOR 

R2fR14 


0670 

01EA 

0A92 


SLA 

R2»9 

DISCARD HIGH ORDER BIT 

0679 

0680 

01EC 

0402 


MOVB 

R2»*R0 

4#EN0|€L8C D0» 

0661 

01EE 

100F 


JMP 

LD1060 


0682 


01F0f 

LDXeS0 

EOU 

S 


0683 

0684 

01F0 

0200 


LI 1 

R0,M0900 

8-LOAO PRB OPCODE i »REAO«» 


01F2 

0900 





0685 

01F4 

0800 


MOVB 

R0»#LOOPCO 



01F6 

0000 





0686 

0687 

01F8 

C00A 


MOV 

R10.R0 

8*CALL 8VCC8VC CALL BLOCK)! 

0688 

01FA 

020A 


LI 

R10,LDFRB 



01FC 

0000 





0689 

01FE 

0420 


BLWP 

8SVCALT 



0200 

0000 





0690 

0691 

0202 

C280 

* 

MOV 

R0#R10 

a*CURR BUFF ADOR ■ LOADER BUFF 

0692 

0204 

C820 


MOV 

8LOAODR»8LOCBA 



0206 

0000 






0208 

01E0< 





0693 

020A 

0620 


DEC 

fLOCBA 



020C 

0208< 





0694 






4»EN0| 

0695 



* 



3»END| 

0696 


020E< 

iDia60 

EQU 

S 


0697 

020E 

C0C3 


MOV 

R3»R3 


0690 

0699 

0210 

1800 

t 

JGT 

LD1020 

2.EN0 6TBITMI 

0700 

0212 

0488 


RT 


4 

0701 




END 




0000 E08 
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960 • 1 

980 CQNCORrANCE 



S 


0299 

0202 

0279 



0396 

0362 

0379 



0475 

0493 

0900 



0660 

0562 

0969 



0637 

0641 

0693 

A800 

0277 

0259 



AS01 

0287 

0284 

0363 

0379 



0490 



A602 

0313 

0311 



AB020 

0329 

0327 



AS03 

0335 

0347 



AB04 

0391 

0398 



ABi6 

0350 

0324 

0348 


A600 

0302 

0337 



AB07 

0364 

0307 



A806 

0379 

0367 



AB10 

0405 

0382 



ABU 

0411 

0402 

0418 

0494 

AB12 

0415 

3408 



AS13 

0440 

0300 



AB14 

0447 

0493 



AS 16 

0467 

0443 



AB16 

0475 

0460 



ABU 

0493 

0478 



ABBBUT 

0255 

0168 



AS 81 09 

0275 

0187 



ABNO 

0241 

0442 

0604 


ABYT 

0242 

0499 



AE0 

0249 

0366 



AUOA 

0243 

3477 



BOOTl 

0271 

0265 



CK8M 

0291 

3381 



Cl9 

0196 

3298 

0383 

0318 

C1.999Q 

0204 

3534 

0546 

0961 

CI.AN9Q 

0203 

3933 



CR 

0209 

0970 



OCl 

0206 

0535 



oei 

0207 

3997 



0T8 

0201 

9531 



ENTRY 

0213 




EOM 

0246 

3407 



6S01 

0543 

3594 

0971 


6B02 

0547 

3649 



6604 

0560 

0599 



6806 

0562 

3564 



6606 

0569 

0558 



6B06A 

0581 

3578 



6607 

0594 

0991 



6608 

0602 

0617 



6609 

0611 

0609 



6EU2A 

0913 




8BT16 

0907 

0445 

0480 


6ET19 

0900 

0369 

0386 


6ET19A 

0906 

0505 



setbit 

0524 

0257 



GETeT 2 

0586 

0542 



8TBITM 

0629 

0276 



UDADOR 


0195 

0692 


I.0C6A 


0191 

0647 

0672 

lOCBBC 


0190 

0280 

0643 


0277 

0287 

0813 

0329 

0339 

0391 

0409 

0411 

0419 

0440 

0447 

0497 

0507 

0509 

0913 

0524 

0543 

0947 

0961 

0588 

0994 

0602 

0611 

0620 

0659 

0682 

0696 




0378 

0398 

0401 

0494 

0474 

0486 


0S06 


0S4i 0394 0421 0438 0463 


0073 0092 0663 

0000 



UDCC 


0192 

UOI010 

0637 

0635 

L.DX020 

0641 

0698 

1.0X030 

0653 

0651 

I.DX040 

0659 

0644 

1.DX0S0 

0662 

0662 

UOX060 

0696 

0658 

LOOPCD 


0193 

LOPHB 


0194 

IF 

0208 

0553 

woaoao 

0214 


OR 

0197 

0468 

F6I. 

0248 


PSN 

0247 

0306 

PRfiNM 

0215 

0285 

R0 

0220 

0551 

0579 

0598 

0675 

R1 

0221 

0257 

0462 

R10 

0230 

0299 

0344 

0442 

0504 

0686 

Rll 

0231 

0278 

R12 

0232 

0529 

Rl3 

0233 


R14 

0234 

0282 

R19 

0235 

0278 

R2 

0222 

0535 

0676 

RS 

0223 

0281 

0656 

R4 

0224 

0501 

R8 

0225 

0450 

R6 

0226 

0289 

R7 

0227 

0315 

R8 

0228 

0283 

0374 

R9 

0229 

0264 

RON 

0240 


REA 

0250 


RlA 

0239 


RPT 

0252 

0417 

RRQ 

0205 

0548 

RT8 

0202 

0532 

SVCAUT 


0189 

XTF 

0244 

0299 


945389-9901** 

0661 


0681 




0685 




0688 




0312 




0582 

0553 

0857 

0568 

0560 

0580 

0582 

0589 

0615 

0634 

0647 

0649 

0679 

0684 

0665 

0686 

0276 

0297 

0302 

0317 

0467 

0502 

0810 

0514 

0306 

0320 

0321 

0326 

0366 

0371 

0361 

0397 

0450 

0489 

0465 

0471 

0512 

0516 

0592 

0605 

0668 

0690 



0501 

0508 

0589 

0619 

0261 

0384 

0396 

0540 

0283 

0310 

0374 

0410 

0536 

0540 

0582 

0607 

0677 

0678 

0679 


0577 

0577 

0579 

0584 

0697 

0697 



0508 

0519 



0472 

0483 



0321 

0336 

0357 

0423 

0326 

0328 

0346 


0285 

0291 

0310 

0312 

0376 

0384 

0397 

0399 

0264 

0268 

0279 

0371 

0563 




0689 
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0867 

0870 

0873 

0876 

0560 

0500 

0597 

0897 

0654 

0665 

0666 

0673 

0690 




0339 

0353 

0420 

0437 

0517 

0542 



0328 

0330 

0331 

0343 

0400 

0487 

0417 

0423 

0472 

0477 

0483 

0468 

0610 

0636 

0648 

0652 

0634 

0639 




0573 

0574 

0674 

0877 

0412 

0413 

0488 


0649 

0650 

0654 

0875 

0598 

0613 

0039 

0640 


0424 

0482 



0323 

0323 

0331 

0344 

0400 

0485 

0487 

0488 


0376 


THERE ARE 0094 


SYNSQI.8 




ri-*»ts-c 























PtOlAl m tlNK AND LOAD 
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PAGE 0002 


** 


0003 




0004 


title* 

PX9LAL 

0005 

# 


LINKING LOADER 

0006 

t 

REVISION! 

05/01/74 

0007 

t 


ORIGINAL 

0008 

# 


03715/76 

0009 



MOOiriEO TO BE OVERLAY CONNAND OP PXOMTR 

0010 


COMPUTERI 

990*990 ASSEMBLY 

0011 

# 

ABSTRACT! 

PX9LAL IS A VERSION OP LAL990 NOOIPIED 

0012 



TO RUN WITH PX9HTR, THE PROTOTYPING SYSTEM 

0015 

t 


AND 7S3ASR PROGRAM DEVELOPMENT SYSTEM DEBUG 

0014 

♦ 


monitor 

0015 

t 


PX9LAL LOADS OBJECT MODULES INTO MEMORY, 

0016 

* 


PERFORMS THE LINKING OEPINEO IN THE 

0017 



PROGRAM MODULES, PERFORMS THE ADDRESS 

0018 

♦ 


MODIFICATION FOR RELOCATABLE CODE, AND 

0019 

* 


PRINTS A LOAD MAP. 

0020 

# 





DATA BASE 


»4930S«99ei 


pace PfS3 




DATA BASE 


@4S300«.99et ** PAGE PBP4 


mn 

0002 

PTR 

EQU 

2 

0078 

0003 

N8MBIP 

EQU 

3 

0079 

0004 

SYHi 

EQU 

4 

0080 

0005 

TMP 

EQU 

S 

0081 

0006 

uoc 

EQU 

6 

0082 

000/ 

SRSH 

EQU 

7 

0089 

0008 

N88SG 

ECU 

6 

0084 

00iC 

HEAP2 

EQU 

12 

0085 


* 



0086 


* 

CMWP 

REGISTERS 

0087 


* 



0088 

000'a 

CKL 

EQU 

0 

0089 

0001 

HVAL 

IQU 

1 

0090 

0002 

RORL 

EQU 

2 

0091 

0003 

CLIMPT 

fOU 

3 

0099 

0004 

ENDOB 

EQU 

4 

0093 

0005 

HEXP 

EQU 

5 

0094 

0005 

RLRG 

EQU 

6 

0095 

000/ 

C8UM 

EQU 

7 

0096 


* 



0097 


* 

CONVWS REGISTERS 

0098 


* 



1099 

0000 

BINVAL 

ECU 

0 

0100 

0001 

VAU8V 

EQU 

1 

0101 

0002 

MAOn 

EQU 

2 

0102 

0009 

8CCO0E 

EQU 

3 

0103 

0007 

BHCOOE 

EQU 

7 

0104 

0006 

HICODE 

EQU 

8 

0106 

0009 

8VCAL1 

EQU 

9 

0108 

000F) 

HCNT 

EQU 

11 

0107 

00 0C 

PCNT 

EQU 

12 

0108 

000E 

CHOPC 

EQU 

14 

0109 


* 



0110 


* 

symbol registers 

0111 


* 



0112 

0000 

SY8PTR 

EQU 

0 

0119 

0001 

8YMN0 

EQU 

1 

0114 

0002 

FIAGS 

EQU 

2 

0115 

0003 

8YHNM 

EQU 

3 

0116 

0004 

N8YM 

IQU 

4 

0117 

0005 

VALUE 

EQU 

5 

0118 

0006 

SEVEN 

IQU 

6 

0119 

0007 

8TPTR 

EQU 

7 

0120 

0008 

NW8CT 

EQU 

8 

0121 

0009 

TN 

EQU 

9 

0122 

000A 

N88IT 

IQU 

10 

0123 

000C 

NINE 

EQU 

12 

0124 


* 



0125 


* 

I/O 

WORKSPACE EQUATES 

0126 


« 



0127 

0000 

RDCnOP 

EQU 

0 

0128 

0001 

WRCODP 

lOU 

1 

0129 

0002 

IOC 

EQU 

2 

0190 

0003 

lOPLUN 

IQU 

3 

0131 

0004 

FLG8 

IQU 

4 







DATA BASE 
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t* 


Bias 

0008 

bufadr 

EQU 

5 


0133 

0006 

BUFLEN 

ROU 

6 


0134 

0007 

CHRCNT 

EQU 

7 


0138 

0001 

LIN 

F.QU 

8 


0136 

0000 

SVCAL2 

EQU 

9 


0137 

0006 

RTN 

EQU 

11 


0138 


« 




0139 


* 

COMMON REGISTER 

EQUATES 

LI 40 


* 




0M1 

0000 

R0 

EQU 

0 


0142 

0001 

R1 

EQU 

1 


0143 

0002 

R2 

EQU 

2 


0144 

0003 

R3 

EQU 

3 


0148 

0004 

R4 

EQU 

4 


0146 

0008 

R5 

EQU 

8 


0147 

0006 

R6 

EQU 

6 


0148 

0007 

R7 

EQU 

7 


0149 

0006 

R8 

EQU 

8 


0180 

0009 

R9 

EQU 

9 


0181 

000A 

R10 

EQU 

10 


0182 

0006 

Rll 

EQU 

11 


0183 

000C 

R12 

EQU 

12 


0184 

000D 

R13 

EQU 

13 


0188 

000E 

R14 

EQU 

14 


0186 

000P 

Rl8 

EQU 

18 


0187 


* 




0188 


* 

ERROR 

CODES 


0189 


* 




0160 

2301 

IL80 

EQU 

>2301 

ILLEGAL LOAD SEQUENCE 

0161 

2302 

I L C D 

EQU 

>2302 

illegal load code 

0162 

8303 

HSEND 

EQU 

>2303 

MISSING END STATEMENT 

0163 

2304 

LAER 

EQU 

>2304 

LOAD ADDRESS ERROR 

0164 

2308 

PRUM 

EQU 

>2308 

PREVIOUS LOAD NODULE 

0168 

2306 

CK8M 

ECU 

>2306 

CHECKSUM ERROR 


DATA BASE 



945390«9901 ** 
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8167 



1 

t' * 




8168 



# 

MONITOR COMMAND OVERLAY SECTION 

\J 

r 8169 



# 




0178 

0808 

4C 


TEXT *LL» 



0171 

0802 

08BE * 


DATA LALC8R 



8178 

8804 

0888 


DATA 8 



0173 







0174 



♦ 




0175 




DATA 



0176 



* 




0177 

0806 

0A0O 

LECR 

DATA P8A8D 

LINE FEED/CARRIAOE RETURN 


8178 


0806» 

LE 

ECU LFCR 



0179 


0807* 

CR 

EQU LFCRPl 



0188 

0888 

28 

blank 

BYTE >20 


■ ■■ ' ','i 

0181 


2000 

EOF 

EQU >2080 

END DP file STATUS 


0182 


4800 

lOERR 

EQU >4080 

unrecoverable error status 


8183 

8889 

SA 

COLON 

BYTE *i * 



0184 

080A 

46 

F 

BYTE *F« 



8188 

8808 

4C 

LOAD 

BYTE *L» 



8186 

080C 

45 

END 

BYTE *E* 



0187 

08 0D 

54 

TERM 

BYTE *T* 



8188 







0189 



* MONITOR 8UPV CALL CODES FOR I/O 


8198 



# 




0191 


0900 

ROCOO 

EQU >8900 

READ ASCII 


8192 


0B00 

WRCOD 

EQU >8080 

NRITE ASCII 


0193 




EVEN 


■ 

0194 



t 




0198 



# PERIFMERAL DEVICE DEFAULT 

LOGICAL UNIT numbers 


0196 



it 




0197 

080E 

0808 

KBLUNO 

DATA 8 

LOG {KEYBOARD) 


0198 

8018 

0006 

PRLUNO 

DATA 6 

LOG (PRINTER) 


0199 

0012 

0807 

CTLUNO 

DATA 7 

C8# (DEFAULT CASSETTE LUNO) 


0208 



t 




0201 



★ 

default load VALUES 



0202 







0203 


0000 

DLOPT 

EQU 0 

LOAD POINT 


0284 


08A0 

OLOil 

EQU >A0 

LOAD BIAS 


0205 



* 




0206 



♦ 

DEFINITION MESSASE 



0207 



# 




0208 

8814 

20 

defm 

TEXT * * » 



0209 

0822 

0000 

defn 

DATA 0,010 




0824 

0800 






0826 

0800 





0218 

8828 

20 


TEXT » » 



0211 

082A 

0000 

defl 

DATA 0,0 




002C 

0000 





0212 

082E 

00 


BYTE >0 



0213 



# 




0214 




undefined symbols MESSAGE 


0215 



t 




0216 

082F 

55 

UNDEF 

TEXT *UNOEF» 

undefined symbol 


0217 

0834 

0A 


BYTE >A,>0 


1 ^) 



DATA BASE 


945390-9901 


PAGE 0007 


«« 



0035 

00 


0218 

0036 

20 

UOS TEXT » ' 

0219 

003A 

0000 

UD8N DATA 0,0,0 


003C 

0000 



003E 

0000 


0220 

0040 

0A 

BYTE >A,>D 


0041 

00 


0221 



♦ 

0222 



♦ MULTIPLY DEFINED SYMBOL MESSAGE 

0223 



♦ 

0224 

0042 

20 

MULOr TEXT » M' multiple DEFINED SYMBOL 

0225 

0044 

00 

BYTE >0 

0226 



* 

0227 



* LOAD MESSAGE 

0228 



♦ 

0229 

0045 

4C 

LOOMSG TEXT tLOAD/ENOT ' 

0230 

004F 

00 

BYTE »D 

0231 



♦ 

0232 



* NAME MESSAGE 

0233 



* 

0234 

0050 

20 

NAMM80 TEXT ' » 

0235 

0056 

0000 

name data 0,0,0,' ' 


0056 

0000 



00SA 

0000 



005C 

2020 


0236 

005E 

0000 

LOCVAL data 0,0 


0060 

0000 


0237 

0062 

00 

BYTE >0 

0238 



* 

0239 



* ENTRY MESSAGE 

0240 



* 

0241 

0063 

20 

ENTMSG TEXT » ENTRY ■ ' 

0242 

006C 


LOCNUM BS8 4 

0243 

0070 

0A 

BYTE >A,>D 


0071 

00 


0244 



* 

0245 



* END ACTION MESSAGE 

0246 



* 

0247 

0072 

0A 

ENDACT BYTE )*A 

0248 

0073 

54 

TEXT 'TERM/CONTI ' 

0249 

007E 

00 

BYTE »D 

0250 



* 

0251 



♦ LIST MESSAGE 

0252 



* 

0253 

007E 

0A 

LSTMSG byte »a 

0254 

0080 

48 

TEXT 'F/P LIST? ' 

0255 

008A 

00 

BYTE >D 

0256 



* 

0257 



* REQUEST LOAD POINT MESSAGE 

0256 



* 

0259 

008B 

0A 

UPMSG BYTE »A 

0260 

00SC 

4C 

TEXT »L0 PT? » 

0261 

0093 

00 

BYTE >0 

0262 



* 

0263 



* REQUEST LOAD BIAS MESSAGE 


DATA iASE 


94Sa90ti990i 


PASe 0098 



0264 


* 



0265 

0094 

0A LB586 

BYTE 

>A 

0265 

0095 

4C 

TEXT 

»LD 

0267 

0268 

009C 

m 

BYTE 

EVEN 

>0 
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MAIN driver 945390ii99Gl ** 


0871 



* MAIN DRIVER WORKSPACE AREA 



0878 



♦ 





0873 



HAINWP 





0874 

009E 

0000 


DATA 

0 

R0 

TEMP 

0875 

00A0 

0000 


DATA 

LDBUF 

R1 

RDRBF 

0876 

00A8 

088C' 


DATA 

EN08T 

R9 

E8TPT 

0877 

00A4 

097B< 


DATA 

SYM0O14SYMPTR+8YHPTR R3 

8YMP 

087B 

00A6 

0063’ 


DATA 

ENTM8G 

R4 

INTPT 

0879 



ENTADO 





0880 

00A8 

0000 

ENTVL 

DATA 

0 

R9 

ENTVAL 

0881 

00AA 

065C* 


DATA 

PRINTN 

R6 

PPNTN 

0888 

00AC 

2000 

8YMTAB 

DATA 

>2000 

R7 

SPTR 

0883 

00AE 

0000 

TOPOAT 

DATA 

0 

R8 

TPPT 

0884 

0080 

0000 


DATA 

0 

R9 

UNDPT i I/O RTN 8TATU8 

0285 

0082 

0000 


DATA 

0 

R10 

IDPARM 

0286 

0084 

0000 


DATA 

0 

Rll 

RETURN 

0887 

0086 

0S7C* 


DATA 

8YM0OL+PIA68*FLAGS R12 

8FLA68 

0886 

0088 

0000 


DATA 

0 

R13 


0289 

00BA 

0000 


DATA 

0 

R14 


0290 

00BC 

0000 


DATA 

0 

R15 



main oRiveR 


94S390«990i ** 


RACE 


0999 

0993 

0994 

0995 
0995 
0997 
0995 
0999 
0305 

0301 

0309 

0303 

0304 
1305 

0305 
0307 
0305 

0309 

0310 

0311 
0319 

0313 

0314 

0315 

0316 

0317 
0315 
0319 
1320 
0321 
0329 
0393 

0324 
0395 

0325 
0327 

0326 

0329 

0330 

0331 

0332 

0333 

0334 

0338 

0335 
0337 

0335 

0339 


* TITLEI PX9LAL 

* LINK and load DRIVER 

* REVISIQNI 05/01/74 

* original 

* 03/15/75 

* MODIFIED TO BE A COMMAND OF PX9MTR 

* CDMPUTERI 990, ASSEMBLY 

* A58TRACTI THE LIST OPTION IS REQUESTED, THE USER 

* SHOULD ENTER »F» FOR FULL AND »P» FOR 

* PARTIAL LIST. THE QUESTION »L0AD/ENDT* 

* IS ASKED, THE USER SHOULD INTER 'L» FOR 

* LOAD OR »E' FOR END. IF LOAD, THE DISPATCH 

* ROUTINE IS CALLED TO PROCESS THE MODULE. 

* THE LOAD/SNO LOOP IS CONTINUED UNTIL 

* ALL MODULES HAVE 5EEN LOADED'. 

* IF END, THE ENTRY POINT AND ANY UNDEFINED 

* SYMBOLS ARE PRINTED, AND THE TERM/ CONT 

* QUESTION IS ASKED, IF THERE ARE STILL 

* SOME UNDEFINED SYMBOLS, TM| CONT OPTION 

* MAY BE SPECIFIED AND ADDITIONAL MODULES 

* MAY BE LOADED, ONCE ALL MODULES ARE LOADIO, 

* TERM MAY Bl SPECIFIED, AND CONTROL WILL 

* RETURN TO THE MONITOR, THE USER MAY THEN 

* EXECUTE OR DEBUS HIS PROGRAM WITH MONITOR 

* COMMANDS. 

* calling SEQUENCE! 

* BL iLALCSR 

* STATISTICS! WORKSPACE • MAINWP eUNSHARED) 

* ROUTINES CALLED! 

* PRINT, PRINTN, KEVIN, 08PTCH, GIT8FL, 

* GETSNM, 8INHEX, PiCRLF, GETHEX, OPEN 

t 


* PX9LAL COMMAND INTERFACE 

* 


LALC8R 


00BE 

0420 


8LWP 

•PX9LAL 

START UP LAL 

00C0 

00C4» 





00C9 

04SB 

* 

PX9LAL 

RT 


RETURN TO MONITOR 

00C4 

009E’ 


DATA 

MAINWP, LAL 

WQRK8PACE,8TART 

00C6 

00CS' 

LAL 




00C» 

08E0 


LWPI 

MAINWP 

IN IT WP 

00CA 

009Ef 





00CC 

05A0 


BL 

0PRCRLF 

PRINT CR/LF 

00CE 

0000 





0000 

1000 

RQLP 

NOP 


IGNORE ERROR RETURN 

0009 

020A 


LX 

ioparm.lpmsg 

REQUEST LOAD POINT 

0004 

00 SB* 





0005 

0416 


BLWP 

aPRNTN 


0005 

06A0 


BL 

•GETHEX 

INPUT HEX VALUE 

00OA 

0000 







M/kJN DRIVER 


04539ei«9R01 «* 
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0340 

00DC 

10FA 


JMP 

RQLP 

IF ERROR 

0341 

00OE 

1002 


JMP : 

STLP 

GOOD INPUT value 

0342 

00E0 

020A 


LI 

R10,OLDPT 

NO INPUT, ASSUME DEFAULT 


00E2 

0000 





0343 



8TI.P 




0344 

00E4 

C80A 


MOV 

R10,#LOADPT 

SAVE LOAD POINT 


00E6 

01EE» 





0345 



RQLB 




0345 

00E6 

020A 


LI 

I0PARM,LBMSG 

REQUEST LOAD BIAS 


00EA 

00941 





0347 

00EC 

0416 


BLWP 

*PRNTN 


0345 

00EE 

06A0 


BL 

•GETHEX 

INPUT HEX VALUE 


00F0 

00DA' 





0349 

00F2 

10FA 


JMP 

ROL0 

IF ERROR 

0350 

00F4 

1002 


JMP 

8TL8 

GOOD INPUT VALUE 

0351 

00F6 

020A 


LI 

R10,DLDBI 

NO INPUT, ASSUME DEFAULTS 


06F6 

00A0 





0352 



8TL8 




0353 

00FA 

C80A 


MOV 

R10f fBIASWO 

SAVE LOAD BIAS 


00FC 

01OA1 





0354 

00FE 

C14A 


MOV 

R10»ENTVAL 

SET INITIAL ENTRY POINT 

0355 

0100 

0207 


LI 

8PTR,INIT 

START OF PX9MTR IS END USRMEM 


0102 

0000 





0356 

0104 

C487 


MOV 

8PTR,*ESTPT 

END OF SYMBOL TABLE POINTER 

0357 

0106 

0607 


DEC 

8PTR 


0356 

0106 

C4C7 


MOV 

SPTR#*SYMP 

INIT symbol Table pointer 

0359 

010A 

05A0 


INC 

0FSTIM 

SET FIRST MODULE FLAG 


010C 

040A' 





0350 

010E 

0208 


LI 

TPPT,>80 

SET DATA LIMIT 


0110 

0080 





0351 



* 




0362 



♦ LIST OPTION 


0363 



« 




0364 

0112 

020A 


LI 

ioparh.ustmso 

PRINT LIST OPTION MESSAGE 


0114 

007F* 





0365 

0116 

0416 


BLWP 

♦ PRNTN 


0366 

0118 

C281 


MOV 

RDR8F,I0PARM 

WAIT FOR RESPONSE 

0367 

01 1 A 

0420 


BLWP 

• KEVIN 



011C 

061C 





0366 

011E 

04E0 


CLR 

• LIST 

clear list flag 


0120 

052C« 





0369 

0122 

9811 


C8 

♦RDRBF.iF 

IS FULL LIST 0E8IREDT 


0124 

000A* 





0370 

0126 

1602 


JNE 

ASK 

NO • CONTINUE 

0371 

0128 

05A0 


INC 

• LIST 

YES • SET FULL LIST FLAG 


012A 

052C1 





0372 



* 




0373 




REOUE8T LOAD/ENO ACTION 

0374 







0375 



ASK 




0376 

012C 

02E0 


LWPI 

MAINWP 

LOAD WORKSPACE POINTER 


012F 

009C» 





0377 

0130 

06A0 


BL 

• PRCRLP 

PRINT CR/LF 


0132 

00CC' 





0378 

0134 

1000 


NOP 


IGNORE ERROR RETURN 


C 


M^IN driver 


R453R0«99ei ** 


PASi PP12 


1379 



REQLE 




0380 

0136 

020A 


LI 

IOPARM,LOOMS6 

PRINT LOAD/ENO MSG 


0138 

0045’ 





0381 

013A 

0416 


8LWP 

•PRNTN 


0382 

0 1 3C 

C281 


MOV 

ROR0F,IOPARm 


0383 

013E 

040 A 


CLR 

♦lOPARM 

INIT INPUT BUFFER TO 0 

0384 

0140 

0420 


BLWP 

PKEYIN 

WAIT FOP RESPONSE 


0142 

061C 





038S 

0144 

9811 


CB 

•R0RBF,iE80 

END» 


0146 

000C* 





8386 

0148 

1314 


JEO 

ENDPRO 

YES 

0387 

014A 

9811 


CB 

*rorbf,#loao 

LOAD? 


014C 

000B» 





0388 

014R 

16F3 


JNE 

REQLE 

NO, ASK AGAIN 

0389 

0150 

C820 


MOV 

•K7,8CTLUN0 

DEFAULT TO CASSETTE LUNO 7 


0152 

0584' 






0154 

0012' 





0390 

0156 

0601 


SWPB 

*RDRBF 

CASSETTE LUNO INPUT? 

0391 

0158 

0011 


MOVB 

*RORBF,T|MP 


0392 

01SA 

1304 


JEO 

0PNCA8 

NO, USE DEFAULT 

0393 

015C 

0240 


ANDI 

TEMP,>F00 

CLEAR ALL BITS EXCEPT LUNO 


015F 

0F00 





0394 

0160 

0800 


MOVB 

TEMP,8CTLUN041 

SAVE INPUT LUNO 


0162 

0013» 





0395 



0PNCA8 




0396 

0164 

C2A0 


MOV 

PCTLUNO,IOPARM 

OPEN CASSETTE 


0166 

0012’ 





0397 

0168 

0420 


BLWP 

fOPSN 



016A 

05FC» 





0398 



BATCH 




0399 

016C 

0420 


8LWP 

PDSPTCH 

PROCESS module 


0161 

01FC' 





0400 

0170 

10FD 


JMP 

BATCH 

PROCESS NEXT MODULE 

0401 



* 




0402 



* 

PROCESS UNOEFINEO SYMBOLS 

0403 



* 




0404 



ENDPRO 




0405 

0172 

0709 


SETQ 

UNOPT 

SET UNDEFINED PRINT FLAG 

0406 

0174 

C4C7 


MOV 

SPTS,*8YMP 

POINT TO SYMBOL TABLE 

0407 



cksymb 




0408 

0176 

8493 


C 

*SYMP,#E8TPT 

END OP table? 

0409 

0178 

1215 


3LE 

ENTB 

YES • END PROCESSING 

0410 

017A 

0420 


BLWP 

PGETSFL 

NO • GET SYMBOL FLAGS 


017C 

0598 » 





0411 

0l7f 

061C 


DEC 

♦8FLAS8 

UNDEFINED? 

0412 

0180 

1114 


JLT 

NXSYM 

NO • GET next symbol 

0413 

0182 

C249 


MOV 

UNOPT, unopt 

PRINT 'UNDEFINED' MESSAGE? 

0414 

0184 

1305 


JfES 

SPRNT 

NO • SKIP 

0415 

0186 

020A 


LI 

IOPARM,UNOEP 

POINT TO message 


0188 

002F' 





0416 

018A 

0420 


BLWP 

PPRINT 



018C 

06se> 





0417 

018E 

04C9 


CLR 

UNDPT 

CLEAR print flag 

0418 



SPRNT 




0419 

0190 

0420 


BLWP 

•GET8NM 

POINT TO SYMBOL NAME 






MAIN DRIVIfi 


948a90«9901 ** 


MA6E 0013 



0192 

05AC* 






0480 

0194 

C2A0 



MOV 

PSYMBOLpSYMNM+SYMNMiIOPARM 


0196 

057E» 






0481 

0198 

0200 



LI 

T|MP,UD8N 

POINT TO NAME IN MESSAGE 


019A 

003A’ 






0482 

019C 

CC3A 



MOV 

•10PARM+,*TEMP4 

MOVE NAME into MESSAGE 

0483 

019E 

CC3A 



MOV 

*IOPARM+i*TEMP+ 


0484 

01A0 

C41A 



MOV 

♦I0PARM,4TEMP 


048S 

01A2 

020A 



LI 

IOPARM,U08 

POINT TO MESSAGE 


01A4 

0036» 






0480 

01A6 

0420 



BLWR 

PPRINT 

PRINT IT 


01A8 

0688’ 






0487 



NX8YM 




0480 

01AA 

64E0 



S 

PTEN,*SYMP 

POINT TO NEXT ENTRY 


01 AC 

056A> 






0429 

01AE 

10E3 



JMP 

CK8YMB 

CHECK NEW SYMBOL 

0430 



t 





0431 



* 

ENTRY MESSAGE AND TERMINATE OPTION 

0432 








0433 



ENT8 




0434 

0180 

C284 



MOV 

ENTPT»IOPARM 

PRINT ENTRY POINT MSG 

043S 

0182 

0420 



8LMP 

pbinhex 

CONVERT ENTRY LOCATION 


0184 

0540’ 






0436 

0186 

00A8’ 



DATA 

ENTVL 

ENTRY VALUE 

0437 

0188 

006C’ 



DATA 

LOCNUM 

LOCATION IN MESSAGE 

0438 

01BA 

0420 



8LNP 

•PRINT 



018C 

0688* 






0439 

01BE 

020A 



LI 

ioparm.sndact 

PRINT TEPM/CONT MSG 


01C0 

0072’ 






0440 

01C2 

0416 



BLWP 

♦PRNTN 


0441 

01C4 

C281 



MOV 

RDRBF,10PARM 

WAIT FOR RESPONSE 

0442 

01C6 

0420 



BLWP 

•KEYIN 



01C8 

061C’ 






0443 

01CA 

9811 



CB 

•RDRBP.PTERM 

terminate? 


01CC 

0000’ 






0444 

01CE 

16AE 



JNE 

ASK 

NO - GET MORE MODULES 

0448 



♦ 





0446 



♦ 

END 

OP PX9LAL 


0447 








0448 

0100 

C80S 



MOV 

ENTVAL»«U8RPC 

SET UP ENTRY POINT FOR PX9MTR 


0102 

0000 






0449 

0104 

0380 



RTWP 


RETURN 


LOAD MODUME 0I8PATCHER 


94e39i«O901 *« 


PACE eei4 


< 948 ^ 

0453 

0484 

0458 

0456 

0457 
0450 

0459 

0460 

0461 
0469 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 
0478 


t 

* D8PTCH W0RK8PACE ARIA 

* 


D8WP 


0106 

0000 


DATA 

0 

R0 

INPT 

0108 

0009 


DATA 

0 

R1 

T8F1.0 

01OA 

00A9 

BIASMO 

D8NP2 

DATA 

>A0 

R2 

BIAS 

01OC 

0000 

NWLOC 

DATA 

0 

R3 

NEWLOC 

01OE 

0009 


DATA 

0 

R4 

LOCPT 

01E0 

0009 


DATA 

0 

R8 

8VPT 

01E2 

0000 


DATA 

0 

R6 

HLD 

01E4 

0000 


DATA 

0 

R7 

FLSVI. 

01E6 

0000 


DATA 

0 

R8 

PC 

01E8 

0000 


DATA 

0 

R8 

RETURN STATUS ON READ 

01EA 

0000 


DATA 

0 

R|0 

lOPARM 

01EC 

0000 


DATA 

0 

Rll 

RETURN 

01 EE 

0000 

LOADPT 

DATA 

0 

Rl2 

LOPT 

01P0 

03ES» 


DATA 

INCHK 

R13 

INCP 

01F2 

0000 


DATA 

0 

R14 

IN8ID 

01P4 

00AEt 


DATA 

TOPOAT 

Ri5 

TDAT 

01P6 

0000 


DATA 

0 

R13 

010 HP 

01F8 

0000 


DATA 

0 

R14 

OLD PC 

01FA 

0000 


DATA 

0 

R18 

OLD ST 



LOAD MOOULf OISPATCHSR 945390-9P01 ** PAGK 0015 


8477 

* 

muf * 

DSPTCH 


8470 

* 


LOAH module DISPATCHER 

8479 

* 

REVXSIONI 

05/01/74 


8480 

♦ 


ORIGINAL 


8481 



03/15/76 


8482 

♦ 


MODIFIED 

TO RUN WITH PX9MTR 

8483 


COHPUTERI 

998 r 990 

assembly 

8484 


ABSTRACT! 

OBJECT RECORDS ARE READ AND PROCESSED, 

0485 

H 


EACH RECORD contains SEVERAL OBJECT ENTRIES. 

0486 

n 


AN OBJECT ENTRY CONSISTS OF A TaB FIELD AND 

8487 

n 


UP TO TWO ADDITIONAL FIELDS. THE TAB FIELD 

8486 

n 


OF EACH 

ENTRY IS USED TO BRANCH TO THE ! 

8489 

n 


APPROPRIATE PROCESSOR, A TAG FIELD OF «F» 

8490 

* 


WILL CAUSE A NEW RECORD TO BE READ. 

0491 

# 

CALLING SEQUENCEl 


8492 

♦ 


BLWP 608PTCH 

0493 

it 

STATISTICS! 


8494 

* 


WORKSPACE • DSWP AND DSWP2 (UNSHARED) 

8495 

* 


ALL SIXTEEN REGISTERS ARE USED BY OVERLAPPINB 

8496 

♦ 


DSWP AND 

08WP2, ALL ENTRANCES ARE DEFINED 1 

8497 



THROUGH 

EXWP2 TO RETAIN THE RETURN ENVIRONMENT, 

8498 



THE FIRST INSTRUCTION IS THEN A »LWPI 08WP« j 

8499 

« 


TO GAIN 

THREE additional REGISTERS FOR USE, 

8580 

n 


A »LWPI 

oswp2» will then precede any RTWP 

0581 

n 


instruction, i 

8502 

it 




8583 

it 


THE TAG 

FIELDS REPRESENT THE FOLLOWING i 

8584 

it 


ENTRY TYPES! | 

8585 

H 


* TAG 

meaning j 

8586 

it 


* 0 

lOT RECORD 

0587 

t 


* 1 

absolute entry address 

8586 

♦ 


4 2 

RELOCATABLE ENTRY ADDRESS 

8589 

« 


* 3 

EXTERNAL REFERENCE IN RELOCATABLE CODE 

0510 

H 


4 4 

EXTERNAL REFERENCE IN ABSOLUTE CODE 

0511 

* 


4 5 

RELOCATABLE EXTERNAL DEFINITION 

8512 

* 


4 6 

absolute external definition 

8513 

it 


4 7 

checksum 

8514 

it 


4 8 

IGNORE CHECKSUM 

8515 

t 


4 9 

ABSOLUTE LOAD ADDRESS 

8516 

it 


4 A 

relocatable load ADDRESS 

0517 

it 


4 B 

ABSOLUTE DATUM 

8518 

it 


4 C 

relocatable DATUM 

0519 

it 


4 0 

LOAD BIAS 

8520 

it 


4 E 

illegal tag field 

8521 

it 


4 F 

END OF RECORD 

8522 

it 


4 G 

RELOCATABLE SYMBOL (IGNORED) 

0523 

« 


4 H 

absolute symbol (IGNORED) 

8524 

it 



’ 

8525 

it 

ROUTINES 

CALLED! 


8526 

it 


BINHEX,CONVRT,CUMCHK, ERROR, GETSVLrHEXBIN, 

0527 

it 


INCHK, LOR, PRCRLF.PRINTN, READ, SRCSYM 

8528 

H 




8529 

D5PTCH 



0530 01FC 

01OC» 

DATA 

08WP2 

WORKSPACE 



iOAO MOOUUE 0I8PATCH6R 945390-9901 *• PASI Pilfl 


0991 

01PE 

02ii' 


DATA 

OSBG 

START 

0939 



DSi§ 




0933 

0200 

02E0 


LWPI 

D8WP 

ADJUST WORKSPACE 


0202 

0106’ 





0934 

0939 

0204 

04CE 

♦ 

CLP 

IN8ID 


0936 



* 

RIAO AN OBJECT RECORD tP) 

0937 



# 




0990 

0999 

0206 

0200 

TA8F 

LI 

INPT.LOBUP 

POINT TO READ BUFFER 


0208 

00A0’ 





0940 

020A 

C260 


MOV 

INPT.IOPARM 


0941 

020 C 

0420 


BLWP 

PREAD 

READ A RECORD 


020E 

0612’ 





0942 

0210 

0249 


ANOI 

R9,E0P4ieERP 

EOF OR lOtRR ENCOUNTERED 


0212 

6000 





0943 

0944 

0214 

1660 

t 

JNE 

ASK 

YES, RESTART 

0949 



# 

ADJUST BIAS AND BRANCH BY TAG CHARACTER 

0949 



t 




0947 

0948 

0216 

0242 

CHIP 

ANOI 

BIA8,>FPPi 

SET BIAS TO WORD BOUNDARY 


0218 

PFPE 





0949 

021A 

04C7 


CLP 

FLGVL 

CLEAR REF/DEF flag 

0990 

021C 

04C6 


CLP 

HLO 

CLEAR TEMP LOCN FOR OFFSET 

0991 

021E 

D070 


MOVB 

*INPT4,TSFLD 

GET TAG FIELD 

0992 

0220 

0221 


AI 

TGFLOr»»880i 

ADJUST FOR ASCII 


0222 

0000 





0993 

0224 

1120 


JLT 

TAGE 

NOT IN RANGE • INV LO CO 

0994 

0226 

0971 


8RL 

TGFLD,7 

ADJUST TAG FOR BRANCH 

0999 

0228 

0281 


Cl 

TGFLOfJMPTBl* 

jmptbpI in rangei 


022A 

0031 





0956 

022C 

19 IC 


JCT 

TAGE 

NO • INV LD CO 

0997 

022E 

C061 


MOV 

PJMPTBtTGFLD) 

, TGFLO branch on TAG 


0230 

0234’ 





0998 

0999 

0232 

0491 


B 

♦TGFLO 


0960 



« 

TAS CHARACTER JUMP 

TABLE 

0561 







0562 

0963 

0234 

0278 ’ 

4MPTI 

DATA 

TAG0 

IDT RECORD 

0994 

0236 

026E’ 


DATA 

TAGl 

ABSOLUTE ENTRY AOORfSS 

0969 

0238 

02BC’ 


DATA 

TA62 

REL0CATA8LE ENTRY AODRESS 

0966 

023A 

02C9’ 


DATA 

TAGS 

EXTERNAL REF • RILOC COOf 

0967 

023C 

02CA* 


DATA 

TAG4 

EXTERNAL REF • ABS CODE 

0568 

023E 

0S3E’ 


DATA 

TAGS 

RELOCATABLE EXTERNAL OEF 

0969 

0240 

0340’ 


DATA 

TAGS 

ABSOLUTE external OIF 

0970 

0242 

03A8’ 


DATA 

TAG7 

CHECKSUM 

0971 

0244 

03AC’ 


DATA 

TAGS 

IGNORE CHECKSUM 

0972 

0246 

0384' 


DATA 

TAG9 

ABSOLUTE LOAD ADDRESS 

0973 

0248 

02 AE’ 


DATA 

BKOUT 

COLON 1 END OF MODUL 

0974 

024A 

0260’ 


DATA 

TAGE 

invalid load code 

0979 

024C 

0266' 


DATA 

TAGE 

INVALID LOAD CODE 

0976 

024E 

0266’ 


DATA 

TAGE 

INVALID LOAD CODE 

0977 

0290 

0266’ 


DATA 

TAGE 

INVALID LOAD CODE 



LOAD MODULI 

D18PATCHIR 

949390-9901 ** 
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iS7B 

0292 

0266' 


DATA 

TAGE 

INVALID LOAD CODE 

0979 

0294 

0268' 


DATA 

TAGE 

INVALID LOAD CODE 

058(9 

0256 

0382' 


DATA 

TA6A 

RELOCATABLE LOAD ADDRESS 

0981 

0258 

0302' 


DATA 

TAGS 

ABSOLUTE DATUM 

0982 

029A 

0300' 


DATA 

TAGC 

RELOCATABLE DATUM 

0983 

025C 

03DA' 


DATA 

TAGO 

LOAD BIAS 

0984 

0291 

0266' 


DATA 

TAGE 

ERROR 

0989 

0260 

0206' 


DATA 

TA6F 

END OF RECORD 

0986 

0262 

0272' 


DATA 

TAGGH 

RELOCATABLE SYMBOL 

0987 

029A 

0272' 


DATA 

TAGQH 

ABSOLUTE SYMBOL 

0988 


0266' 

JHPTBE 

EQU 

S 


0989 



« 




0SBM 



t 

ILLEGAL tag CHARACTER 

(E) 

0991 



n 




0992 



TAGS 




0593 

0266 

020A 


LI 

ioparm,ilcd 

illegal load CODE 


0268 

2302 





0994 



ERR 




0599 

026A 

06A0 


BL 

•ERROR 

CALL monitor error ROUTINE 


026C 

0000 





0596 

0261 

0460 


8 

• LAL 

FATAL ERROR • RESTART 


0270 

0008' 





0597 



t 




0598 



* 

SYMBOL TABLE TAG CHARACTERS (G/H) 

0599 







0600 



TA66H 




0601 

0272 

0220 


AI 

INPT,10 

INCREMENT POINTER PAST ENTRY 


0274 

000A 





0602 

0276 

10CF 


JMP 

CHLP 

TO IGNORE SYMBOL TABLE TAGS 

0605 







0604 




PROCESS MODULE lOT If) 


0605 



# 




0606 



TA60 




0607 

0278 

0802 


MOV 

bias.plocptr 

GET PRESENT BIAS 


027A 

0414' 





0608 

027C 

0381 


MOV 

INSIOfINSID 

PRESENTLY INSIDE MODULEf 

0609 

0271 

1607 


JNE 

TAG0B 

YES • TEST IF PROPER 

0610 

0280 

0420 


BLWP 

• LDR 

NO • PROCESS IDT 


0282 

0428' 





0611 

0284 

1018 


JMP 

D8PIXT 

EXIT IF module FLUSHED 

0612 

0286 

0460 


8 

• ASK 

IF ERROR, EXIT LOOP 


0268 

012C 





0613 

028A 

058E 


INC 

IN8ID 

SET INSIDE MODULE FLAG 

0614 

0280 

100D 


JMP 

TAG0CN 

CONTINUE 

0619 



TAC00 




0616 

0281 

06A0 


BL 

•CONVRT 

GET CONVERTED VALUE 


0290 

03F2» 





0617 

0292 

01 DC 


DATA 

NWLOC 

STORE IT IN LOCATION TEMP 

0618 

0294 

A«03 


A 

NEMLOCt^NHBIAS 



0296 

0402' 





0619 

0298 

9810 


OB 

*inpt,silank 

IS IDT NAME blank 


029A 

0008' 





0620 

0290 

1303 


JEG 

TAG0C 

YES • CONTINUE 

0621 



# 




0622 



♦ 

MISSING end statement 




LOAD module 

dispatcher 
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»6a3 

0684 

089F 

888A 


LI lOPARMpMSEND 

HISSING END STMT ERROR 

c 


08A0 

8303 





0688 

88A2 

10E3 


JMP ERR 



8686 

8687 

82A4 

0880 

TA60C 

AI INPT,«4 

ADJUST POINTER PAST LENGTH 



88A6 

FPFC 





8688 



TA60CN 




8688 

08A8 

0280 


AI INPT.18 

ADJUST POINTER 



88AA 

000C 





8638 

8631 

08AC 

1084 


JMP CHLP 

GET NEXT TAG 


8638 



« 

end MODULE fl) 



8633 



♦ 




8634 

8635 

08AE 

04CE 

8K0UT 

CLP INSID 

CLEAR INSIDE MODULE FLAG 


8636 

0880 

A0A0 


A fNH8IAS,BIA$ 

ADO IN NEW BIAS 



0888 

04D2» 





8637 

8636 

0884 

0888 

DSPiXT 

INC 8IA8 

ACCOUNT FOR ODD LENGTH 


8638 

0886 

88E0 


LWPI D8WP8 




0288 

01OC* 





8648 

8641 

08BA 

0380 


RTWP 

RETURN 


8648 



# 

SET relocatable ENTRY 

ADDRESS C8) 


8643 



« 




8644 



TA8f 

MOV 8IA8,ko 



8645 

8646 

88BC 

Cl 68 

* 

SET RELOCATABLE OFFSET 

Aj/ 

1 " 

1 . 

8647 



♦ 

SET ABSOLUTE ENTRY ADDRESS fl) 


8648 



t 




8648 



TA6t 




8668 

08BE 

0690 


8L *INCP 

TEST INSIDE MODUL AND CONVERT 

8681 

08C0 

00A6« 


DATA ENTAOO 

PLACE IN ENTRY ADDRESS 


8658 

08C8 

A806 


A HLDpiENTAOO 

ADO IN OFFSET 



08C4 

00A6* 





8653 

8684 

02C6 

10A7 

* 

JMP CHLP 

GET NEXT TAG 


8688 



* 

SET RELOCATABLE CODE 

REF f3) 


8686 







8687 

8688 

08C8 

C188 

TABS 

MOV BIASiHLO 

SET RELOCATABLt OFFSET 


8689 



« 




8660 




SET ABSOLUTE CODE REF 

f4) 


8661 



* 




0668 



TA64 




8663 

08CA 

0690 


BL AINCP 

TEST INSIDE MODUL AND CONVERT 

8664 

08CC 

01OCI 


DATA NWLOC 

PLACE IN NWLOC 


8665 

08CE 

A0C6 


A HLD»NEWLOC 

adjust with BIAS 


8666 



t 




8667 



t 

PROCESS REF CHAIN LINKA6E 


8668 

8660 

0808 

C880 

♦ 

HOV INFT.FNSHBL 

POINT TO SYMBOL NAME 



8808 

84DA« 




fl’ 

0670 

8804 

0480 


BLWP 68RC8YM 

SEARCH SYMBOL TABLE 




1.0A0 MODULE DISPATCHER 


949390»9^01 ** 


PA6E 0019 



02D6 

0996' 





0671 

020$ 

1010 


JMP 

ENTERS 

IF NOT FOUND, ENTER IT 

0672 

02DA 

0220 


AI 

INPT.6 

ADJUST POINTER 


02DC 

0006 





0673 

02OE 

C103 


MOV 

NEMLOCiLOCPT 

POINT TO NEW END OF CHAIN 

0674 

02E0 

139A 


JEO 

CHIP 

IF ZERO, NO REF, 80 END PROC 

0678 

02E2 

0420 


BUWP 

FGET8VL 



02E4 

09A0I 





0676 

02E6 

C160 


MOV 

#8YMB0L4SyMNM+8VMNM,8VPT SET VALUE 


02EB 

097C» 





0677 

02EA 

0620 


DEC 

PSYMB0L*FLAS8+FLAG8 


02EC 

097C' 





067$ 

02EE 

1109 


JLT 

FXRF 

IF DEF, SATISFY CHAIN 

0679 



LPFXR 




0680 

02F0 

A10C 


A 

ldpt,locpt 

POINT TO ACTUAL MiM AOOR 

0681 

02F2 

C194 


MOV 

*LOCPT,HLO 

SET NEXT CHAIN ENTRY 

0682 

02F4 

1302 


JEO 

ENOLPR 

IF ZERO, END OF CHAIN 

0683 

02F6 

C106 


MOV 

HLOfLOCPT 

change location pointer 

0684 

02F8 

10F0 


JMP 

LPFXR 

continue chaining 

0689 



ENOUPR 




0686 

02FA 

A10C 


A 

LDPT,LOCPT 

POINT TO ACTUAL MEM AOOR 

0687 

02FC 

C919 


MOV 

*8VPT,*L0CPT 

BREAK END LINK 

068$ 

02FE 

C943 


MOV 

NEWL0C,*8VPT 

CREATE NEW LINK IN SYMBOL TAB 

0689 

0300 

108A 


JMP 

CHLP 

END PROC, SET NEXT TAG 

0690 



FXRF 




0691 

0302 

C0D9 


MOV 

♦8VPT,NEWL0C 

GET VALUE 

0692 



LPDF 




0693 

0304 

A10C 


A 

LDPT,LOCPT 

POINT TO ACTUAL MEM AOOR 

0694 

0306 

C194 


MOV 

*locpt,hlo 

POINT TO NEXT ENTRY IN CHAIN 

0699 

0308 

C603 


MOV 

newloc,*locpt 

FILL IN RESOLVED VALUE 

0696 

030A 

C106 


MOV 

HLOiLOCPT 

CHANGE LOCATION POINTER 

0697 

030C 

16FB 


JNE 

LPDF 

CONTINUE CHAINING 

0696 



CHIPS 




0699 

030E 

1083 


JMP 

CHLP 

END PROC, GET NEXT TAG 

0700 



* 




0701 



« 

ENTER 

SYMBOL INTO TABLE 


0702 



* 




0703 



ENTERR 




0704 

0310 

0987 


INC 

flsvl 

SET REF CODE 

0709 



ENTERD 




0706 

0312 

C160 


MOV 

•8YMB0L*8YMPTR+8YMPTR,8VPT 


0314 

0978' 





0707 

0316 

C947 


MOV 

flsvl, 48VPT 

MARK FLAG 

0708 

0318 

0229 


AI 

8VPT,.7 

POINT TO NAME LOCATION 


031A 

FFF9 





0709 

031C 

0070 


MOVB 

*1NPT4-,*8VPT* 


0710 

081E 

0070 


MOVB 

•INPT+,*8VPT4 

MOVE IN NAME 

0711 

8320 

0070 


MOVB 

*INPT+,*9VPT+ 


0712 

0322 

0070 


MOVB 

*1NPT*,*8VPT4 


0713 

0324 

0070 


MOVB 

*INPT+,*SVPT4 


0714 

0326 

0970 


MOVB 

♦INPT+,*8VPT 


0719 

0328 

0229 


AI 

8VPT,«7 

POINT TO VALUE 


032A 

FFF9 





0716 

032C 

C943 


MOV 

NEWL0C,*8VPT 

MOVE IN value 

0717 

032E 

C809 


MOV 

8VPT,$EN08T 

CREATE NEW END OF SYMBOL TABL 


c 


PASe eeae 


LOAD HOOUUE OiaPATCHtR 945390-9901 *♦ 



0330 

098C» 




O' 

ana 

0332 

8810 


c 

*T0AT,8IN08T 

IS LIMIT BELOW SYMBOL TABLES 


0334 

098C« 





0719 

0336 

1AE8 


JL 

CHLP3 

VIS * GET NEXT TAG 

0780 



* 




0721 




LOAD 

address ERROR 


0782 







0723 



LDAOER 




0724 

0338 

020A 


LI 

ioparm,laer 

POINT TO ERROR CODE 


033A 

2304 





0729 

033C 

1096 



ERR 


072fi 



t 




0727 



n 

GIT RELOCATABLf OFF f9) 


0788 



* 




0729 



TASS 




0730 

033F 

C182 


MOV 

BIASiHLD 

SIT RELOCATABLE OFFSET 

0731 



# 




0732 



t 

GET ABSOLUTE OfF f63 


0733 



# 




0734 



TA5« 




0739 

0340 

069D 


8L 

♦ INCP 

TEST INSIDE MODUL AND CONVERT 

0736 

0342 

01DC 


DATA 

NWLOC 

PLACE IN NWLOC 

0737 

0344 

A0C6 


A 

HLD,NEWLOC 

ADJUST WITH BIAS 

0738 



♦ 




0739 



t 

PROCESS DIF RESOLUTION 


0740 



t 




0741 

0346 

C060 


MOV 

•LISTiTGFLO 

IS FULL LIST DESIRED 


0348 

092C 




% y 

0742 

034A 

1313 


JED 

PRNTOV ' 

NO ■ SKIP ^ 

0743 

034C 

0420 


BLWP 

08INHEX 

YES • CONVERT LOCATION 


034E 

05401 





0744 

0360 

01OC> 


DATA 

NWLOC 

LOCATION VALUE 

0749 

0392 

002A* 


DATA 

OEFL 

LOCATION IN MESSAGE 

0748 

0394 

0201 


LI 

TGFLO,OEFN 

POINT TO NAME IN MESSAGE 


0396 

0022« 





0747 



MVNM 




0748 

0398 

DC70 


MOVB 

*INPT+,*TGFLD4 

MOVE IN NAME 

0749 

038A 

0281 


Cl 

TGFLD»DEPN*8 



039C 

0028 < 





0790 

039E 

llFC 


JLT 

MVNM 


0791 

0360 

0220 


AI 

1NPT,«6 

RESET POINTER 


0362 

FFFA 





0792 

0364 

06A0 


BL 

fPRCRLF 

PRINT CR/LF 


0866 

0132* 





0758 

0368 

1000 


NOP 


IGNORE ERROR RETURN 

0794 

038A 

020A 


LI 

lOPARMpDIFM 

PRINT DEFINITION MESSAGE 


036C 

0014* 





0799 

036C 

0420 


BLWP 

• PRINTN 



0370 

069C* 





0796 



fRNTOV 




0797 

0372 

C800 


MOV 

INPT.PNSMBL 

POINT TO SYMBOL NAME 


0374 

04DA* 





0798 

0376 

0420 


BLWP 

•SRCSVM 

SEARCH SYMBOL TABLE 


0378 

09B6* 





0799 

0S7A 

10CB 


JMP 

INTERO 

NOT FOUND, enter IT 



tOAo module dispatcher 
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PA6E »081 



0760 

037C 

0220 


AI 

INPT,6 

ADJUST POINTER 


0S7E 

0006 





0781 

0380 

0620 


DEC 

88YMBOL4PLAS84PLAGS OEPINEO? 


0382 

097C» 





0762 

0384 

1309 


JEQ 

SDF 

NO • SIT DEPINITION VALUE 

0763 







0764 



« 

multiply oepineo symbol 

0769 



n 




0766 

0386 

020A 


LI 

IOPARM,MULOP 



0388 

0042* 





0767 

038A 

0420 


BLWP 

PPRINTN 



038C 

069C* 





0766 



CHIP8 




0769 

038C 

l0Bf 


JMP 

CHLP3 

CONTINUE 

0770 



8DF 




0771 

0390 

0420 


BLWP 

8GET8VL 

SET SYM80U VALUE 


0392 

09A0* 





0772 

0394 

C160 


MOV 

8SYMB0L+8YMNM48YMNM,8VPT POINT TO VALUE 


0396 

087E* 





0773 

0398 

C119 


MOV 

*8VPT,L0CPT 

POINT TO REP CHAIN 

0774 

039A 

C843 


MOV 

NEWL0C,*8VPT 

CHANGE VALUE 

0779 

039C 

C160 


MOV 

#8YMB0L+SYMPTR48YMPTR,8VPT POINT TO ENTRY 


039C 

0978* 





0776 

03A0 

04D9 


CLR 

*8VPT 

CHANGE FLAG 

0777 

03A2 

Cl 04 


MOV 

LOCPTiLOCPT 

WAS ACTUAL REF USED? 

0778 

03A4 

ISP4 


JEQ 

CHLP2 

NO • FINIIH PROCESSING 

0779 

03A6 

10AE 


JMP 

LPOP 

PROCESS CHAIN SATISFACTION 

0760 



* 




0781 




SET CHECKSUM f7) 


0782 



♦ 




0783 



TA67 




0784 

03A8 

0420 


BLWP 

•CUMCHK 

CHECK CUMULATIVE SUM 


03AA 

04E2« 





0789 







0786 



♦ 

SKIP 

CHECKSUM f8) 


0787 



* 




0788 



TAGS 




0789 

03AC 

0220 


AI 

INPT,4 

SKIP CUMSUM 


03AE 

0004 





0790 

0380 

10EE 


JMP 

CHLP2 

GET NEXT field 

0791 



* 




0792 



♦ 

GET RELOCATABLE LOAD 

ADDRESS CA3 

0793 



* 




0794 



TA6A 




0799 

0382 

C182 


MOV 

BIA8,HL0 

SET relocatable OFFSET 

0796 



t 




0797 



t 

SET ABSOLUTE LOAD ADDRESS C9) 

0798 



# 




0799 



TAGS 




0800 

0384 

069D 


8L 

tINCP 

TEST INSIDE MOOUL AND CONVERT 

0801 

0386 

01OC* 


DATA 

NWLOC 

PLACE IN NWLOC 

0802 

0388 

A0C6 


A 

HLOfNEWLOC 

ADJUST WITH BIAS 

0803 

038A 

C203 


MOV 

NEWLOCiPC 

SET LOCATION COUNTER 

0604 

03BC 

A20C 


A 

LDPT.PC 

ADJUST WITH ACTUAL LOAD POINT 

0809 

0SBE 

10E7 


JMP 

CHLP2 

CONTINUE 



load MOOUki OISP&TCHffi 


84S39i«99f»i «« 


PA6f sefg 


0906 



♦ 




1^'. 

0907 



t 

SET RELOCATABLE 0ATU7 

CC) 

A>' 

0909 



t 





0909 



TA6C 





0910 

08C0 

Cl 88 


MOV 

BIA8,HLD 

SET relocatable 0778ET 


0811 



* 





0918 



* 

SET ABSOLUTE DATUM fB) 



0913 



* 





0914 



TA5i 





0919 

03C8 

8606 


C 

PC,PEND8T 

IS AOOR PAST 8TM80L TABLET 



03C4 

098C» 






0918 

03C8 

1488 


JHE 

LDADER 

YES • ERROR 


0817 

03C8 

8817 


C 

*TDAT,PC 

IS OLD LIMIT ABOVE AD0RE8ST 


0818 

03CA 

140t 


JHE 

8ETLP 

YES . CONTINUE 


0819 

03CC 

C7C9 


MOV 

PC,*TDAT 

CREATE NEW LIMIT 


0880 



8ITLP 





0981 

03Ci 

C80a 


MOV 

PC»PL0A0V8 

SET UP LOAD POINT 



0300 

0304 1 






0888 

0308 

0690 


8L 

♦ INCP 

TEST INSIDE MOOUL AND CONVERT 

0883 

0304 

03O4» 

L0A0V8 

DATA 

S 

PLACE IN PC 


0884 

0306 

AE05 


A 

HLD##PC+ 

ADO IN 07P8IT 


0889 

0308 

10OA 


JMP 

CHLP8 

GET NEXT TA8 


0888 



♦ 





0887 



* 

SET LOAD BIAS £0) 



0688 



« 





0889 



TA60 





0830 

03OA 

C38e 


MOV 

XNSIOf XN8I0 

1N8I0E MOOULT 


0831 

030 C 

1608 


JNI 

XNER 

YES • ILLEGAL LD SfOUENCE 

i't '' ^ 

'A 

0838 

0301 

06 A 0 


BL 

PCONVPT 

SET CONVERTED VALUE 



03E0 

0378’ 






0833 

03E8 

01OA’ 


DATA 

BIA8WD 

PLACE IN BIAS 


0834 

03E4 

1004 


JMP 

CHLP8 

SIT NEXT TAG 


0839 



t 





0838 



« 

TEST 

17 INSIDE MODUL PR0CE88IN8 


0837 



t 





0838 



INCHK 





0839 

03E6 

C88S 


MOV 

XN8ID>XN8I0 

INSIDE MOOULT 


0840 

03E8 

1604 


JNE 

CONVRT 

Y18 • CONVERT 


0841 



# 





0848 



t 

OUTSIDE MODULE 



0843 



t 





0844 



INil? 





0849 

0SEA 

080A 


L! 

lOPARMflLSQ 

ILLEGAL LOAD SEQUENCE ERROR 



03EC 

830) 






0848 

0SEE 

0460 


B 

• ERR 


? 


0370 

086 A » 






0847 



t 





0848 



t 

CONVERT 7IEL0 IN OBJECT CODE 


0849 



't 





0890 



CONVRT 




0891 

0378 

C63e 


MOV 

*ll+iiCONL0C 

MOVE IN CONVERSION LOCATION 



0374 

0400’ 






9898 

0378 

C80f 


MOV 

XNPT,iCONVL 

POINT TO SUPPER ARIA 



0378 

0371’ 






0893 

037A 

0480 


BLWP 

•HE70IN 

CONVERT TO BINARY 




LOAD MODULE dispatcher 


94S39019901 ** 


PAGE 0093 


0664 

03PC 

03FE 

099C 

03FE* 

CONVL 

DATA 

S 

0889 

0400 

0400f 

CONLOC 

DATA 

S 

0896 

0409 

0920 


AI 

INPT,4 

0897 

0404 

0406 

0004 

049B 


RT 



DATA POR CONVERSION 
PLACE IN proper location 
ADJUST POINTER 


RETURN 


PROCESS lOT ENTRY 


PAGE P024 


06091 

0661 

0602 

0606 

0604 

0809 

0606 

0807 

0808 
0609 

0870 

0871 

0872 

0875 
0874 
0879 

0876 

0877 

0878 
0870 


945390«9O01 ** 


* 

* LOR WORKSPACE ARIA 


t 


LDWP 


0408 

0208* 


DATA 

UDBUF 

R0 

RD 

040A 

0000 

P8T!M 

DATA 

0 

R1 

P8T 

040C 

0000 


DATA 

0 

R2 

PTR 

0401 

04DA» 


DATA 

N8MiU 

R3 

N8M8LP 

0410 

0000 


DATA 

0 

R4 

8YMB 

0412 

0000 


DATA 

0 

R5 

TMP 

0414 

0000 

locptr 

DATA 

0 

Ri 

LOC 

0416 

08i6» 


DATA 

8RCSYM 

R7 

8R8N 

0410 

0050* 


DATA 

NAMWSG 

R8 

NNM86 

041A 

0000 


DATA 

0 

R9 


041C 

0000 


DATA 

0 

R10 

lOPARM 

041E 

0000 


DATA 

0 

Rll 

RTN 

0420 

0S5CI 


DATA 

HEXBIN 

R12 

HEXP2 

0422 

0000 


DATA 

0 

R13 

OLD WP 

0424 

0000 


DATA 

0 

R14 

OLD PC 

0426 

0000 


DATA 

0 

R18 

OLD ST 



PROCESS lOT ENTRY 
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S881 

esse 

0883 

0884 
0889 
0886 

0887 

0888 

0889 

0890 

0891 

0892 

0893 

0894 

0895 

0896 

0897 

0898 

0899 

0900 

0901 

0902 

0903 

0904 

0905 

0906 

0907 

0908 

0909 


REVISION! 


COMPUTER! 

ABSTRACT! 


LOADER PROCESS OP lOT ENTRY 
05/01/74 
ORIGINAL 
03/18/78 

MOOIPIEO TO RUN WITH PX9MTR 
990, ASSEMBLY 

AN lOT ENTRY IS CHECKED, IP THIS IS 
THE FIRST module# THE NAME WILL BE PLACED 
IN THE SYMBOL TABLE AND CONTROL RETURNED 
TO THE CALLING ROUTINE FOR MODULE PRDCE88INQ, 
IF THIS IS A LATER ENTRY WHOSE NAME IS NOT 
IN THE SYMBOL TABLE, IT WILL BE FLUSHED, 

IP already defined, an error message will 

BE PRINTED AND THE MODULI FLUSHED, IF ONLY 
REF’O, MODULE WILL BE PROCESSED AS FIRST 
MODULE, AND THE NAME WILL BE MARKED AS DEF»0, 
NO value 18 GIVEN TO THE NAME SO IT MAY NOT 
BE USED TO SATISFY REFERENCES, THREE RETURNS 
ARE PROVIDED FOR ACCEPTABLE MODULES, MODULES 
FLUSHED BECAUSE OF ERROR, AND MODULES FLUSHED 
BECAUSE NOT REF’D, 

CALLING SEQUENCE! 

BLWP 8L0R 

NOT REF«0 MODULI FLUSHED • 1 WD 
ERROR • MODULE FLUSHED • 2 WD 
ACCEPTABLE MODULE • 1 WO 

STATISTICS! WORKSPACE • LOWP (UNSHARED) 


IN8TR 

INSTR 

INSTR 


0910 





BINHEX, ERROR, 

getsvl,hexbin,prcrlf,printn. 

0911 



♦ 


REA0,8RC8YM 


0912 



ion 




0913 

0428 

04001 


DATA 

LOWP 

WORKSPACE 

0914 

042A 

042C 


DATA 

L0B6 

START 

0915 



LOBS 




0916 

042C 

C0B0 


MOV 

RD,PTR 

POINT TO READ BUFFER 

0917 

042E 

0562 


INC 

PTR 

SKIP TAG 

0918 



* 




0919 




CONVERT RELOCATABLE 

LENGTH 

0920 



* 




0921 

0430 

C802 


MOV 

PTR,#PTRPT 

POINT TO BUFFER 


0432 

0436* 





0922 

0434 

041C 


BLWP 

♦HEXP2 

CONVERT LENGTH 

0923 

0436 

0436* 

PTRPT 

DATA 

S 

POINTER TO MOOUL LENGTH 

0924 

0438 

0402* 


DATA 

NWBIAS 

CREATE NEW BIAS 

0925 

043A 

0222 


AI 

PTR, 4 

adjust past LENGTH 


043C 

0004 





0926 



« 




0927 



♦ 

TEST 1 

FOR loadable MOOUL 

0928 



* 




0929 

043E 

C041 


MOV 

FSTiPST 

FIRST TIMET 

0930 

0440 

1610 


JNE 

FIRST 

YES • PROCESS 

0931 

0442 

C4C2 


MOV 

PTR,*N8MBLP 


0932 

0444 

0417 


BLWP 

*8R8M 

NO, SEARCH POR NAME 


PROCiSS IDT 

ENTRY 


948390«i9901 ** 

PA6E 0086 


0633 

0446 

1006 


JMP 

PLCL 

SYMBOL NOT POUND • FLUSH 


0634 

0448 

062i?i 


DEC 

PSYMBOL*PLAeS4PLA®8 PREVIOUSLY OEPINEOT 

ij 


0444 

097C* 






0633 

044C 

131D 


JEO 

MRKOP 

NO, MARK AS DIF 


0636 








0937 



t 

PREVIOUSLY loaded MODULE ERROR 


0936 



t 





0936 

044E 

020A 


LI 

IOPARM,PRLM 

PREV LOAD MODULE ERROR 



0450 

8305 






0940 

0452 

06A'.'; 


BL 

PERROR 

CALL MONITOR ERROR PROCESSOR 



0494 

026C* 






0941 

0496 

09 cr 


INCT 

R14 

TAKE ERROR EXIT 


0949 








0943 




PLUSH 

MODULE 



0944 



♦ 





094S 



PICL 





0946 

0466 

C060 


MOV 

RD,PTR 

POINT TO BUFFER AREA 


0947 



LPPt 





0946 

049A 

C260 


MOV 

ROf lOPARM 



0949 

049C 

0420 


BLWP 

PREAO 

READ A RECORD 



049E 

0612» 






0990 

0460 

0249 


and I 

R9,E0P4I0ERR 

EOF OR I/O ERRORt 



0462 

6000 






0981 

0464 

1603 


JNE 

FLRT 



0982 

0466 

9812 


ce 

*PTR,PCOLQN 

FIRST char • 1 



0466 

0009* 






0993 

046A 

16F7 


JNE 

LPPL 

NO- CONTINUE 


0984 








0999 

046C 

0360 


RTWP 


RETURN 


0996 








0997 




PROCESS PIR8T MOOUL 



0996 








0989 



FIRST 





0960 

046E 

04C1 


CLR 

F8T 

CLEAR FIRST MOOUL FLAS 


0961 

0470 

0209 


LI 

TMP,6 

INIT COUNTER 



0472 

0006 






0962 

0474 

6680 


8 

PTIN.PENOST 

SET NEW END OF SYMBOL TABLE 



0476 

098AI 







0476 

098C* 






0963 

047A 

C180 


MOV 

P8YMTAB,8YM8 

POINT TO SYMBOL NAME LOCATION 


047C 

00ACt 






0964 

047E 

0284 


AI 

8YMB,»7 




0460 

PEF9 






0968 



LP 





0986 

0482 

0D32 


Move 

*PTRp»*SYMB+ 

MOVE IN MOOUL name 


0967 

0464 

0609 


DEC 

TMP 



0966 

0486 

15ED 


JST 

LP 



0969 



♦ 





0970 




PROCESS ACCEPTA8LE 

MOOUL 


0971 



♦ 





0972 



mrkof 





0973 

0466 

06C8 


INCT 

PTR 

SKIP LAST TWO CHARACTERS 


0974 

046 A 

C180 


MOV 

P8YM80L^8YMPTR48YMPTR,8YMB 



048C 

0876’ 





jr-x. 

0978 

0A8E 

94D4 


CLR 

*8YMB 

MARK AS OEF 




PROCESS XDT ENTRY d4839B«0S01 *• PASE 9U7 


9979 

0490 

0224 

AI 

8YM8,«7 

POINT TO NAME 


0492 

PPF9 




9977 

0494 

0209 

IX 

TMPpNAME 

MOVE NAME TO OUTPUT LINE 


0496 

0056< 




9976 

0498 

CD74 

MOV 

•8YM0+,*TMP+ 


9979 

049A 

C074 

MOV 

*8YM0*,*TMP4> 


9999 

049C 

C074 

MOV 

*8YMB+,*TMP4« 


0981 

049E 

0420 

BLWP 

fOETSVl 

POINT TO SYMBOL VALUE 


04A0 

09A0< 



• 

0982 

04A2 

C120 

MOV 

•SYMBOL+SYMNM*8YMNM,8YM0 


04A4 

057E’ 




0983 

04A6 

C006 

MOV 

LOC»*SYMB 

MOVE IN LOC VALUE 

0984 

04A8 

0420 

0LWP 

PBINHEX 

CONVERT LOC POR PRINT 


04AA 

0840* 




0988 

04AC 

0414* 

DATA 

LOCPTR 

LOCATION value 

0988 

04AE 

008E* 

DATA 

LOCVAL 

PRINTIN8 LOCATION 

0987 

04B0 

08A0 

0L 

•PRCRtP 

PRINT CP/LP 


0402 

0300* 




0988 

0404 

1000 

NOP 


IGNORE ERROR RETURN 

0989 

0406 

C268 

MOV 

NMMSSf XOPARM 

PRINT module name MESSASE 

0990 

0408 

0420 

BUMP 

•PRXNTN 



04BA 

e69C* 




0991 

040C 

022E 

AI 

R14r0 

TAKE alternate RETURN 


04BE 

0000 




0992 

04C0 

0389 

RTWP 


RETURN 


i 




CHICKSUM CHICK 

1999 

9999 

9997 

9998 

9999 94C9 947C* 

1999 94C4 9899 

1991 04C6 0409> 

1992 94C8 0809 

1099 94CA 01D0f 
1994 94CC 0S9C* 
1999 94CI 0000 
1999 0400 9000 

1007 0402 0000 

1008 0404 0009 

1009 0400 0009 

1019 0408 0000 

1011 04OA 0009 

1012 04OC 0009 

1019 04DC 0009 
1014 0410 9009 


948990-9901 *• 


9A6I 0028 


* CHECK8UM CHECK H09K8PACE ARIA 
CMKP 



DATA 

CKIOC 

R0 

CKL 


DATA 

0 

R1 

HVAL 


DATA 

LDBUI 

R2 

RDRU 


DATA 

0 

R9 

CUMPT 


DATA 

08WP+INPT+INPT 

R4 

END08 


DATA 

HEX8IN 

R0 

HfXP 

RLVL 

DATA 

0 

R8 

RUR6 


DATA 

9 

R7 

C8UH 

NHBIAS 

DATA 

0 

R8 



DATA 

0 

R9 



DATA 

0 

R10 

lOPARH 


DATA 

9 

Rll 

RETURN 

N8H0L 

DATA 

9 

R12 



DATA 

9 

R19 

OLD HP 


DATA 

9 

R14 

OLD PC 


DATA 

0 

R18 

OLD 8T ■ 



CHECKSUM CHECK 948390-9901 ** PACE 9099 


1016 



* 

TITUEI 

CUMCHK 


1017 






CHECK CHECKSUM VALUE 

1018 



a 

REVISION! 

08/01/74 


1019 



♦ 



original 


1080 



* 



03/19/76 


1081 






MODIFIED TO RUN WITH FX9MTR 

1082 




COMPUTER! 

990f ASSEMBLY 


108S 



* 

ABSTRACT! 

THE CHECKSUM 

IS COMPUTED AND COMPARED 

1084 



♦ 



TO THE VALUE 

PRESENT ON THE OBJECT 

102S 



♦ 



RECORD. IF AN 

ERROR OCCURS. A MESSAGE 

1086 



* 



IS PRINTED AND KEVBDARD RESPONSE 18 

1087 






REQUIRED BEFORE THE NEXT INPUT RECORD 

1088 



# 



MAY BE READ, 


1089 



# 

CAU.XNG SEQUENCE! 


1030 



♦ 



BLWP PCUMCHK 


1031 




STATISTICS! WORKSPACE • 

CHWP CUN8MARE0) 

1038 



♦ 

ROUTINES 1 

CALLED! 


1033 



# 



ERROR. HEXBlNr 

KEVIN. OPEN 

1034 



CUMCHK 




1039 

04E8 

04C8* 



DATA 

CMWP 

WORKSPACE 

1036 

04E4 

04E6* 



DATA 

CH6S 

START 

1037 



t 





1038 





COMPUTE CHECKSUM 


1039 








1040 



CHB6 




1041 

04E6 

04C7 



CLR 

C8UM 

CLEAR CHECKSUM 

1048 

04E6 

C0C8 



MOV 

RDRL.CUMPT 

POINT TO START OP RECORD 

1043 



CKCOM 




1044 

04EA 

04C1 



CLR 

HVAL 

CLEAR VALUE 

104B 

04EC 

0073 



MOVB 

*CUMPT#,HVAL 

GET ASCII character 

1046 

04EE 

06C1 



SWPB 

HVAL 

RIGHT JUSTIFY 

1047 

04F0 

AlCl 



A 

HVAL.C8UH 

ADO TO CHECKSUM 

1048 

04F8 

6903 



C 

CUMPT,*ENOOB 

FINISHED RECORD AREAT 

1049 

04F4 

UFA 



JLT 

CKCOM 

NO • CONTINUE 

1090 

04F6 

0907 



NEG 

C8UM 

YES • NEGATE VALUE FOR CHECKS 

1091 








1098 





COMPARE TO value ON 

RECORD 

1053 








1054 

04F8 

C403 



MOV 

CUMPT,*CKL 

POINT TO VALUE ON RECORD 

1095 

04FA 

0419 



8LWP 

• HEXP 

CONVERT TO SlNARV VALUE 

1096 

04FC 

04FC 

CKLQC 

DATA 

S 

CONVERSION location 

1097 

04FE 

04CE* 



DATA 

RLVL 

POSITION FOR RESULT 

1098 

0900 

81C6 



C 

rlrg.csum 

COMPARE THE TWO 

1099 

0908 

130D 



JEQ 

OUTCK 

EQUAL • EXIT 

1060 



* 





1061 





BAD CHECKSUM PROCESSOR 

1068 



♦ 





1063 

0504 

080A 



LI 

lOPARM.CKSM 

BAD CHECKSUM ERROR 


0906 

8308 






1064 

0908 

06A0 



BL 

•ERROR 

CALL MONITOR ERROR PROCESSOR 


090A 

0494* 






1069 

0S0C 

C888 



MOV 

RORL.IOPARM 

WAIT FOR RESPONSE 

1066 

090E 

0480 



8LWP 

•KEYIN 

FROM KEYBOARD 


0910 

081C 








CHiCKSUM CHICK 


949390i*99ei ** 


PA8I 0030 


li«7 00li C8A0 MOV 0 CTI,UNO,IOPa 9M OPEN CASSfTtI 

0S14 0012’ 

10$a 0910 0400 OUNP 0OPEN 

0810 08PC’ 

1089 0S1A 020E U 14,TA6P 

0S1C 0006* 

1070 OUTCK 

1071 051E 0380 RTWP 







CONVERSION ROUTINES 


945390*9901 ** 
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1074 * 

1075 ♦ CONVERSION ROUTINE WORKSPACE AREA 


1076 



* 



1077 



C0NVW8 



1078 

0520 

0000 

8INVL 

DATA 

0 

1079 

0522 

0000 


DATA 

0 

1080 

0524 

0000 


DATA 

0 

1001 

0526 

0000 

SVC8LK 

DATA 

0 

1082 

0526 

0000 

ASCVl 

DATA 

0 

1083 

052A 

0000 


DATA 

0 

1084 

052C 

0000 

LIST 

DATA 

0 

1085 

052E 

0C00 


DATA 

»C00 

.1886 

0530 

0000 


DATA 

AD00 

1087 

0532 

0000 


DATA 

8VCALT 

1088 

0534 

0526 < 


DATA 

8VCBLK 

1089 

0536 

PPEC 


DATA 

■ 4 

1090 

0538 

0000 


DATA 

0 

1091 

053A 

0000 


DATA 

0 

1092 

053C 

0000 


DATA 

0 

1093 

053E 

0000 


DATA 

0 


R0 

BINVAL 

BINARY VALUE 

R1 

VAL8V 

TEMP value save 

R2 

PADO 

LOCN HEX VALUE 

R3 

8CC00E 

8UPV CALL CODE 

R4 


ASCII VALUE 

R8 

R6 

R7 

BHCODE 

binary/hex see 

R8 

HBCODE 

hex/binary see 

R9 

8VCAL1 

PX9MTR 8UPV CALL ROUT 

R10 


SUPV CALL block PTR 

Rll 

HCNT 


R12 

PCNT 


R13 


OLD WP 

RIA 

CHOPC 

OLD PC 

R15 


OLD ST 



CONVERSION ROUTINES 


94S390«e9ei ** 


RASE 0S3f 


S095 

1096 

1097 
1096 

1099 

1100 
1101 
1109 

1103 

1104 

1115 
1106 
1107 
1106 

1109 

1110 
1111 
1119 

1113 

1114 

Ills 

1116 

1117 

1118 
1119 

1190 

1191 
1199 

1193 

1194 

lias 

1196 

1197 
1196 
1199 

1130 

1131 
1139 

1133 

1134 
1136 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 


* 

* 

* 

* 

« 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


TITLE! BINMBX/HE7BIN 

CONVERSION ROUTINES 



REVISION! 08/01/74 
ORISINAL 
03/10/76 

MODIRIED TO USE PX9MTR CONVERSION ROUTINES 
COMPUTER! 9901 ASSEMSUT 

ASSTRACT! SETS UP SUPERVISOR CALL BLOCK FOR CALL 
AND STORES VALUES AFTER RETURN IN USER 
DEFINED LOCATIONS, 

CALLING SEQUENCE! 

BINARY TO HEX ASCII 
BLWP iSlNHlX 
DATA ADDRE88»0F»VALUE 
DATA A0DRE8S»F0R»PLACEMENT 


HEX ASCII TO BINARY 
BLNP 6HEXBXN 
OATA AD0RE8S*0F»VALUE 
DATA AOORESS-FOR-PLACEMINT 
ROUTINES CALLED! SVCALT (EXT REF IN PX9MTR) 


* 


BINHEX 


BS40 

0920^ 


OATA 

CONVWS 

WORKSPACE 

0849 

0844* 

BIHEX 

OATA 

BIHEX 

START 

0644 

C03E 


MOV 

*CHOPC4,iXNVAL 

POINT TO AOORiiS OF VALUE 

0S46 

C010 


MOV 

*binval,binval 

GET VALUE IN R0 FOR CALL 

0846 

C0C7 


MOV 

BHC00E,8CC0DB 

SET UP SUPV CALL CODE 

094A 

0419 


BLWP 

*8VCAL1 

BINARY TO HEX SUPV CALL 

084C 

C0BE 


MOV 

*CHOPC+»MAOD 

GET PLACEMENT LQC 1 NEW RTN 

0S4E 

090! 


LI 

VALSV.ASCVL 

SET UP ASCII VALUE POINTER 

0980 

0826* 





0559 

C30B 


MOV 

HCNT,PCNT 

INIT COUNT TO 4 

0554 

OCBl 

BINH 

MOVB 

*VAL8Vt,*MADD4 

MOVE VALUE TO PLACEMENT LOCN 

0586 

09BC 


INC 

PCNT 


0586 

IIFD 


JLT 

BINH 


055A 

0380 

t 

HEX8IN 

RTWP 



0SSC 

0890* 


DATA 

CONVWS 

WORKSPACE 

058E 

0860 » 

HEX8I 

DATA 

HEX8X 

START 

0960 

C06E 


MOV 

*CH0PC4,MA0D 

SET ADDRESS OF VALUE 

0669 

CiCB 


MOV 

HBCODE.SCCOOE 

SET UP SUPERVISOR CALL CODE 

0664 

0201 


LI 

VAL8V,A8CVL 

SET UP ASCII VALUE POINTER 

0966 

0828* 





0666 

C30B 


MOV 

hcnt,pcnt 

INIT COUNT TO 4 

086A 

0C79 

KEXB 

MOVB 

#MA0D4,*VAL8V4 

MOV HEX ASCII VALUE TO SCBLK 

086C 

0S8C 


INC 

PCNT 

CONTINUE UNTIL ALL 

086E 

llFO 


JLT 

HEXB 

BYTES MOVED 

0870 

0419 


BLWP 

♦SVCALl 

HEX TO BINARY SUPV CALL 

0879 

C07E 


MOV 

*CH0PC»,VAL8V 

SIT AODR POR PLACEMENT LOCN 

0874 

C440 


MOV 

BINVALf*VAL8V 

MOVE BINARY VALUE TO LOCN 


\j^ 




94S390«9Sei *• 
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CONVERSION ROUTINES 
U47 0576 0380 



RTWP 


RETURN 





SYMiOl 

TABLE 

ENTF'T 

VALUES 

94539i-9901** 

PA6I 

8034 

1150 

1151 

0575 

08051 

8V580L 

DATA 

0 

WR0 

SyMPTR 

1152 

057A 

0800 


DATA 

0 

NRl 

8VMN0 

1153 

05 7 C 

000 El 


DATA 

0 

WR2 

7LA6S 

1154 

057E 

000E1 


DATA 

0 

WR3 

8YHNM 

1155 

0500 

000(1 


DATA 

0 

NR4 

N8YM 

1155 

0502 

000(1 


DATA 

0 

NRS 

VALUE 

1157 

0584 

0007 

K7 

DATA 

7 

Dt06 

SEVEN 

IISS 

0586 

00AC’ 


DATA 

8YMTAB 

WR7 

8TRTR 

1159 

0588 

0806 


DATA 

5 

WR8 

NWSCT 

ilSi 

0S8A 

000A 

TIN 

DATA 

18 

WR9 

TN 

1101 

0S8C 

0000 

fNDST 

DATA 

0 

NR18 

N8BIT 

1102 

05SE 

0000 


DATA 

0 

WRll 

RETURN 

1103 

0590 

0009 


DATA 

9 

WR12 

NINE 

1104 

0592 

0008 


DATA 

0 

WR13 

OLD WP 

1105 

0594 

0008 


DATA 

0 

WR14 

OLD PC 

1100 

0590 

0000 


DATA 

0 

WRIS 

OLD ST 



8YM8QU TABUC fNTRY VALUES 94S390-9901** 
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1168 

1169 

1170 

1171 
1179 

1173 

1174 

1175 

1176 

1177 

1178 

1179 
1160 
1181 


* TITLEI SENTRY 

« SYMBOL TABLE ENTRV VALUES 

* REVISION! 05/01/74 

* original 

* COMPUTER! 990, ASSEMBLY 

* ABSTRACT! three ROUTINES ARE USED TO RROVIOII 

* 1, SYMBOL ELAG value 

* 2. POINTER TO SYMBOL NAME 

* 3, POINTER TO VALUE AND VALUE 

* CALLING SEQUENCE! 

* BLWP iGETSFL 

* BLWP PGETSVL 

* BLWP 4GBT8UM 

* STATISTICS! WORKSPACE • SYMBOL (SHARED WITH SRCSYM) 


1182 



♦ 


SYMBOL TABLE ENTRY APPEARS AS FOLLOWS! 

1163 



♦ 


8 Y 


1184 





M B 


1189 



* 


0 L 


1186 



♦ 


0,1 


1187 



♦ 


where 0 f DEFINED 

, 1 • UNDEFINED 

1188 







1189 



# 

GET SYMBOL ELAG 


1190 



* 




1191 



GKTSa 




1192 

0598 

0979 > 


DATA 

SYMBOL 

WORKSPACE 

1193 

059A 

099C > 


DATA 

GT8FL 

START 

1194 



STSPL 




1195 

0S9C 

C09f 


MOV 

♦8YMPTR, FLAGS 

GET FLAGS WORD 

1196 

099E 

0380 


RTWP 


RETURN 

1197 







1198 



* 

GET SYMBOL VALUE 


1199 



« 




1200 



6ITSVL 




1201 

05A0 

0979* 


DATA 

SYMBOL 

WORKSPACE 

1202 

0SA2 

09A4* 


DATA 

GT8VL 

START 

1203 



6T8VL 




1204 

09A4 

C0C0 


MOV 

SYMPTR,8YMNM 

POINT TO START OF SYMBOL 

1205 

05A6 

60CC 


8 

NINE,SYMNM 

POINT TO VALUE 

1206 

05A8 

Cl93 


MOV 

♦SYMNM, VALUE 

GET SYMBOL VALUE 

1207 

09AA 

0380 


RTWP 


RETURN 

1206 







1209 



♦ 

GET SYMBOL NAME 


1210 



♦ 




1211 



CCT8NM 




1212 

0SAC 

0978 » 


DATA 

SYMBOL 

WORKSPACE 

1213 

05AE 

08B0f 


DATA 

gtsnm 

START 

1214 



6T8NM 




1219 

09B0 

C0C0 


MOV 

8YMPTR, SYMNM 

POINT TO SYMBOL ENTRY 

1216 

0562 

60C6 


S 

SEVEN, 8VMNM 

POINT TO NAME 

1217 

0964 

0380 


RTWP 


RETURN 


search 

U8R 

1881 

1888 

1883 

1884 
188B 
188fl 
1887 

1885 
1288 
183R 
1831 

1838 

1833 

1834 

1839 
1839 

1837 

1838 

1839 
1248 

1841 

1842 

1843 

1844 
1849 
1849 

1847 

1848 

1849 

1890 

1891 

1898 

1893 

1894 

1899 
1899 

1897 
1891 
1899 

1890 

1891 
1268 

1893 

1894 
1299 
1866 
1297 

1898 


iVMtOl, TA6LE 9493901.9901 ** 


9A6E 0036 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

« 

* 

* 

# 

* 


TITtEl 8RC8YM 

SEARCH 8YW80U TABLE 
REVISION! 09 / 01/74 
0RI6INAL 
03/19/76 

MODIFIED TO RUN WITH PX9MTR 
COMPUTERI 990, ASSEMBLY 

ABSTRACT! THE SYMBOL TABLE IS SEARCHED FOR A 
GIVEN SYMBOL NAME, IF THE SYMBOL 
IS FOUND, an alternate EXIT IS 
TAKEN, THE TABLE IS SEARCHED LINEARLY, 
CALLING SEQUENCE! 

BLWP iSRCSYM 

8YMB0L»N0T»F0UND INSTRUCTION 
8YM80L-F0UND INSTRUCTION 

STATISTICS! workspace ■ SYMBOL (SHARED WITH SENTRY) 


8RC8YM 


0986 

i978» 


data 

SYMBOL 

WORKSPACE 

09B8 

098 A' 


DATA 

SRC 

START 



if 

t 

POINT 

TO BEGINNING OF 

SYMBOL TABLE 



SRC 




09BA 

C017 


MOV 

♦STPTR.SYMPTR 

POINT TO SYMBOL TABLE 



♦ 

♦ 

COMPARE TO ENTRY 




if 

SYMCHK 




09BC 

C180 


MOV 

•N8MBL,N8YM 

POINT TO NEW symbol 

08BE 

04DA' 





09C0 

8880 


C 

8YMPTR,N8ilT 

PAST END OF TABLET 

09C8 

1809 


JLI 

EXIT 

YES • EXIT 

09C4 

C0C0 


MOV 

8YMPTR,SYMNM 

POINT TO ENTRY 

09C9 

60C9 


8 

SEVEN, 8YMNM 

POINT TO name 

09C6 

C048 

COMPAR 

MOV 

NWSCTrSYMNO 

GET COUNT 

09CA 

9033 


CB 

*8YMNM*,*N8YM+ 

ARE characters the SAME? 

09CC 

1909 


4NE 

NOTSAM 

NO • GET next SYMBOL 

06CE 

0601 


DEC 

8YMN0 

ARE characters FINISHED 

08D0 

19FC 


JNE 

COMPAR 

NO, KEEP COMPARING 

09D8 

C090 


MOV 

*8YMPTR, FLAGS 

YES • GET FOUND SYMBOL'S FLAG 

05D4 

09CE 

EXIT 

INCT 

14 

TAKE alternate RETURN 

0909 

0380 


RTWP 


RETURN 



if 

# 

LOOK 

AT NEXT SYMBOL 




NOTSAM 




0908 

6009 


S 

TN,8YMPTR 

POINT TO NEXT SYMBOL 

0BDA 

10F0 


JMP 

SYMCHK 

GET NEXT SYMBOL 



I/O ROUTINES 


94S3eS»OS0| «* 


PA6E 0037 


1271 « 

1872 * WORKSPACE AREA FOR INPUT/OUTPUT ROUTINES 

1273 • 

1274 I0WK8 

1275 05OC 0900 DATA RDCOO R0 ROCOOP 

1278 09OE 0800 DATA WRCOO Rl WRCODP 

1277 08E0 8CBLK B88 12 R2»R7 I/O 8UPV CAM. 8LK (PRS) 

1278 05EC 0080 DATA 80 R0 LEN 

1279 05EE 0832* DATA 8VCALT R9 SVCAL2 

1280 08P0 08E0' DATA 8CBLK R10 POINTER TO SUPV CALL SLOCK 

1281 0SF2 888 10 Rll-RlS 





1/0 ROUTINES 


949390»9S01 «* 


RASE 00S8 


1283 




TITLII 

OPEN 


1284 





ASSIGN A DEVICE 

TO A TASK 

1289 



# 

REVlSlONt 

03/19/70 


1280 



# 


ORIGINAL 


1287 



t 

COMPUTIRI 

9901 ASSEMBLY 


1288 



# 

ABSTRACT! 

SETS UP PRi ANO 

MAKES SUPERVISOR 

1289 



t 


CALL TO open a 

DEVICE 

1290 



t 

CAUIN8 SEQUENCfl 


1291 



t 


R10 • LUNO 


1292 



* 


BLWP POPEN 


1293 



t 

STATISTICS! WORKSPACE f I0WK8 (SHARED WITH 1/0 ROUTINES) 

1294 



OPEN 



1299 

09RC 

05OC» 


DATA 

I0WKS*S4>2 

TRAN8PER VECTOR 


097E 

0000’ 





1290 

0000 

04C3 


CLR 

lOPLUN 

SET UP I/O OP 

1297 

0002 

04C2 


CLR 

IOC 

INIT CODE FOR I/O 8UPV CALL 

1298 

0004 

C90O 


MOV 

R13rR12 

GET CALLER’S WORKSPACE PTR 

1299 

0006 

022C 


AI 

R12,R10+R10 

INDEX TO CALL PARAMETER 


0608 

0014 





1300 

000A 

C31C 


MOV 

*Rl2f R12 

GET LUNO 

1301 

000C 

E0CC 


soc 

R12,I0PLUN 

OR LUNO INTO lOPLUN 

1302 

0001 

0419 


8LWP 

•8VCAL2 

MAKE 8UPV CALL 

1303 

0010 

0380 


RTWP 


RETURN 



I/O ROUTINES 


94S390«9901 ** 


RASE 00S9 


1303 



if 

TITLEI 

READ 


1306 



« 


READ A RECORD 


1307 



# 

REVISION! 

03/18/76 


1308 



if 


ORIGINAL 


1309 



H 

COMPUTER! 

990, assembly 


1310 



a 

ABSTRACT! 

SETS UP PRB AND 

MAKES 8UPV CALL 

1311 



if 


TO READ A RECORD 

1312 



n 

CALLING SEQUENCE! 


1313 



if 


R10 i BUFFER ADDRESS 

1314 



it 


BLWP PREAD 


1313 



it 

RETURN PARAMETERS! 


1316 



if 


R10 f BUFFER AOORpCHAR COUNT 

1317 



if 


R9 ■ FLAGS 


1318 



it 

STATISTICS! WORKSPACE ■ lOWKS (SHARED WITH I/O ROUTINES! 

1319 



READ 



1300 

0612 

05OC’ 


DATA 

IOWK8,S<»2 

TRANSFER vector 


0614 

06ie» 





1321 

0616 

C0E0 


MOV 

•CTLUNO.IOPLUN 

STORE LUNO 


0618 

0012» 





1322 

061A 

1004 


4MP 

KEYRO 


1323 



n 

TITLE! 

KEYIN 


1324 



if 


KEYBOARD INPUT 

ROUTINE 

1328 



it 

REVISION! 

03/15/78 


1326 



if 


original 


1327 



it 

COMPUTER! 

990, ASSEMBLY 


1328 



H 

ABSTRACT! 

SETS UP PRB AND 

MAKES SUPV call 

1329 



if 


TO INPUT A record FROM KEYBOARD 

1330 



it 

calling SEQUENCE! 


1331 



H 


R10 i BUFFER ADDRESS 

1332 





BLWP PKEYIN 


1333 



# 

return PARAMETERS! 


1334 



# 


R10 • BUFFER ADDRE8S4CHAR COUNT 

1335 



* 


R9 i FLAGS 


1336 



# 

STATISTICS! WORKSPACE i I0WK8 (SHARED WITH I/O ROUTINES! 

1337 



KITIN 



1338 

061C 

08DC» 


DATA 

I0WK8,S4>2 

TRANSFER VECTOR 


0611 

0620’ 





1339 

0620 

C0E0 


MOV 

•KBLUNO,IOPUUN 

STORE LUND 


0622 

000E’ 





1340 



KEYRO 



1341 

0624 

D0C0 


MOVB 

RDCODP,IOPLUN 

STORE I/O OP 

1342 

0626 

C30D 


MOV 

R13,R12 

GET CALLER'S WORKSPACE PTR 

1343 

0628 

022C 


AI 

R12,R10+R10 

INOEK TO CALLING PARAMETERS 


062A 

0014 





1344 

062C 

CISC 


MOV 

*R12,BUFADR 

SET UP BUFFER ADDRESS 

1345 

062E 

C188 


MOV 

LEN,BUFLEN 

SET UP BUFFER LENGTH 

1346 

0630 

04C4 


CLR 

FLGS 

INIT FLAGS 

1347 

0632 

04C7 


CLR 

CHRCNT 

INIT CHAR CNT TO ZERO 

1348 

0634 

04C2 


CLR 

IOC 

INIT CODE FOR I/O SUPV CODE 

1349 

0636 

0419 


BLWP 

A8VCAL2 

MAKE SUPV CALL 

1350 

0638 

A707 


A 

CHRCNT, *R12 

INCR BUEF PTR TO INO OF DATA 

1381 

063A 

064C 


DECT 

R12 


1352 

063C 

C704 


MOV 

FLGS,*R12 

MOVE FLAGS TO CALLING W8 

1353 

063E 

0243 


AND! 

IOPLUN,P00FF 

IS THIS KEYBOARD READf 


I/O ROUTINIS 


94939fl«O901 ** 


PASS 0040 


1394 

0940 

0942 

00PP 

9003 

C 

lOPUUNfPKRUUNO 

1365 

0944 

0949 

000f » 
1301 

JEO 

KETPUP 

1395 

0949 

0390 

PTWP 


1397 

1395 

094A 

C0E0 

KEYPLP 

MOV 

PPRUUNOiIOPLUN 

1399 

094C 

094E 

0010’ 

O0C1 

MOVI 

WRCOOP.IOPUUN 

1390 

0990 

0209 

ll 

BUFAOR.UPCR 

1391 

0992 

0994 

0009* 

04C4 

CUR 

FU69 

1392 

0996 

100E 

4MP 

PRTKEY 


IP BIAD# ilTURN 


SETUP UP TO PRINT LP/CR 



I/O ROUTINES 


94S390f99ei ** 
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U64 



* TITLE* 

PRINT/PRINTN 


136S 



♦ 


PRINT A RECORD 


1366 



* REVISION! 

03/18/78 


1367 



* 


ORIGINAL 


1366 



* COMPUTER! 

990f ASSEMBLY 


1369 



* ABSTRACT! 

SETS UP PRB AND MAKES 8UPV CALL 

1370 





TO PRINT A RECORD 

1371 





PRINT • PRINTS 

RECORD WITH CR 

1378 





PRINTN- PRINTS 

RECORD WITHOUT CR 

1373 



* CALLING SEQUENCE! 


1374 





R10 • BUPPER ADDRESS 

1378 





BLWP PPRINT 


1376 



* 


OR 


1377 



* 


BLWP 8PRINTN 


1378 







1379 



* STATISTICS! WORKSPACE ■ 

I0WK8 (SHARED WITH I/O ROUTINES) 

1380 



PRINT 




1381 

0668 

08OC' 


DATA 

I0WK8, PRTCR 

transper vector 


065A 

0664’ 





1382 



PRINTN 




1383 

068C 

05OC’ 


DATA 

lOWKSiPRTNCR 

TRAN8PER VICTOR 


065E 

0660* 





1384 



PRTNCR 




1386 

0660 

0704 


8ETO 

PLG8 

SIT PUAG POR PRINT WITHOUT CR 

1386 

0668 

1001 


JMP 1 

PRENT 


1387 



PRTCR 




1388 

0664 

04C4 


CLR 

PLG8 

SET PUAG POR PRINT WITH CR 

1389 



PRENT 




1390 

0666 

C0E0 


MOV 

PPRLUNOiIOPLUN 

STORE LUNO 


0668 

0010» 





1391 



PRWRT 




1398 

066A 

O0CI 


MOVB 

WRCODPiIOPLUN 

STORE I/O OP 

1393 

066C 

C30D 


MOV 

R13»R12 

GET CALLER’S WP 

1394 

066E 

088C 


AI 

R12|R104R10 

INDEX TO CALLING PARAMETERS 


0670 

0014 





1395 

0678 

CISC 


MOV 

*R18,iUPADR 

SET UP BUPPER ADOR 

1396 



PRTKIY 




1397 

0674 

06A0 


BL 

PGETCNT 

GET CHAR COUNT 


0676 

060C 





1398 

0678 

A1C4 


A 

PLGS.CHRCNT 

ADJUST CHRCNT POR CR 

1399 

067A 

04C4 


CUR 

PUGS 

INIT FLAGS 

1400 

067C 

04C8 


CLR 

IOC 

INIT CODE POR I/O 8UPV CALL 

1401 

087E 

0419 


8LWP 

•SVCAL8 

MAKE 8UPV CALL 

1408 

0660 

A707 


A 

CHRCNT,*R12 

INCREMENT PRINT 8UPP TO END 

1403 

0688 

C068 


MOV 

lOCflOC 

check RETURN STATUS 

1404 

0684 

1308 


JEG 

PRIXT 

ZEROi EXIT 

1405 

0686 

0460 


B 

PASK 

ESC CNTL RETURN OR ERROR 


0668 

018C* 





1406 



PRIXT 




1407 

068A 

0380 


RTWP 


RETURN 


I/O ROUTINPJ 


945300«9$01 *« 


PACE 0042 


1400 



* TlTLil 

6ETCNT 


1410 



* 

GET character 

COUNT 

1411 



* REVISION! 

03/19/76 


1412 



* 

ORIGINAU 


1413 



♦ COMPUTER! 

990«A88EMBUV 


1414 



« ABSTRACT! 

SCANS LINE COUNTING CHARACTERS UP TO 

1418 



* 

AND INCLUDING 

A CARRIAGE RETURN. 

1418 



♦ CAILING SEQUENCE! 


1417 



♦ 

R10 • buffer 

ADDRESS 

1418 



# 

BL FGETCNT 


1419 



* RETURN PARAMETERS! 


142i 




CHRCNT(R7) i 

character count 

1421 



« STATISTICS! workspace ■ 

lOMKS 

1422 



eiTCNT 



1423 

088C 

04C7 

CLR 

CHRCNT 

INIT CHAR COUNT 

1424 



9CU00P 



1429 

068E 

0907 

INC 

CHRCNT 

INCR CHAR COUNT 

1428 

0890 

9838 

CB 

♦BUFADR^.PCR 

COMPARE CHAR TO CR 


0692 

0007 ’ 




1427 

0694 

1303 

JEQ 

6CEXT 

IF EQUAL, EXIT 

1428 

0696 

0217 

Cl 

CHRCNT, 80 

MORE than S0 CHARST 


0698 

0080 




1429 

069A 

UFO 

JLT 

GCLOOP 

NO, CONTINUE 

1430 



SCE7T 



1431 

089C 

6147 

S 

CHRCNT, iUPAOR 

RESET BUFFER ADOR TO 

1432 

069E 

0450 

6 

*RTN 

RETURN 

1433 



END 




0000 EPS 



945390-9901** 
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960 • 980 CONCORDANCE 



1 


0586 

0823 

0854 

A8CVL 

1082 

1126 

1139 


ASK 

0376 

0370 

0444 

0543 

8ATCM 

0398 

0400 



BHCOOe 

0103 

1123 



BIAS 

0061 

0546 

0607 

0636 

BIASWO 

0488 

0353 

0633 


BJHEX 

1120 

1110 



BINH 

1128 

1130 



binhix 

1117 

0435 

0743 

0964 

BINVAL 

0099 

1121 

1122 

1122 

BINVI. 

1078 




8K0UT 

0634 

0573 



BLANK 

0160 

0619 



bufaor 

0132 

1344 

1360 

1395 

BUFLEN 

0133 

1345 



CHIP 

0847 

0602 

0630 

0653 

CHLP2 

0768 

0778 

0790 

0805 

CHLP3 

0898 

0719 

0769 


CHOPC 

0108 

1121 

1125 

1137 

chrcnt 

0134 

1347 

1350 

1398 

CKCOM 

1043 

1049 



CKL 

0088 

1054 



CKLOC 

1058 

0999 



CK8M 

0165 

1063 



CK8YMB 

0407 

0429 



CNB6 

1040 

1036 



CMWP 

0998 

1035 



COLON 

0183 

0952 



C08PAR 

1284 

1258 



CQNLOC 

0855 

0851 



convl 

0854 

0852 



CONVRT 

0850 

0616 

0832 

0840 

CONVWS 

1077 

1118 

1134 


CR 

0179 

1426 



CSUN 

0095 

1041 

1047 

1050 

CTLUNO 

0199 

0389 

0394 

0396 

CUMCHK 

1034 

0784 



CUHPT 

0091 

1042 

1045 

1046 

OfFL 

0211 

0745 



OIFM 

0208 

0784 



OEFN 

0209 

0746 

0749 


OLOBI 

0204 

0351 



OLDPT 

0203 

0342 



OSSG 

0532 

0531 



08PEKT 

0638 

0611 



08PTCH 

0529 

0399 



08WP 

0455 

0533 

1003 


08WP2 

0459 

0530 

0639 


END 

0186 

0386 



ENOACT 

0247 

0439 



ENDLPR 

0685 

0682 



ENDOB 

0092 

1048 



ENDPRO 

0404 

0386 



EN08T 

1161 

0276 

0717 

0718 

entaod 

0279 

0681 

0652 


ENTB 

0433 

0409 



ENTERO 

0706 

0759 



ENTERR 

0703 

0671 



bnthsg 

0241 

0278 




085S 0923 10S« 129$ 1S20 1338 

0812 1408 

0837 064$ 0668 0730 079$ 0810 

1148 

1426 1431 

0674 0889 0699 

0828 0834 

1148 

1402 1423 142$ 1428 1431 


1086 

1067 1321 

1084 


0819 0962 


945390-9901** 
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INTPT 

0048 

0434 



INTVAI. 

0049 

0384 

0448 


INTVI. 

0280 

0430 



lOF 

0181 

0842 

0950 


inn 

0894 

0828 

0725 

0846 

IPPOR 


0039 

0895 

0940 

I8TPT 

0046 

0386 

0408 


fXiT 

1261 

1280 



p 

0184 

0369 



PI«8T 

0959 

0930 



PUASS 

0114 

0287 

0287 

0677 



1289 



PUCU 

0945 

0983 



PL68 

0131 

1848 

1382 

1861 

PL6VL 

0066 

0849 

0704 

0707 

PLRT 

0984 

0981 



P8T 

0076 

0929 

0929 

0960 

P8TIM 

0865 

0389 



PXRP 

0690 

0678 



8CEXT 

1430 

1427 



ecioop 

1424 

1429 



qitcnt 

1422 

1397 



SETHIX 


0039 

0339 

0348 

8ITSPU 

1191 

0410 



6fT8NM 

1211 

0419 



eiTsvu 

1200 

0878 

0771 

0981 

QT8PI 

1194 

1193 



0T8NH 

1214 

1213 



8T8VU 

1203 

1202 



H8C00E 

0104 

H38 



HCNT 

0106 

1127 

1140 


Mfxe 

1141 

1143 



HfXBI 

1136 

1138 



HEXBIN 

1133 

0883 

0876 

1004 

HEXP 

0093 

1088 



MBXP2 

0084 

0922 



HLO 

0065 

0550 

0645 

0652 



0730 

0737 

0798 

HVAL 

0089 

1044 

1048 

1046 

acD 

0161 

0593 



1L88 

0160 

0648 



INCHK 

0838 

0470 



INCP 

0069 

0680 

0663 

0738 

INiP 

0844 

0831 



INIT 


0039 

0385 


INPT 

0089 

0539 

0840 

0881 



0709 

0710 

0711 



0780 

0789 

0882 

IN8IQ 

0070 

0834 

0608 

0608 

IOC 

0126 

1297 

1348 

1400 

lOEPP 

0182 

0842 

0980 


IOPAR0 

0084 

0337 

0346 

0364 



0420 

0422 

0423 



0893 

0624 

0724 



1063 

1065 

1067 

lOPLUN 

0130 

1290 

1301 

1321 



1390 

1392 


10HK8 

1274 

1295 

1320 

1338 

JMPT0 

0862 

0888 

0587 


JMPT8E 

0888 

0586 



K7 

1187 

0389 



KBIUNO 

0197 

1839 

1384 



1(864 


0677 

0761 

0761 

0934 0934 1198 

1385 

1386 

1398 

1399 


iise 0665 0661 0683 0694 0666 

0600 0810 0824 

1047 


0800 0822 


0601 
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DATA 
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DATA 
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DATA 
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DATA 
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EQU 
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DATA 

0 




012B 

0822 

0000 
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DATA 
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DATA 
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EQU 
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DATA 
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EQU 
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0198 
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EQU 
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3103 
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EQU 
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0201 
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3104 
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EQU 
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0203 
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0204 


3105 
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IQU 
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0206 
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EQU 
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0000 
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EQU 
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EQU 
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0004 
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EQU 

4 


0213 


0005 

R5 
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0214 


000C 

RS 

EQU 
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0007 

R7 

EQU 
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0008 
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EQU 
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R9 

EQU 
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EQU 

10 
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EQU 
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EQU 
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EQU 
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EQU 
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EQU 
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EQU 
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DATA 
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023^1 
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EQU 
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DATA 
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00 
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FQU 

13 
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WRITE TO FILE 

0243 


0009 

REAOA 

FOU 

9 

READ FROM FILE 

0244 



* 



PRB. DEFINITIONS 

0243 


005E’ 

PRB 

EQU 

$ 


0246 

0W5E 

0009 

PRBSC 

DATA 

0 

SERVICE TYPE 

0247 

0060 

00 

PRBOP 

BYTE 

0 

I/O command 

024H 

0f»61 

07 

PRBLU 

BYTE 

7 

LUND 

0249 

0O’62 

00 

PR6SF 

BYTE 

0 

SYSTEM completion FLAGS 

02S1 

0063 

00 

PP0UF 

byte 

0 

USER flags 

0251 

0@'64 

0000 

PR88P 

DATA 

LD8UF 

BUFFER 

0252 

0066 

0056 

PRBLN 

DATA 

86 

OUTPUT buffer length 

0253 

0068 

0H59 

PRBCC 

DATA 

80 

character count 

0254 

0O»6A 

0900 


DATA 

0f 0 

UNUSED 


006C 

09 00 





0255 



* 



MISCELLANEUS data 

0255 



* 



character count 

0257 


006E' 

charct 

EOLI 

S 


0258 

006F 

0050 


DATA 

>0050 


0259 


0'i4n 

H 

EOU 

»M • 


0260 


0052 

R 

EOU 

IRI 


0261 



* 



END-OF-FILE mask 

0262 


2900 

EOFMSK 

EQU 

>2000 


0263 


0970' 

MiMIWG 

EOU 

S 


0264 

0070 

07 


BYTE 

7 


0268 

0071 

40 


TEXT 

'MEM 

TO?' 

0266 


0078 » 

ROMIMG 

EOU 

S 


0267 

0078 

07 


BYTE 

7 


0268 

0079 

52 


TEXT 

'ROM 

ID7» 

0269 

0080 

02 

blanks 

BYTE 

2 


0270 

0081 

20 


TEXT 

f • 


0271 


i 


EVEN 



0272 


0084* 

EIGHT 

EQU 

S 


0273 

0«84 

0009 


DATA 

6 


0274 


0086' 

SEVEN 

EOU 

S 


0275 

0066 

0007 


DATA 

7 


0276 



« 



MAXIMUM DUTY CYCLE 

0277 


0064 

MAXDC 

EQU 

100 


0278 



* 



MAXIMUM DUTY CYCLE COUNT 

0279 


FDg« 

MAXCT 

EQU 

65000 


028'^ 



* 



MAXIMUM PULSE WIDTH 

taai 


0006 

MAXPWl 

EOU 

6 


0282 



♦ 



MAXIMUM STRING WIDTH 

0283 


0008 

MAXHO 

EQU 

a 


0284 



* 



MAXIMUM CRU interface ADDRESS 


Pf*(OH PPORfiiAMMEf? 


O4S3<»1»9O01 *♦ 


PA6E «0P8 




IFFP 

maxcfu 

FQU 

>1FFE 





* 



CPU INTERFACE ROM REGISTfR SELECTS 

fc5 887 


00 09 

4DDP0 

eyij 

»P1000 


iS2»H 


0100 

A 00 PI 

EQU 

>0180 


a 3 8?) 


0300 

OIM 

F.QU 

>0300 




0809 

PWO0 

EOU 

>0500 



3988 

0700 

OOUTl 

OATA 

>700 


w2»S» 



* 



RORO TYPE^mIMORY or ROM 

isa9 3 


014D 

MPPT 

P Qtl 

>100+ 'M » 


^2U4 


0162 

RPPT 

FQU 

>100+ ‘R* 


0295 



« 



BUFFER RETURNS 

0298 


008A * 

BUFPTl 

FQII 

$ 


0297 

iJf''8A 

0009 


DATA 

0 


0298 


00ac 

BUFPT2 

PQU 

» 


029P 

09ar 

0000 


OATA 

0 


0300 



* 



TOGGLE comparisons 

0301 


0001 

YES 

FOU 

1 


0302 


0001 

MfMPOB 

FQU 

1 


03w3 


0002 

SOMMEH 

PQU 

2 


0.304 


0003 

SAVIMG 

EQU 

3 


0306 



♦ 



CPU interface BITS 

0306 


000F 

GOB I T 

EOU 

16 


0307 


000D 

LO 

FQU 

13 


0308 


0B0E 

IE 

EQU 

14 


0309 


000£ 

OL 

FQU 

14 


03 IM 


000P 

SUSY 

EQU 

16 


0311 



* 



parameter defaults 

0312 


008E» 

DEFTSl 

e au 

S 


0313 

008E 

0000 


DATA 

0 f 1 » 0 




0001 






0092 

0000 





0314 


0094 < 

0EFTS2 

EQU 

i 


0316 

8094 

0000 


OATA 

0,26,1 



0096 

0012 






0098 

0001 





0316 


009A» 

0IFTS3 

EQU 

i 


0317 

009A 

FFFF 


OATA 

•1 ,•! ,wl 

f • 1 


009C 

FFFF 






099E 

FFFT 






00A0 

FFFF 





0318 



* 



COMMAND table for PROCESSING COMMAND 

0319 



* 



PARAMETER LIST 

0329 



* 



COMMAND implementation ROUTINES 

0321 



* 



NUMBER OF PARAMETERS, PARAMETER BIT MASK 

0322 



* 



ADDRESSES OF DEFAULT VALUES 

0323 



* 



parameters passed TO SUBCOMMANDS 

0324 


00A2' 

CNAME 

EQII 

i 


0325 


00A2» 

CM801 

EQU 

$ 


0326 

00A2 

4363 


DATA 

•CS* 


0327 

00A4 

01 


BYTE 

1,>80 



00A5 

m 





0328 

00A6 

0000 


OATA 

0 


0329 

00 A8 

i0A« 


DATA 

cs 


0339 


004F' 


data 

RCRUIA 


0331 


000A 

CHOLEN 

EQU 

$«CBND1 





PROM PROGRAMMER 
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0332 

00AC 

0333 

00 Al 

00AF 

0334 

00B0 

0335 

00B2 

0336 

0064 

0337 

0086 

0938 

0068 

00B9 

033y 

008A 

0340 

0060 

0341 

006E 

0342 

00C0 

0343 

00C2 

00C3 

0344 

00C4 

0346 

00C6 

0346 

00C8 

0347 

00CA 

0348 

Hv>CC 

0UCD 

0340 

00CE 

0350 

0000 

0351 

0002 

0352 

0004 

0353 

0006 

0007 

0354 

0008 

0355 

00OA 

0356 

00OC 

0357 

0001 

0358 

00E0 

00E1 

0350 

00E2 

i36(4 

00E4 

0361 

00E6 

*0362 

00 £8 

0363 

00EA 

00E8 

0364 

00EC 

0365 

00EE 

0365 

00F0 

0367 

00F2 

0368 

00F4 

00F5 

0369 

00F6 

0370 

00F8 

0371 

0372 

0373 

0374 

00FA 

0376 

00FC 

0376 

0377 

0378 

00FF 


474F 

m 

m 

0000 

019C 

0000 

4042 

08 

C0 

0000 

0098 

003E' 

4049 

04 

80 

008 E’ 

0042 

000C» 

5242 

02 

C0 

0000 
0038 
0042 ’ 

9243 

06 

60 

0094' 

0074 

0032' 

5249 

04 

80 

008E' 

0042 

0020 ' 

5357 

01 

80 

0000 

0060 

00FC' 

5453 

04 

00 

009A' 

0082 

0046' 

00FC CMN2 

* 

00FC awBLK 
000A' 

0016' 

* 

* 


DATA 

'GO ' 

BYTE 

0»0 

DATA 

0 

DATA 

GD 

DATA 

0 

DATA 

'MB' 

BYTE 

2,>C0 

DATA 

0 

data 

BOUNDS 

DATA 

bma 

DATA 

»MI ' 

BYTE 

4, >80 

DATA 

DEFTSl 

DATA 

IMAGE 

DATA 

IMT 

DATA 

'P8' 

BYTE 

2,>C0 

DATA 

0 

DATA 

BOUNDS 

DATA 

8CA 

DATA 

'RC ' 

BYTE 

6,>E0 

DATA 

DEFTS2 

DATA 

RC 

DATA 

wwio 

DATA 

'RI » 

BYTE 

4^>80 

DATA 

OEFTSl 

data 

IMAGE 

DATA 

IRT 

DATA 

'SW' 

BYTE 

lr>80 

DATA 

0 

DATA 

SW 

DATA 

SWBLK 

DATA 

'TS' 

BYTE 

4,0 

DATA 

0FFTS3 

DATA 

TS 

DATA 

CMPR 

EQU 

% 

EQU 

$ 

DATA 

SWT 

DATA 

SWTR 




TWO PARM8 PASSED TO 3W, LOCATED IN 8WBUK 


STORAGE FOR LOOP COUNTERS FOR COMPUTING 
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PASE 0010 


03^9 


0 1 0 0 » 

CT 

ECU 

s 

0380 

0100 

0000 


DATA 

0 


0102 

0000 





0104 

0000 




0381 



♦ 



038St 


0108* 

BMBYA 

EOU 

$ 

03dv3 

0106 

0000 


DATA 

0 

0364 



* 



038S 


0108* 

0MBY8T 

EUU 

1 

0368 

0106 

m 


8YTE 

0 

0387 


0109* 

BM8T2 

eou 

$ 

0368 

0109 

00 


«y TE 

0 

0369 



* 



0390 


010A* 

BPWA 

EQU 

$ 

0391 

010A 

0000 


DATA 

0 

039R 



* 



0393 


010C’ 

0RWOBT 

EQU 

$ 

0394 

010C 

00 


BYTE 

0 

0395 


0100* 

BR8T2 

EQU 

$ 

0395 

010D 

0P 


BYTE 

0 

0397 



* 



0398 


010E* 

IRWA 

EQU 

$ 

0399 

310E 

0000 


DATA 

0 

0400 



* 



0401 


0110* 

HSTRG 

EQU 

$ 

0402 

0110 

00 


BYTE 

0 

0403 


0111 » 

MSTRG9 

ECU 

i 

0404 

0U1 

00 


byte 

0 

0405 


0112* 

RSTRG 

EQU 

$ 

0408 

0119 

00 


BYTE 

0 

0407 


0 U 3 * 

RSTRG2 

EQU 

$ 

0408 

0113 

00 


BYTE 

0 


beginning MgMORV BYT! ADDRESS 

beginning bit within byte 

beginning ROM WORD ADDRESS 

beginning bit within word 

ENDING RDM WORD ADDRESS 
MEMORY AND ROM STRINGS 


fl 




PROM programmer CSI 


pMsaRi-SRai ** 


PAGE p«ll 


0411 



4r 

TITLE? 

PPCSI 

041P 






PROM PROGRAMMER COMMAND STRING INTERPRETER 

04U 



* 

REVISION* 

03/15/76 

04|4 






original 

I841S 



* 

COMPUTER* 

990. assembly 

@4 lb 



♦ 

ABSTRACT* 


i»417 



♦ 



CHECK FOR MISSING REQUIRED PARAMETERS FOR 

a4lB 



♦ 



COMMAND. FIND SUBCOMMAND IN COMMAND TABLE, 

0419 







042V1 







0421 






OPTIONAL PARAMETER MISSING GET DEFAULT VALUE 

0422 



* 

CALLING SEOUENCF* 

0423 



★ 



ENTRY* 

0424 



♦ 



R10 CONTAINS address OF COMMAND PROCESSOR LIST 

042S 



* 



EXIT* 

0426 



♦ 



CONTROL PASSED DIRECTLY TO SUBCOMMAND ROUTINE 

0427 






THROUGH Rll 

0426 



♦ 



R3 CONTAINS ADDRESS OF SUBCOMMAND PARAMETER 

0429 






R9«R4 CONTAIN SUBCOMMAND PARAMETER VALUES 

0430 


0U4» 

PPCSI 

fe'UU 

S 

0431 



♦ 



SAVE RETURN ADDRESS 

0432 

0114 

COBB 



MOV 

R1 1.R2 

0433 



t 



PRES8T.LSHFT(CPL(1) ,9) 

0434 

0116 

C27A 



MOV 

4R10+.R9 

0435 

0116 

0A99 



SLA 

H9.9 

0436 






IFCPARM (n ,E0. ' 'ICALL ERR 

0437 

011A 

1732 



JNC 

REQMIS 

043B 



# 



WDI«LSHFTCCPU2) .6) 

0439 

0UC 

C0FA 



MOV 

♦R10+.R3 

04 40 

01 IE 

0203 



M0V8 

K3,R8 

0441 






WD2«RSHFTeCPL(3I .8) 

0442 

0120 

C13A 



MQV 

★R104.R4 

0443 



♦ 



CMNObOR (HOI ,WD21 

0444 

0122 

O0C4 



M0V8 

R4.R3 

0445 

0124 

06C3 



SWP8 

R3 

0446 



# 



INCREMENT CPL PAST EXTRA CHARS 

0 4 47 

0126 

0998 



SRL 

R6.9 

0406 

0126 

0*18 



SLA 

R8, 1 

0449 

012A 

0648 



DECT 

R8 

0450 

012C 

A268 



A 

RS.Rlt^ 

0451 



♦ 



FIND COMMAND IN TABLE ANO USE 

0452 



★ 



table values TO CHECK THAT 

0453 






REQUIRED PARAMETERS FOR 

0454 



t 



COMMAND ARE GIVEN AND TO 

0455 



♦ 



default OPTIONAL PARAMETERS 

0456 



it 



THAT ARE omitted 

0457 






00 1 JbI.CTPLSZ 

0456 



♦ 



if(cmnd,eq.cname(J))go to 19 

0459 

0126 

0205 



LI 

H5.CNAME 


0130 

00A2* 





0450 


0132' 

PPFLDl 

FOU 

S 

04bt 



♦ 



J«J + l 

04b2 

0132 

8043 



C 

R3,*R5* 

0453 

0134 

1306 



JEQ 

PPFLD2 


PASS mi2 


PHOH PPQGRAMMgR C31 


94S391-9901 ** PASS 0012 

«4ei4 



♦ 


J«J + 3 


0135 

0225 


A I 

R5,CMRlEN-2 


01 3« 

00^8 




a46« 

413A 

0285 


Cl 

85,CMN2 


ai3f. 

02SC» 




0467 



★ 


IF(J,NE.CTBL87)CaMTINUE 

046S 

013S 

16F9 


JNS 

PPFLDl 

046« 



♦ 


CALL ERR 

047^1 

314!^ 

1025 


J0P 

BAOAOD 

0471 


ai42» 

PPPLO? 

Foil 

* 

04/;? 





Rl2«CNAMEfJ+l) NO, OP PARMS, 

0473 

3142 

D335 


0OV8 

*R5+,R12 

04/4 



a 


R14hCNAME(J+2) PARM, bit MASK 

0475 

0144 

0385 


HDV8 

*R54,R14 

0476 



♦ 


R15»CN4ME(J+3) defaults FOR PARMS, 

0477 

0146 

C3F5 


MOV 

4R54,R15 

0475 



♦ 


rii«cname(J4.4) command routine 

047« 

3148 

C2F5 


MOV 

♦ RS'FfRU 

04091 



♦ 


ALL subcommand ROUTINES 

0481 



♦ 


EXCEPT SO ARE IN PROSRAM 

0482 



♦ 


EXTENSION AND ARE LOCATED BY 

04 83 



♦ 


AOOINS EXTENSION PROGRAM BIAS 

0484 



# 


TO subcommand routine ADDRESS 

0485 

31 4A 

0286 ' 


Cl 

Rll<iGO 


«14C 

01 9C* 




0485 

314f 

1302 


JEO 

PPFLD3 

0487 

0i8;i 

4263 


A 

PPSaiAStRll 


0152^ 

0050’ 




0488 


0154’ 

ppfim 

EQU 

$ 

0489 



♦ 


R3«CNAME(J45) subcommand PARMS 


0154 

C0F5 


MOV 

4P5+,R3 

0491 

0156 

098C 


SRt 

R12»8 4R12P«N0, OP PARAMETERS 

0492 



# 


RlfAODRtRP) 

0493 

0158 

02A1 


STWP 

R1 

0494 



# 


R1»AD0R(R9) 

0495 

: 315A 

0221 


A I 

Rl,R9*2 


aiSC 

0012 




0495 



♦ 


parameter VALUES FOR SUB- 

0497 



♦ 


ROUTINES TO BE TRANSFERRED IN 

0495 



t 


R9-R4 

0499 

415E 

C009 


MOV 

R9,«0 

05011 





DO 219 L«l,NQPRM 

0501 


0160’ 


EOU 

$ 

0502 



♦ 


IF NO parameters to process, 

0503 





SKIP AND BRANCH TO SUBROUTINE 

0504 

316«^^ 

060C 


DEC 

R12 

0506 

4162 

1100 


JIT 

6P100 

0506 



♦ 


IF rMASK.fO.n GO TO 229 

0507 





CHECK FOR REQUIRED PARAMETER 

0508 

0164 

0Aif: 


SLA 

R14,l 

0509 



# 


IF REQUIRED JUMP TO SEE IF 

0510 





PRESENT 

0511 

0166 

1804 


JOC 

GP010 

0512 



* 


MOVE OEFAULT parameter VALUE 

' 0M3 



# 


into TRANSFER REGISTER 



PROM PROGRAMMER CSI 
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PAGE 0013 


0S14 

M68 

C47F 


NOV 

♦R154»*RI 

0S15 



♦ 


IF fPRESBT,EQ,0)Gn TO 219 

as 16 



♦ 


CHECK IF Parameter present 

0517 

016A 

0A10 


SLA 

R0, 1 

asia 



* 


IF PRESENT JUMP TO REPLACE 

0S19 



* 


DEFAULT VAI, UE WITH ACTUAL 

asga 



if 


VALUE 

asai 

Her 

1803 


JOC 

GP015 

0520 

31 6 E 

1003 


JMP 

GP020 

0523 



if 229 


if(pres6t.eq,0)call err 

0524 


017P'» 

GP0t0 

F,QU 

8 

0S25 



♦ 


IF REQUIRED BUT NOT PRESENT, 

0526 



it 


CALL ERROR 

0S27 

017i^ 

0A 1'1 


SLA 

R0,1 

052« 

0172 

1706 


JNC 

REQMis 

0529 


0174' 

6P«15 

EQli 

S 

0530 



♦ 


PARM(L)«CPLtL+3) 

0531 



it 


MOVE parameter value into 

0532 



it 


transfer register 

0533 

017 4 

C47A 


MOV 

*R10T,*R1 

0534 



it 219 


CONTINUE 

0535 


0176' 

GP020 

EQU 

s 

0536 



it 


GET NEXT TRANSFER REGISTER 

0537 

0176 

0641 


HECT 

Rl 

053» 

0178 

10F3 


JMP 

GP000 

0539 


017A' 

QPXm 

EQU 

S 

0640 



it 


SET UP ERROR RETURN 

0541 

017A 

0200 


LI 

R0,ERR 


017C 

0196 ' 




0542 



it 


R12 IS -If USE FOR COMPARISONS 

0543 



it 


IN command routines to check for 

0544 



it 


MISSING PARAMETERS 

0545 



it 


return 

0546 



H 


BRANCH TO SUBCOMMAND ROUTINE 

0547 

017F 

0 46B 


B 

*RU 

0540 


0180' 

REQHIS 

EQU 

i 

0549 

0180 

020A 


LI 

R10,PPRQ 


0182 

3101 




055M 

1184 

100S 


JMP 

ERR 

0551 


0186* 

NMATCH 

EQU 

$ 

0552 

SH 86 

020A 


LI 

R10,PPNM 


.11 08 

3103 




0553 

H0A 

1005 


JMP 

ERR 

0554 


018C » 

8ADADD 

EQU 

S 

0535 

018C 

020A 


LI 

R10,PPBA 


3188 

3104 




0556 

.11 9 f'! 

1002 


JMP 

ERR 

0537 


0192* 

0UT8DS 

EQU 

S 

0558 

0192 

020A 


LI 

Hi0,PPO8 


-1194 

3102 




0559 


0196' 

ERR 

EQU 

s 

056H 

1196 

06A0 


6L 

PERROR 


3198 

0000 




0561 

0 1 9 A 

0482 


B 

*R2 


GO 945301»9«0l ** PAGE iit4 


4SS64 




TITLES 

GO 


4365 



# 


GO SUBCOMMAND 


4566 



♦ 

PEVI8I0NI 

03/15776 


4567 



# 


ORIGINAL 


■4 SO a 




COMPUTEWI 

990, ASSEMBLY 


45.69 



♦ 

ABSTRACT* 



«574 



* 


GENERATE beginning BIT AND WORD AD0PESSE8, TEST 

057J 



★ 


TOGGLES AND CALL 

SUBROUTINES FOR TOGGLES SET. 

0573 




CALLING S6QMENCEI 


4 573 . 





ENTRY* 


4374 



# 


NONE 


4575 



# 


EXIT* 


4576 



♦ 


UPON nOMPLETION 

RETURN CONTROL TO MONITOR 

4577 



♦ 


THROUGH R2 


4376 


0I9C’ 

GO 

' 60U ! 

S 


0579 





N«MMTfl)*MMT(2)*MMT(3) 

asod 

5 1 9C 

0204 


LI 

R0,MMT 



41 9 e 

0013’ 





4 38 1 

ai A0 

C23d 


80V 

*R0+,R8 

GET MMTCl) 

4583 

41 A2 

3A30 


MPV 

*R0+,RB 

X»HMTC1)*MMT(2) 

4583 

41 A^ 

3A8d 


MPY 

♦R0.R9 

Na)iMMT(3)*H00(X) 

4584 

1 1 A 6 

C1C9 


NOV 

R8,R7 


4586 

41A6 

390"! 


Mpy 

*R0rR7 

Nf2)*MMT(3)#(X7a88) 

0586 

aiAA 

A248 


A 

R8,«9 

Nt2)«N(2)^CARRY(N(l)) 

4587 



♦ 



R7,R8 CONCATENATED CONTAIN 

4588 



# 



NUMBER OF LOOPS THROUGH 

0589 



♦ 



MEMORY 

450d 

41 AC 

CICS 


NOV 

R9,R7 


0591 

41 A1 

C20A 


NUV 

R10,R8 


4393 



* 


N0fMRT(n*MRTC2)*MRTfS) 

4593 

41Bd 

4200 


LI 

H0,MRT 



3182 

4020' 





4594 

4184 

C130 


MOV 

*R04,R4 

GET MRT(15 

4195 

4186 

3930 


MPY 

*R0«,R4 

X*MRT(1)*MRTC2) 

4596 

4188 

3950 


MPY 

*R0,R5 

NO(l)^MRTf3)*M0D(X5 

0197 

3 ISA 

C0C4 


MOV 

R4,R3 


4398 

418C 

38D0 


Mpy 

♦ R 0 , R3 

N0(2)«MRTf3)*CX/2S6) 

4699 

4108 

A 144 


A 

R4,R5 

NO(2)«N0e2)*CARRY(N0(l)) 

4 6 0 d 



at 



R5,R6 CONCATENATED CONTAIN 

0641 



# 



number of loops THROUGH ROM 

4842 



It 


ie(n.ne. 

NOICALL EPR 

0643 

41C0 

8188 


C 

RH,R6 


4644 

41C2 

1661 


JN6 

NMATCH 


4845 

41C4 

8147 


C . 

R7,R5 


0846 

41C6 

18DF 


JNK 

NMATCH 


0847 

41CP 

0200 


LI 

R0,CMPR 



41CA 

4046* 





0608 

41 Ct 

C380 


MOV 

*R0+,R14 

R14 i CMPR TOGGLE 

4849 

41 C8 

C270 


MOV 

*R0+,R9 

R9 ■ DIRECTION TOGGLE 

4614 

4100 

C280 


MOV 

*R0+,R10 

R10 ■ DISPLAY ROM 

46 n 

4102 

C3O0 


MOV 

*P0,815 

R15 ■ DISPLAY MEMORY 

0812 



* 



CHECK IF SAVE IMG IS ONLT TOG 

4613 

4104 

1608 


JNE 

GOFL0 

IF MEM DISP f 0 

4814 

411)6 

4289 


n 

R9, SAVING 

AND DIRECT ■ 3 



94S39i-9901 ** 
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GO 



01D8 

0603 







0104 

1605 


JNE 

GOFL0 



0616 

01 DC 

C00E 


HOV 

Pi 4,R0 


AND ROM AND mew DISPLAY ■ P 

0617 

not 

A00A 


A 

Pl0f R0 



0610 


1602 


JNF 

GnFL0 


THEN 

0619 

HE? 

0460 


8 • 

#G0FL12 


CALL SAVEIMG 


01 E4 

031A* 






0620 


01E6 ' 

GOFL0 

EQU 

$ 



0621 

11166 

0204 


UI 

P4, 1 


SET DISPLAY FLAG TO BE OECR 


rms 

0001 






062? 



if 




TO ZERO IN display ROUTINE 

0623 



if 




TO INDICATE PRINT CARRIAGE 

0624 



* 




RETURN , line feed BEFORE 

0625 



* 




DISPLAY 

0626 



if 




COMPUTE MEMORY AND ROM ADDRES 

0627 



# 




USING MAXIMUM COUNT 

0626 

01 E A 

C166 


HOV 

P6,R6 



0629 

01 EC 

1601 


4NE 

GDI 



0600 

01 EE 

0605 


DEC 

R5 



0631 


01F0» 


EQU 

$ 



063? 

01F0 

0606 


DEC 

R6 



0633 



♦ 




Fl.AG*INDICATE MAXIMUM COUNT 

0634 



it 




computation LOOP 

0635 

0 1 E 2 

070A 


SETO 

«10 



0636 

01F4 

1003 


JMP 

GOBRl 



0637 



it 



00 160 

«Kb1,N 

0638 



it 



KbKK<>1 


0639 


01F6» 

G08KI 

EQU 

S 



064^ 

aiF6 

04C5 


CLP 

K5 


begin at LOOP COUNT ZERO 

0641 

01FP 

04C6 


CUR 

R6 



064? 


01FA' 

QOFLOl 

EQU ! 

K 



0643 



it 




flagpmayimum count COMPUTAp 

0644 







TIOn complete 

0645 

01FA 

04CA 


CLP 

R10 



0646 


01FC 

QOBni 

EQU 

$ 



0647 



# 




SET UP PROGRAM BIAS TO LOCATE 

0648 



♦ 




subroutines in extension 

0649 



if 




PROGRAM 

06S0 

aiFc 

C329 


MOV 

PPGSIAS 

,R12 



3 1 F F 

0050' 






0651 



it 




COMPUTE CT values TO BE USED 

065? 



it 




IN BBART 

0653 



* 



CAU CTPTfMMT) 

0654 

020» 

042C 


0LWP 

6CTR(P12) 



02fc2 

0020 






0655 

0204 

0018' 


DATA 

MMT 



0656 

0206 

0100' 


data 

CT 



0857 



it 




compute memory ADDRESS AND 

0658 



it 




STORE 

0659 



if 



CAU BBART(IMT) 

086W 

0208 

042C 


BLWP 

8BBAR(R12) 



020A 

0024 






0661 

020C 

i00C 


DATA 

IMT 



0662 

020E 

0100' 


DATA 

CT 



0663 

021? 

003E» 


DATA 

0MA 




G«1 

d6(54 

4665 

4666 

4667 

4668 
4666 
467W 

4671 

4672 

4673 
(8674 

4675 

4676 
m77 

4678 
467Q 
468 M 

4681 

4682 

4683 

4684 

4685 

4686 
0687 
4688 
0689 
46 

4691 

0692 

0693 
069 4 

0695 

0696 

0697 

0698 

0699 

07 0H 
0701 
4702 

0703 

0704 

0705 

0706 


0707 

0708 

0709 
07 I H 
07 1 1 





945391-9901 ** 

rage 0016 


0212 

0884 ' 


DATA 

EIGHT 



0214 

01S96* 


DATA 

BMBYA 



0216 

0108 » 


DATA 

BMBVfclT 



0216 

0049^ » 


DATA 

EMA 



321A 

0192* 


DATA 

0UT80S 

ERROR EXIT 




# 



COMPUTE CT VALUES TO BE 

USED 



# 



IN BBART 




★ 


CAU CT8Tr8PT) 


021t 

042C 


BLWP 

PCTP(P12) 



021F 

0P*20 






4220 

0W2C* 


DATA 

MPT 



0222 

@1 0(0 • 


DATA 

CT 





« 



COMPUTE ROM ADDRESS AND 

STORE 



* 


CALL RgAPTdRT) 


0224 

042C 


BLWP 

P8BARfPl2) 



0226 

0024 






0228 

0020* 


DATA 

IRT 



022A 

0100* 


DATA 

CT 



422C 

0f'*42 ' 


DATA 

acA 



0228 

0432* 


DATA 

WWID 



023^i 

010A* 


DATA 

awwA 



0232 

410C 


DATA 

BRWOBT 



0234 

4044 * 


DATA 

ECA 



0236 

4192* 


DATA 

OUTBDS 

ERROR EXIT 




# 



IE MAXIMUM COUNT COMPUTATION 



# 



LOOP, GO SACK AND BEGIN 




# 



LOOPING at COUNT ZERO 


0238 

C28A 


^>ov 

R 1 0 , R 1 0 



02 3 A 

l«Dn 


.INE 

lioeKi 





# 


fRWAifBRBA + SWT-*!) 7WWIP 


02 3T 

C2E0 


HOV 

♦SWT,R3 



0236 

000 6 * 






324i^' 

0603 


DEC 

R3 



0242 

A043 


A 

R3,R1 



024 4 

1701 


JNC 

GBFLDl 



0246 

0680 


INC 

R0 




0?4i* 

GBFL01 

IQ 11 

$ 



4248 

3C20 


DIV 

PWWID.RP 



024A 

0032* 






42 4r 

C60® 


MOV 

RM,*ERWA 



024f: 

il0E* 








♦ 


IF(DIRECT 

.eq.memromjcall mgstfo 







R9 IS DIRECTION TOGGLE 


0251?! 

0289 


Cl 

R9,MEMR0M 



4252 

0001 






4254 

1611 


JNE 

G0FL02 





♦ 



GET MEMORY STRING IE TOGGLE 



♦ 



SET TO BURN 


4256 

042C 


BLI^IP 

4MGCTfRl25 



0268 

0028 






025A 

0146* 


DATA 

0MBVA 



325C. 

0108* 


data 

BMBYBT 



325E 

000A* 


DATA 

SWT 



326i’ 

4 1 1 0 * 


DATA 

MSTRG 





♦ 


IF(DIRECT 

.E0,MEMR0M)CALL BROM 




60 
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PA6F mX7 


0712 





BURN STRING 


0713 

0?6? 

042C 


BLwP 

#BRH(»12) 



0964 

002C 





07 U 

0266 

010C* 


DATA 

BRWDBT 


0715 

0268 

000 A * 


DATA 

S»«iT 


0716 

026A 

0110' 


DATA 

mst»g 


0717 

026C. 

010A' 


DATA 

BRWA 


0710 

0266 

0032' 


DATA 

WWID 


0719 

0270 

0034 ' 


DATA 

POOZ 


07H0 

0272 

032P5' 


DATA 

BWORD 


07^1 

0274 

0196' 


DATA 

ERR ERROR E^IT 


07;^2 

0276 

0108' 


DATA 

ERWA 


0723 



it 


IFCDISPR.EO.YES.OR.CMPR.EQ.VES.OR, 


0724 



it 


DIRECT, EO.ROMMERICAUL RGETFD 


0725 


0278' 

60F102 

EQD : 

$ 


0726 

0278 

C2A0 


MOV 

8OISPR,R10 



027 A 

004A' 





0727 

027C 

1605 


JNE 

G0FLD3 


0720 

027E 

C38C 


MOV 

R14,R14 R14 CONTAINS COMPARE TOGGLE 

0729 

0264 

1603 


JN8 

GDFL03 


0734 





RP IS DIRECTION TOGGLE 


0731 

026? 

0269 


Cl 

R9,«0MMEM 



0264 

000? 





073? 

0286 

160B 


JNE 

G0FLD4 


0733 


028S' 

GOFL03 

EOU : 

S 


0734 



# 


GET SOM string IF TOGGLES 

SET 

0735 



it 


FOR ROM^TOwMEMORyfOISPLAY 

ROM 

0736 



* 


OR COMPARE 


0737 

0268 

042C 


BLWP 

•SGETCR12) 



028A 

0030 





073« 

028C 

0032' 


DATA 

WWID 


0739 

0268 

010C» 


DATA 

BRW08T 


0744 

029f: 

004E' 


DATA 

HCRUIA 


0741 

0292 

000 A' 


DATA 

8RT 


074? 

0294 

010 A' 


DATA 

BRWA 


0743 

0296 

0196' 


DATA 

ERR 


0744 

0296 

0089' 


data 

oauTi 


0745 

029A 

010C 


DATA 

ERNA 


0746 

029C 

0112' 


DATA 

RSTWG 


0747 



* 


IPIDIRECT.EO.ROMMEMICALL RTOM 


0748 


029E' 

G0FUD4 

EQU S 


0749 



a 


R9 IS DIRECTION TOGGLE 


0750 

0298 

0209 


Cl 

RPfROMMEM 



02Af1 

0002 





0751 

02A2 

1606 


JNE 

G0FLD5 


075? 





ROM-TOitMEMORY 


0753 

02A4 

042C 


BL9P 

•RTHCR19) 



02A6 

0034 





0754 

02A8 

0106' 


DATA 

BM8YA 


0755 

02AA 

000t* 


DATA 

SWT 


0756 

02AC 

0109' 


DATA 

8MBYBT 


0757 

02A8 

0U2» 


DATA 

RSTRG 


0758 



* 


IF(CMPR.Efa.vES)CALL COMPAR 


0759 





IP(DISPM.eQ,YES,OR,CMPR,EO,YES) 



« CALL MGETFD 
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PAGP PI8I18 


GO 




0280' 

G0FUD5 

EOU 

% 



0/83 



# 



R1S IS DISPLAY MEMORY TOGGLE 


0/01 

0381! 

C3Cf 


HOV 

P15,R1S 



07S4 

038? 

1603 


JNE 

G(iFL06 



0/6§ 

0384 

C38E 


HQV 

814,814 

R14 IS compare toggle 


0706 

0386 

1306 


JEC5 

GDFL07 



0707 


0388* 

60FL06 

EQU 

S 



0766 






GET MEMORY STRING IF TOGGLES 


0700 



# 



SET TO compare OR DISPLAY 


07 7 '/t 



♦ 



MEMORY 


07 71 

0388 

042C 


BlwP 

#mgET(R12) 



038A 

0028 






077? 

038C 

0108' 


data 

8M8YA 



0773 

0386 

0108' 


data 

HMBY8T 



0774 

03Ci» 

000A' 


DATA 

SwT 



0776 

03C3 

0113' 


DATA 

MSTRG 



0776 


03C4' 

GOFLO^ 

EUM : 

$ 



0777 

03C4 

04C1 


CLP 

W1 

clear flag» no compare 


077« 

03C6 

C38E 


I^OV 

R 1 4 , R 1 4 

R14 IS COMPARE TOGGLE 


0770 

03C8 

1303 


JEW 

goflos 



0780 



# 



IF (MSTRG, EG, RSTPG3 call DISPLY (M8TRG5 


0781 






IF (MSTRG. EQ.R8TRGK all DISPLV (R8TR6) 


0783 



♦ 



IF TOGGLE SET, COMPARE 


0783 



* 



STRINGS 


0784 

03CA 

8820 


C 

8MSTRG,i 

FRSTRG 



03CC 

0 11 0 * 







aacp 

0113* 






078H 

0200 

1304 


JEQ 

G0FLD8 

1 

a 

0786 

0303 

0701 


SETO 

R1 

IF NOT SAME, SET FLAG 80 TRO 


0787 



# 



STRINGS WILL BE DISPLAYED 


0788 

0304 

0304 


LI 

R4,l 

SET DISPLAY FLAG TO BE OECR 



0306 

0001 






0780 



♦ 



TO ZERO IN DISPLAY ROUTINE 


07S0 



* 



TO INDICATE PRINT CARRIAGE 


0701 






RETURN , line feed BEFORE 


0703 . 



# 



DISPLAY 


0703 

03D« 

1003 


,IMP 

G0FL8A 

JUMP TO DISPLAY 


0704 



♦ 



IF(DISPM,E0.YE81CALL dibply 


0795 


03DA* 

G0FLD8 

IQU 

S 



0796 

03DA 

C3CF 


MOV 

RIS.RIS 

R19 IS DISPLAY MEMORY TOGGLE 


0797 

03Ot 

130 7 


JEQ 

GOFLOO 



0798 



« 



CALL DISPLY(MPRT,BMWA,8MW08T, MSTRG) 


0790 


02Di* ' 

GOFLdA 

EQU 

S 



080M 






DISPLAY MEMORY STRING IF 


0801 



♦ 



TOGGLE SET TO DISPLAY MEMORY 


0803 



♦ 



OR IF COMPARED STRINGS 00 NOT 


0803 



« 



MATCH 


0804 

02OE 

06 AH 


8L 

PDJSPUY 




03EP 

03C6* 






0809 

0363 

0i4n 


DATA 

HPRT 



0806 

0384 

0106* 


DATA 

BH8YA 



0807 

03E6 

0101;* 


DATA 

BM8T2 



0808 

03E8 

0111 ’ 


DATA 

MS1RC? 



0800 

0?eA 

1010 


JmP 

GOFL10 

ERROR RETURN 


0810 






IF(D1SPR,EQ,YES)CALL D18PLY 

%J 
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GQ 


08U 


0?EC» 

G0FLD9 

EQU 

$ 


'481S 

02EC 

C041 


MOV 

« 1 # P 1 

TEST FLAG- JUMP TO DISPLAY IP 

i98t3 






SET 

0814 

02EE 

1602 


JNE 

GOFL9A 


0815 

02F0 

C28A 


HOV 

810,810 

810 IS display ROM TOGGLE 

0815 

02F2 

1307 


JEO 

GOFLD0 


08ir 



* 



CALL DISPLYfRP8T,BRWA,B880BT,PSTRG) 

0818 


02F4' 

GOFLflA 

EQU 

$ 


0819 






DISPLAY ROM STRING IF TOGGLE 

08P8 



* 



SET TO DISPLAY ROM OR IF 

08^M 






compared STRINGS 00 NOT MATCH 

08i'2 

02F4 

06AI’* 


6L 

6DISPEY 



02F5 

03C«' 





08 r 3 

02F8 

0152 


DATA 

HPMT 


08i 4 

02FA 

010A» 


DATA 

BP8A 


08r'S 

02FC 

01 0D’ 


DATA 

8RBT2 


08i:6 

02FF 

0113' 


DATA 

R8THG2 


08.;7 

0300 

100E 


JMP 

GOFLIB 


08i<i'8 



♦ tm 



continue 

0829 


0302' 

GOflO^ 

EQU 

8 


083i^l 

030? 

0586 


INC 

86 

IF COUNT IN R6 INCREMENTED TO 

0831 

0304 

1601 


JNF 

GOFL0C 

VALUE GREATER THAN fFFFP ADD 

0832 

0306 

0585 


INC 

85 

CARRY TO RS 

0833 


03w^8 ' 

GOFU0C 

EOU 

$ 


0834 

0308 

8206 


C 

86,88 

CHECK FOR LOOPING COMPLETED 

0835 

030A 

1602 


JNE 

GOFU0O 


0838 

030C 

8147 


C 

87,85 


0837 

030F 

1302 


JED 

GOFL0A 


0838 


0310' 

GOFL0O 

EQU 

$ 


0839 

0310 

0460 


B 

•gofldi 

continue LOOPING 


0312 

0lf A' 





0840 


03 1 4 ' 

GOFL0A 

EQU 

S 


08 41 






IF fOIRECT.FQ.SAVlMGJCALL SVSTIM 

0842 






89 IS DIRECTION TOGGLE 

0843 

0314 

0289 


Cl 

89,3AVJ 

MG 


0316 

0003 





0844 

0318 

1602 


JNE 

GDFLIF 


0845 


031A' 

GOFLlg 

EQU 

$ 


0848 



* 



SAVE standard image 

0847 



* 



CONTROL RETURNED TO MONITOR 

0848 



it 



FROM SVSTIM through R2 

0849 







08S0 

03 1 A 

0460 


B 

•SV8TIP 



031C 

0442' 





0831 


031F' 

GOFU0 

EQU 

$ 


0832 



a 



return 

0833 

03 IF 

0452 


0 

*P2 





BURN ^ 94539l*9(?Bl ** PASS <SB20 


08S6 




TITLES 

BwoRD 

0BS7 



# 



BURN WORD 

08 SB 




REVISIONS 

03/15776 

0iS9 



♦ 



ORIGINAL 

aasM 



♦ 

COMPUTERS 

990, ASSEMBLY 

0BQ1 



* 

ABSTRACT* 


08i2 



# 



LOAD address, pulse WIDTH, And SUBSTRING OF 

0863 



# 



programmable string width in CRU REGISTERS, 

0964 



♦ 



ON RETURN from PROGRAMMING CYCLE# LOOP FOR 

0865 



« 



RETRY IF necessary AND RE0UEST60 

0866 



♦ 

CALLING SEQUENCE 1 

0867 



t 



ENTRY S 

0868 



# 



R9 CONTAINS SUBSTRING OF ROM WORD WIDTH 

0869 



# 



R7 CONTAINS ROM WORD ADDRESS 

0870 



★ 



R7-R10 , R13«*R15 ARE NQN»V0LATILE TO THIS RTNE 

087! 



« 



EXIT* 

0072 



♦ 



R3 CONTAINS LOOP counter FOR BWORD ROUTINE AND 

0873 



♦ 



IS NON*VOLATILE TO ALL SUBROUTINES CALLED BY 

0874 



# 



BWORD 

0875 


032W» 

890R0 

6QU 

$ 

0876 



# 



MASK NUMBER OF BITS TO BE BURNED AT 

0877 



♦ 



ONCE, THEN LOAD values IN CRU REGISTERS 

0878 



# 



CALL SUBROUTINE TO SET GO BIT AND TEST 

0879 



# 



FOR ERRORS 

0880 



♦ 



niWWIO/PSTW 

0881 

0328 

Cl 23 



MOV 

FWWI0,R4 


0322 

0032* 





0882 

0324 

C023 



NOV 

PPSTw,R0 


0326 

003C* 





0883 






COMPUTE HOW MANY TIMES 

0H84 



♦ 



THROUGH programming LOOP TO 

0H89 



♦ 



PROGRAM STRING OF ROM WORD 

0886 



« 



WIDTH IF programming 8UB» 

0887 



♦ 



string of programmable STRING 

0888 



♦ 



WIDTH 

0689 

3328 

3CC0 



DIV 

R0,R3 

08»0 



Kir 



IF(n*PSTW,NE,WWID)imitl 

0691 

032A 

C104 



MOV 

R4,R4 

0892 

032C 

1301 



JEO 

8WFLD1 

0893 

3326: 

0583 



INC 

R3 

0694 


0330* 

BRFUDl 

6. Oil 

S 

0895 



* 



MASKp»1 

0896 

0330 

0705 



SETO 

R5 

0897 



if 



HASK IS RIGHT 4U8TIFIE0 

0898 



if 



STRING OF ZEROES OF PROGRAM- 

0899 



# 



MABLE string width 

0900 

0332 

0A05 



SLA 

R5,0 

0901 



it 



DO 250 III, II 

0902 


0334* 

BWFL03 

60U 

$ 

0903 



# 



IFtPOOZ,EO,l5STR»AND(STR#XOR(HASK,i.m 

0904 



it 



GET NEW WORKSPACE 

0905 

0334 

0420 



SLWP 

FACL 


0336 

0000 





0906 

0338 

C0AO 



MOV 

FR2«2(R13) »R2 



BUHN WORD 
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** 



033A 

0004 






033C 

C120 


MOV 

•PG8IAS,R4 



033E 

0060’ 





B90R 



* 



R9 FROM PREVIOUS WORKSPACE 

iStdd 



* 



contains string of ROM WORD 

09H 






nioth 

09U 



* 



CHECK IF programming ONES OR 

0912 






ZEROES, MASK ALU BITS BUT 

0913 






STRING OF programmable STRING 

0914 



t 



WIDTH 

0915 

0340 

C041 


MOV 

Ri,Rl 


0918 

0342 

1302 


JEO 

BWFLD5 


0917 

0344 

4245 


8ZC 

R5,R9 


0918 

0346 

1001 


JMP 

8WFL06 


0919 





IFtPOOZ 

,EQ,0)STRBORtSTR,MASK) 

092M 


0348’ 

8WFL0S 

EOU 

s 


0921 

0348 

E245 


SOC 

R5,R9 


0922 





<CRUR60>«ADDR/256 

0923 


034A ’ 

BWFLD6 

EQIJ 

S 


0924 



♦ 



SET CPU BASE ADDRESS 

0925 

034A 

C320 


MOV 

#RCRUIA,R12 



034f. 

004E* 





0928 

034E 

C047 


MOV 

R7,Rl 


0927 



♦ 



GET MSB OF ROM WORD ADDRESS 

0928 

033t^ 

0981 


8RL 

Rl,8 


0929 



♦ 



LOAD IN ROM register 0 

0930 

0352 

06A4 


BL 

#L0A0CR(R4) 



0334 

0226 





0931 

0356 

0000 


DATA 

AODR0 


0932 



♦ 


«CRURG1>«MOO(AODR/2S6) 

0933 



* 



GET L88 OF ROM WORD ADDRESS 

0934 

0358 

C047 


MOV 

R7,Rl 


0935 



t 



load in ROM REGISTER 1 

0936 

033A 

06A4 


BU 

•L0ADCRCR4) 



035C 

0226 





0937 

035E 

0100 


data 

ADORl 


0938 



♦ 


<CRURG3>«M0n(STP,256) 

0939 



t 



GET masked data 
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W4EC 

130E 


JEM 

SVl 9 

1288 

M4£F 

06AC 


BL 

#BLNK(H12) 


04F0 

035A 




1289 



♦ 


(BUEFER)»TYP£ 

1290 



♦ 


8UFEER«BUFFER*1 

1291 

0462 

04F4^ 

0200 

0040 


LI 

R0,H 

1292 

M4F6 

Cl) 80 


MOV 

R0,*«6+ 

1293 



♦ 


wktbu-mtemp 

1294 

04F8 

020F 


LI 

R14,MTEMP 


04F A 

000A ' 




1295 



♦ ■ 


COUNT«10 

1296 

U4Fr 

0200 


LI 

R9,MS7 


Id 4 F F 

000A 





SmVE STAKiQliRr) iMf.QE 948391-9901 ** PAGE 0030 


1297 



# 


CALL CVTPPT 

xzm 

050P' 

06AC 


8L 

6CVT4PT(R121 


’■1502 

03 IE 




1299 

;'i60 4 

063E' 


DATA 

CVTBHX 

13 WW 

i;i506 

0664 » 


DATA 

WPT«D 

1301 

0508 

1026 


JMP 

EHPEP 

1302 



#50 


IF (COUNT (2), 10,0) GO TO 60 

1303 


1150A • 

SVJ9 

EQIJ 

S 

1304 



★ 


IF USER ROM 10 3TSING NOT 

V30S 





MATCHED 8V END OF FlLfi ADD 

1306 



♦ 


ID STRING AND PRESENT ROM 

1307 



# 


CONTROL INFORMATION TO FILE 

130« 

m50A 

C204 


8DV 

R4,R8 CHECK char COUNT FOR ZERO 

130« 





INDICATING matched ID STRING 

131M 

ii5»r 

1314 


JER 

8V25 

1311 

;.150P 

0206 


LI 

H6.L0PUF 


3510 

W4E2* 




1312 

1512 

CC46 


MOV 

P6,R1 

1313 

’1514 

0221 


AI 

Rl»80 


.5516 

0050 




1314 





CALL BLNK 

I3l5 

M518 

06 AC 


81. 

PRL^KCR12) 


(551 A 

035A 




1316 

05 1C 

CICS 


MOV 

R5,«7 GET AOOR Of ROM ID STRING 

1317 



# 


(8UFFER5iTVPE 

131« 



# 


0UEFER«BUFFER41 

1319 

0518 

0200 


LI 

R0»R 


3520 

0052 




1380 

0522 

CD80 


MOV 

R0, *R64 

1321 



# 


WOTBLpRTEMP 

1382 

3524 

020E 


U 

R14,RTEMp 


0526 

001E’ 



i 

1383 



★ 


C0UNT«16 

1324 

3520 

@209 


LI 

RPrRSZ 


352A 

0010 




1326 



♦ 


CALL CVTNRT 

1326 

■,162C 

06aC 


8L 

#CVT8RT(R12) 


0528 

031C 




1327 

3530 

063E' 


DATA 

CVTBHX 

1328 

3532 

0664’ 


DATA 

NRTMO 

1389 

0834 

1012 


JMP 

EKREP 

1330 


0536 • 

SV25 

IQU 

S 

1331 



#60 


CALL WRITE (WEOE) 

1332 

4536 

0201 


LI 

H1,wE0F*256 


.■1536 

0000 




1333 

4 538 

06A0 


BL 

♦WRTRD 


463C 

0664' 




1334 

.J53E 

1600 


4NE 

ERRKR 

1335 



# 


RETURN 

1336 

4548 

C2A0 


MOV 

•BUFRTI,R10 


3642 

0081 ' 




1337 

4544 

042'0 


BLWP 

FRETBIIF 


4546 

mm 




1338 

0548 

C2AE 


MOV 

FBUFRT2,R10 


054 A 

00BC 






SAVe STANDARD IMAGE 


945391 ** 
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133« 

464r 

^54F 

i542W 

M545» 


BUWP 

♦RETBUF 

134M 

4341 

4S5!^ 

DAbr 

* 

H 

*R2 

4 34P 
4343 


3552' 

ERTYPl 

* 

FQM 

$ 

4344 

'ISSP 

5554 

v5 4tD 

51b5' 


B 

pnmatch 

4345 


3556' 

ertyps 

EOli 

* 

434^^ 


4 f > >./> 
MIBC ' 


R 

(SPADADD 

1347 


355A' 

ERRER 

FQl» 

% 

l34H 

il55A 

'.155C 

D46'.’) 

£4196' 


B 

PERW 


R1«IbE0FM8G 
CALI. ERREP 


prtDM STaImO««D CSI 




PASP Pi«3g 


.l3a>l 



* TITIEJ 

PSCSI 





♦ 

PROM STANnAP!) COMMAND STRINS PROCESSOR 

4333 



♦ REVTSIOM 

03/15/76 

13»4 



♦ 

oricilal 

i363 



* COMPUTER! 

990, assembly 

3,356. 



* A0STRACTI 



4337 



★ 

FIND images on cassette with text CHARACTER 

:i33H 



Hr 

strings 

THAT match command PARAMETERS AND 

4 V39 



if 

TRANSFER 

images to norwtng table 

4363 



* CALLINS SEQUENCE! 


4 361 



★ 

ENTRY! 


Uo? 



# 

R10 CnNTATNS ADDRESS OF COMMAND PROCESSOR LIST 

4363 



♦ 

EXIT! 


4364 



♦ 

none 


1365 


355r » 

PSCSJ EGU 

s 


1366 



♦ 


save return address 

1367 

.■5556 

C08B 

6QV 

HllrRa 


136H 



t 


PRESeT«LShET(CPU(l),9!) 

136Q 

3560 

C27A 

HOV 

*R13+,R9 


U7vi 

1562 

3A99 

SLA 

R9, 9 


1371 



♦ 


IF(PARM(n,EQ,» »)CALL ERR 

137a 

3564 

1802 

30C 

PSCSIl 


1373 

|56t 

0463 

B 

PREOMIS 



3566 

818>^ » 




1374 


056A » 

PSCSIl EQU 

$ 


1375 



# 


COgNT(n*CPLCa)7286 

1376 

■I56A 

Dg3A 

M0V8 

*R10+,R8 


1377 

'■J56r 

0986 

SRL 

RB,8 


137B 



♦ 


SAVE PARMII) and count rn 

1376 



♦ 


RB CONTAINS number OF CHARS 

I36f.i 



♦ 


IN FIRST CHAR STRING 

1381 

356»- 

C 1 C A 

HOV 

R10,R7 

AOOP OF FIRST CHAR STRING 

l3H? 

3570 

Cl 43 

HQV 

R8,R6 

SAVE CHAR COUNT 

1383 



# 


GET AOOR OF SECOND COMMAND 

1384 



♦ 


PARAMETER 

138 5 

3372 

A14A 

A 

R10,R5 


1386 

3574 

4585 

INC 

R6 


13|I7 

3576 

3915 

S«L 

K5, 1 


138H 

3576 

0A15 

SLA 

R5, 1 


1386 



* 


PRES8T«LSMFT(PRESBT,1) 

1396 



* 


IF(PARM(gl,FO, » iU,n TO 10 

1391 

357A 

0A19 

SLA 

R9, 1 


139a 

357C 

1703 

JNC 

PSi 


1393 



* 


CnUNT(2)»CPL7296 

1394 

v9S7f. 

0135 

MOVB 

*R5*»R4 


1395 

358C^ 

3964 

SPi 

R4,8 


1396 



* 


GO TO 15 

1397 

3S8? 

1301 

JMP 

PS2 


1398 



*10 


COUNT (2) ■0 

1399 


0684 f 

PSl EQU 

S 


1480 



* 


IF SECOND PARAMETER MISSING# 

1481 



* 


CLEAR CHAR COUNT 

1482 

3584 

04C4 

CLP 

RA 


1483 



*18 


SAVE PARMfgl AND C0UNT(2) 



P^QM STANOftRD CSI 


P453'«1-9P01 ♦* 


PARE P033 


U^4 


0686* 

PS2 

6.QU 

s 


Mi45 



it 



R4 CONTAINS CHAR COUNT OF 

Uiae 



# 



second character string 

1407 



# 



R5 contains ADOR of SECOND 

I4t)« 



it 



character string 

U09 



♦ 



OPEN LUNO 7 FOR READING 

HIM 



it 



CALL OPEN 

1411 

0586 

0201 


u 

H) ,0PBN*256 


0688 






1412 

468 A 

asAJ* 


BL 

PWPTl 



458C 

0672* 





1413 

a88E 

16E5 


JNF 

ERRER 


1414 



♦ 



SET UP PROGRAM BIAS TO LOCATE 

141S 



♦ 



SUBROUTINES IN EXTENSION 

1416 



it 



PROGRAM 

1417 

0690 

C320 


MOV 

fPGBIAS, 

R12 


0692 

0050* 





UIB 



♦ ?« 



CnUNiNUE 

i4lQ 


0594* 

P$3 

EQli 

$ 


1420 



it 



READ A RECORD 

1421 

0594 

0201 


LI 

R1,REA0A*256 


0596 

0900 





1422 

0598 

46A0 


BL 

pviRTl 



059A 

0672* 





1423 

069C 

1623 


JnE 

PS8 


1424 



t 



IF(C0UNT(1) ,EO,0)GO TO 30 

142S 

059E 

C008 


MOV 

K«,R0 

GET CHAR COUNT 

1426 

05A0 

1307 


Jto 

PS4 


1427 

35A2 

C047 


MOV 

R7,R1 

GET ADOR OF FIRST CHAR STRING 

1426 



it 



COMPARE FIRST CHAR STRING TO 

1420 



it 



RECORD 10 STRING 

1430 



it 



CALL CHECK 

1431 

05A4 

06AC 

4 H ^ 


BL 

♦ CHECK (R12) 

1432 

P A n 

46A8 

w a ' ^ 

0510* 


DATA 

LOBUF 


1433 



it 



CHECK NOT FOUND 

1434 



it 



GO TO 30 

1435 

05AA 

1002 


JMP 

PS4 


1436 



it 



CHECK FOUND 

1437 



* 



COUNT (11 *0 

1438 

06 AC 

04CS 


CLP 

R8 

indicate match found 1Y 

1430 



it 



clearing char count 

1440 



it 



GO TO 40 

1441 


100®^ 


JHP 

P85 


1442 


0560 * 

PS4 

EQli 

.1 


1443 






IF(C0UNT(2) ,EO.0)GO TO 20 

1444 

0560 

C004 


MOV 

H4,H0 

GET CHAR COUNT 

1445 

050? 

1603 


JNF 

PS4A 


1446 

0564 

C008 


MOV 

R8,R0 

IF BOTH ID strings MATCHED 

1447 

056^ 

1323 


JEW 

PS9 

JUMP TO TERMINATE 

1448 

0668 

10ED 


JMP 

PS3 

RETURN TO read OTHERWISE 

1440 


0564* 

PS4A 

EQU 

.1 


1450 

056 A 

C045 


MOV 

H5.R1 

GET AODR OF SECOND CHAR STR 

1451 



w 



IF FIRST CHAR STRING DOES NOT 

1452 



♦ 



MATCH RECORD ID, COMPARE 



pHiOH STAK'O/iRD CSI S4!S30 1 *990 1 ** PA6€ 0034 


1433 



★ 



SECOND char string TO RECORD 


M34 



♦ 



ID string 


i ■'»3*S 



♦ 



CALL CHECK 


1454 

0sac 

46AC 


8L 

«sCH6CK(Pl?) 



ii68E. 

030/. 






1437 

35C0 

05A3‘ 


DATA 

Lt*0'JF 



1438 



* 



CHECK NOT FOUND 


1459 






GO TO ?0 


1 4 o t:i 

06C? 



JMP 

PS3 



1451 



if 



CHECK FOUND 


145^ 



if 



COUnT(2)»0 


14 63 

36C4 

04C4 


CLP 

K 4 

INOICATF match found 0Y 


14 64 



★ 



clearing CHAR COUNT 


1465 


0:iC6 * 

NS5 

F Q U 

S 



1 4 65 



♦ 40 



IFCTVPE.EO. »M')GO TO 50 


1 4 07 



if 



CHECK TAG ON RECORD ID TC 


14 68 



♦ 



determine if present RECORD 


1 400 



♦ 



CONTAINS memory or ROM 


1471 



if 



CONTROL INFORMATION AND MOVE 


l«71 



# 



information to working TA8LE 


147:3 



♦ 



AFTER CONVERTING TO BINARY 


1473 

05C6 

0?«F 


Cl 

R J, S , ' H 1 




06C8 

0040 






147 4 

05CA 

1305 


JEO 

PS6 



1476 



♦ 



wktbl»rtemp 


14 76 

0SCC 

0;?0K 


1 1 

NJ4»RTEMP 



05GE 

0-ME' 






1477 



♦ 



COUNTiie 

,/f" 

1476 

0600 

0?09 


LI 

R9,RS7 




050? 

0i5lO 






1479 



♦ 



GO TO 55 


1 40n 

0504 

1H04 


JMP 

P.57 



1481 



^50 



wktblbmtimp 


148? 


05D6' 

PS6 

FOU 

3 



1483 

0506 

0?0E 


U 

R14,MTEMP 



0 606 

• 






1484 



it 



CnUNT«l0 


I486 

050 A 

0?0O 


LI 

«9,0S7 




05 DC 

00 0 A 






1486 


05OE’ 

PS7 

E»U 

S 



1487 



^SS 



DO 60 I»1,C0UNT 


1488 



* 



CALL rVTHXe 


1489 

05DE 

06AC 


PL 

4CVTHV8(R12) 



0SE0 

034? 






1490 

05t? 

0054 > 


DATA 

CONPRR 



1491 

03fe4 

005/. ’ 


DATA 

HX8 



149? 

06t6 

0000 


DATA 

SVCALT 



14 93 



if 



(HKT0L3-R0 


1494 

05E6 

CFi0 


HOV 

R0,*R14+ 


1496 



★6«e 



continue 


14 96 

05EA 

0609 


DEC 

R9 



1497 

05EC 

16Fi 


JNE 

PS7 



1498 



★ 



RETURN TO PROCESS NEXT RECORD 


1499 



♦ 



GO TO 20 

g^'"\ 

1580 

05£F 

1002 


.IMP 

PS3 





FKOM SIANUARD CSI 
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15«1 


k>5f\A • 

PS8 

FQI! 

s 


lavdg 



it 



IF FRROF OTHER THAN ENDwCfin 

lSid3 



# 



FTLF, ABORT 

l5(d4 






IF(ANn(R0,eOFM8K) .eo.OOCALL ERTYPE 

15.45 


0?40 


AUDI 

KM,EOFPSK 


05F2 

2 !? 





1505 

05F4 

13H2 


JED 

ERHFR 


15^7 



* 



IF first char string not 

15it>8 



* 



BATCHED TO ID STRING OF ANY 




it 



RECORO, abort 

1510 



it 



iFCCOUNTtn .NE.»)CALU ERTYP2 

15 1 t 

(flSFfi 

C208 


mqv 

R8,R8 

CHECK char COUNT«0 

15)2 

05F8 

16AE 


JNF 

FRTVP2 


i5l3 



H 



IF SECOND CHAR STRING NOT 

1514 



♦ 



HATCHED TO ID STRING OF ANY 

i5l5 






PFCORO, ABORT 

1516 



it 



IF(C0UNT(2) .nF.BICALL ERTYP2 

1617 

05F A 

Cl 04 


MOV 

R4,R4 

CHECK CHAR OOUNTiR 

1618 

05FC 

16AC 


JNF 

EPTYP2 


1519 



it 



IF MEMORY string WIDTH IN 

152H 



♦ 



working table does not match 

1521 



* 



ROM STRING width in WORKING 

1522 



it 



TABLE, ABORT 

1523 



if 



IF(SWT.NE,SWTR3CALL frr 

1524 


05FF' 

PS9 

tuu 

$ 


1525 

06FF 

882?) 


C 

#SWT, tSWTP 


0601-1 

0 0 A ’ 






0602 

001 K' 





1526 

0604 

16AS 


JNF 

ERTVPl 


1527 



it 



return 

1528 

0606 

0452 


B 

*R2 



pi<CHLF. BL NK ,PRNrr,GET8UF 


94S39l*.9Qen ** 
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A63i 



♦ 

TITLE! 

PF6PCG 

153^ 



# 


PPCKLF,RLN5,PPNTC,GFTRUF 

1533 



# 

RFVTSTOMl 

03/15/76 

1534 





original 

1535 



# 

CnMPUTERl 

990, ASSEMBLY 

1535 




APSfPACTl 


1537 



♦ 


PRINT QUESTION AND RECEIVE ANSWER FROM 

153H 



* 


kevhoaro input 

iS39 



# 

calling SEQIIE'NCFI 

1540 



★ 


entry 1 

1541 





R10 CONTAINS QUESTION TO BE PRINTED 

1545? 



# 


EXIT; 

1543 



♦ 


H10 CONTAINS ADORESS OF RETURNED BLOCK FROM 

1544 





gftfld 

1545 



# 


*K10 contain number OF CHARACTERS 

1540 



♦ 


♦910(1) CONTAIN TERMINATING CHARACTER 

1647 



* 


*R10(2)-*R10(N) contain bytes OF CHARACTERS 

l54ft 


0606 ’ 

PFBPCG f«U 

$ 

1549 



♦ 


SAVE RETURN ADORESS 

1850 

08Wg 

C10t 


60V 

HUfR4 

1531 



♦ 


SAVE AODR OF QUESTION 

IS3» 

060A 

C174 


60V 

•R4*,R5 

1553 

0601: 

06A0 


SL 

fPRCRLF 


060E 

03U6' 




1S54 

0610 

10 0F 


JMP 

pfexit error return 

18S5 



# 


GET BUFFER 

1595 

0610 

0206 


LI 

H6,LDBUF 


0614 

: 05C0» 




1557 

0616 

C04S 


60V 

R6,Rl 

15SS 



t 


GET END OF BUFFER 

1859 

0616 

0221 


AI 

Rl»60 


061A 

0050 




1550 



♦ 


BLANK FILL BUFFER 

1551, 



♦ 


CALL BINS 

1562 

06 IC 

06AC 


8L 

BBLNK (R12I 


0 P 1 F 

039A 




1653 



* 


GET ADORESS OF QUESTION 

1354 

0620 

C265 


hOV 

R5,R10 

1558 





PRINT QUESTION 

tS55 



♦ 


CALL PRNTC 

1567 

0622 

06 4 0 


6L 

PPRNTC 


0624 

0434 » 




1566 

0626 

1004 


JHP 

PFEXn ERROR RETURN 

1559 



♦ 


GET RESPONSE FROM KEYBOARD 

157M 



♦ 


CALI GETFLD 

1571 

0526 

06Af1 


8L 

bgetfld 


052A 

000?3 




1572 

052C 

1002 


J6P 

PFERR 

1573 


.052E > 

PFBEX EQll 

» 

1574 

0621 

05t;4 


INCT 

R4 

1576 


0630 » 

PFtXiT iUu 

li 

1576 

0630 

0484 


B 

*R4 

1577 





IF TERMINATING CHAR IS ESCAPE 

1576 



♦ 


CHAR TAKE ERROR EXIT 



pRC«LFt0LNK,PRNTC,6ETBUF 


94S391-9R01 ** 


PAGI P037 


1579 


0632' 

1580 

0632 

C05A 

1581 

0634 

0A81 

1589 

0636 

9801 


0638 

0000 

1583 

063A 

13FA 

1584 

063C 

10F8 


PFERR EQU S 

MOV *R1^,RI 
SLA HI, 8 
CB Rl,iE8C 

JEO PFEKIT 
JMP PFBEX 


PAGE i038 


CONVERT binary to hex ASCII R45391-990I ** 


1587 



* 

TITLEI 

CVTBHX 

1S08 






CONVERT binary TO HEX ASCII 

1889 



♦ 

REVISlONi 

03/15/76 

1590 






ORISINAL 

1591 




COMPUTERI 

990|ASSEHBUY 

1592 




ABSTRACT! 

* 

1593 



* 



CONVERT BINARY VALUE IN R0 TO FOUR HEX 

1594 






characters and move them INTO BUFFER 

159S 




CAUING SEQUENCE! 

1595 






ENTRY! 

1597 






R6 CONTAINS CURRENT BUFFER ADDRESS 

1598 



Up 



R0 CONTAINS BINARY (40RD TO BE CONVERTED 

1599 



* 



R4,R5,R7,R8 NON-VOLATILE TO THIS ROUTINE 

16(40 



♦ 



EXIT! 

l9i41 



t 



R6 CONTAINS Incremented buffer address 

I6le>2 


063E» 

CVTBHX 

EQU 


16(43 

!l63f 

0420 



BLHP 

EACL 


1640 

03C£» 





16(44 



★ 



«CPR80P>*C 

16(45 






get prb for conversion 

1606 

0642 

020A 



U 

R10fCONPRB 


0644 

0054* 





1607 

0646 

C38A 



HOV 

R10.R14 

1608 



« 



OPCODE FOR BINARY TO HEX 

1609 



♦ 



ASCII conversion 

1610 

0648 

CFA0 



MOV 

PBHX,*R14* 


064 A 

005C» 





1611 



t 



DO CONVERSION 

1612 






CONPRBiHEXASCtRP) 

1613 

064C 

0420 



BLWP 

fSVCALT 


0641 

05|6» 





1614 



# 



00 300 1«1#4 

1615 

0650 

0203 



LI 

R3,4 


0652 

0004 





1616 






BUPFERfDiCONPRBCn 

1617 


0684» 

CBHl 

EQU 

S 

1618 



♦ 



MOVE characters INTO BUFFER 

1619 

0654 

DOBE 



MOVB 

*R14*,*9e* 

1620 



*300 


CONTINUE 

1621 

0656 

0603 



DEC 

R3 

1622 

0658 

16F0 



JNE 

CBHl 

1623 



★ 



SAVE BUFFER AOOR IN PREV WKSP 

1624 

06SA 

CB46 



HOV 

R6,AR6*2(13) 


36 SC 

000C 





1625 

065E 

3423 



0OWP 

• RR 


3660 

043E< 





1626 






return 

1627 

0662 

0456 



B 

*R11 



i^RITe/«e#0 


9453<Jl»9«»01 ** 


PAGE 0039 


1630 




TITLEI 

WRT«D 



1631 



* 



WRITE/READ 



1632 




REVISION! 

03/15/76 



1633 






original 



1634 



** 

COMPUTER! 

990> ASSEMBLY 



1639 



* 

ABSTRACT! 




1636 



♦ 



SELECT LUNO ACCORDING TO OPCODE, THEN 

PERFORM 

1637 



n 



I/O OPERATION 



1638 



* 

CAUING SEQUENCE! 



1639 



n 



ENTRY! 



1640 



♦ 



R1 CONTAINS OPCODE 



1641 






R4-R0 NON-VOLATILE 

TO THIS ROUTINE 


1642 



* 



EXITI 



1643 



it 



R0 CONTAINS SYSTEM 

FLAG 


1644 






R10 CONTAINS ERROR 

MESSAGE 


1649 


0664» 

WPTRO 

EQU 

S 



1646 






IE read REQUESTED SET LUNO TO 

7 

1647 



♦ 



OTHERWISE 

SET LUNO TO e 


1648 

0664 

C820 



MOV 

•EIGHT, fPRBLU 




0666 

0084» 








0660 

0061 1 







1649 



♦ 




SET character COUNT 


1690 

066A 

C820 



MOV 

•charct,rprpcc 




066C 

006E’ 








066E 

0066’ 







1691 

0670 

1003 



JMP 

WRT2 



1692 


0672’ 

WRTl 

ECU 

$ 

ENTRY POINT 


1693 

0672 

C820 



MOV 

•SEVEN, PPRBLU 




0674 

0086» 








0676 

0061 ' 







1694 



n 



WRITE OR READ 


1699 


0678* 

WRT2 

EQU 

S 



1696 



4r 




SAVE RETURN ADDRESS 


1697 

0678 

CS8B 



MOV 

R11,R14 



1698 



# 




LOAD OPCODE 


1699 

067A 

0801 



M0V8 

R1,RPRB0P 




067C 

0060* 







1660 







GET SVC PR0 


1661 

067E 

020A 



U 

R10,PRB 




0680 

009E’ 







1662 



* 




00 I/O 


1663 

0682 

0420 



8LWP 

•8VCAUT 




0684 

064E* 







1664 

0686 

020A 



LI 

R10,MX01 

GET 1/0 ABRT MSGeJUST IN CASE 


0688 

0001 







1669 







SYSTEM flags 


1666 

068A 

C020 



MOV 

•PR8SF,R0 




068C 

0062’ 







1667 

068E 

049C 



8 

*R14 



1668 

0000 




DORG 

0 




PKOH pt^DRRAMMER EXTENSION 
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1671 

i67P 

1673 0000 

1674 

1675 

1676 
16/7 
1678 
1676 
1660 

1661 0020 
1662 0022 

1663 

1664 0024 

1665 0026 

1666 

1667 0026 

1668 002A 

1669 

1690 002C 

1691 002E 

1692 

1693 0030 

1694 0032 

1695 

1696 0034 

1697 0036 


* 

* 

MK8PSP 

* 

* 

* 

♦ 

* 

* 

0023 CTR 
0003 
0104 

0024 98AR 

0303 

0124 

0023 MCET 

0003 

017C 

002C 8RM 
0000 
01 DA 

0030 RGET 

0003 

0295 

0034 RTM 
0000 
01A3 


8SS 32 


EQU S 
DATA WKSP8P 
data CTRT 
EOU S 
DATA WKSPBP 
DATA 68ART 

eou $ 

DATA WKSPBF 

data mgetfo 

EQU A 

DATA 9KSP8F 
DATA BROM 
lUU S 
data WKSPBF 
DATA RGETFD 
EUU S 
DATA WKSPBF 
data RTOM 


N€W WORKSPACE iUPPER FOR ALL 
SUBROUTINES FOLLOWING DORQ 

BLWP COHMANO TABLE 
DATA NEW WORKSPACE BUFFER 
DATA address of ROUTINE TO BE 
EXECUTED 

GET NEW WORKSPACE AND POINT 
PC TO ROUTINE 






SU8«QUTIME BOUNDS 
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♦ 

TITLEI 

BOUNDS 

I7ii 



# 


IMAGE BOUNDARIES 

I7id2 




ReVISIONi 

03/15/76 

1703 





ORIGINAL 

1704 




COMPUTER! 

990fASSEMBlY 

1709 



* 

ABSTRACT! 


1706 



t 


USE parameters to obtain beginning and ending 

1707 





image addresses, store addresses in working 

1708 



♦ 


TABLE, CHECK FOR INVALID ENDING ADDRESS, 

1709 



n 

CAUUING SEUUENCEI 

1710 



* 


ENTRY! 

1711 



* 


HS CONTAINS address OF BOUNDS PARAMETERS 

1712 





R9 CONTAINS beginning ADDRESS 

1713 



♦ 


R« CONTAINS ending ADDRESS 

1714 



it 


EXIT! 

1719 



* 


UPON completion return control to monitor 

1716 



♦ 


THROUGH R2 

1717 



♦ 


MEMORY BOUNDS SUBCOMMAND 

1718 



♦ 


ROM BOUNDS SUBCOMMAND 

1719 


0036 

BOUNDS EUU 

S 

1720 



* 

25 

IF(EA,LT,8A)CALL err 

1721 

0038 

8246 


C 

R8,R9 

1722 

003A 

IA61 


JL 

BADAQ 

1723 



♦ 


beginning address 

1724 

003C 

CCC9 


MOV 

R9,*R3+ 

1726 



t 


ENDING ADDRESS 

1726 

003P 

C4C6 


MOV 

R8,*R3 

1727 



* 


return 

1728 

0040 

0462 


8 

*R2 



SUbhuutine image 
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1731 



# 

THLEl 

IMAGE 

1732 





NON-STANDARD IMAGE 

1733 



♦ 

REVISIONi 

03/15/76 

1734 



* 


original 

1735 



♦ 

C08PUTERI 

990, assembly 

1735 



* 

ABSTRACT! 


1737 





USE PARAMETERS TO OBTAIN LEVEL NUMBER AND 

1735 



t 


NON-STANOARO IMAGE MAPPING VALUES. STORE 

1739 



♦ 


VALUES IN WORKING TABU, CHECK FOR INVALID 

174« 



# 


LEVEL NUMBER 

1741 




CAI.UNG SEQUENCE! 

1742 





ENTRY! 

1743 



«r 


R3 CONTAINS ADDRESS OF IMAGE PARAMETERS 

1744 





R9 CONTAINS LEVEL 

1745 



* 


R8 CONTAINS increment 

1746 



t 


R7 CONTAINS MAXIMUM LOOP COUNT 

1747 



♦ 


R6 CONTAINS DISPLACEMENT 

1748 



* 


EXIT! 

1749 



t 


UPON completion RETURN CONTROL TO MONITOR 

1750 



♦ 


through R2 

1751 



* 


MEMORY image subcommand 

1752 



♦ 


ROM IMAGE subcommand 

1753 


0042 

IMAGE EQIJ 

« 

1754 

0042 

0201 


LI 

Hl,IMGDIF-2 


0044 

0004 




1755 



Hf 


IF (LEVEL, LT, 1, OR, LEVEL, GT, 3) CALL ERROR 

1756 

0046 

0289 


Cl 

R9,3 


0048 

0003 




1737 

004A 

1856 


JH 

OUT0O 

1758 



♦ 


LEVFL4(LEVEL*!)*2 

1759 

004C 

0609 


DEC 

R9 

1760 

004f 

1154 


JLT 

OUTGO 

1761 

0050 

0A19 


SLA 

R9,l 

1762 



* 


RETURN 

1763 

0'«52 

A943 


A 

83, W9 

1764 



* 


increment for level 

1765 

0054 

CE45 


MOV 

R8,*R94 

1766 

0056 

A241 


A 

Rl,R9 

1767 



Hr 


displacement for level 

1768 

0058 

CE46 


MOV 

86,*R94 

1769 

005A 

A241 


A 

R1,R9 

1770 



Hr 


MAXIMUM LOOP count FOR LEVEL 

1771 

005C 

CE47 


MOV 

R7,*R9+ 

1772 

005E 

0452 


B 

*R2 



3TRIN® WIDTH 945391.8901 ** PAGE 0043 


1775 



♦ 

TlTtEl 

SW 


1776 



it 


STRING WIDTH SUBCOMMAND 


1777 



it 

REVISION! 

03/15/76 


1778 



it 


original 


1779 



♦ 

COMPUTER! 

990f ASSEMBLY 


1780 



it 

ABSTRACT! 



1781 



it 


CHECK FOR invalid STRING WIDTH, STORE 

STRING 

1769 



it 


WIDTH IN working table. 


1783 



* 

CAU.INS SEQUENCE! 


1784 



it 


ENTRY! 


1785 



♦ 


R3 CONTAINS ADDRESS OF SW PARAMETERS 


1786 



it 


R9 CONTAINS STRING WIDTH 


1787 



« 


EXIT! 


1788 



# 


UPON COMPLETION RETURN CONTROL TO MONITOR 

1789 



it 


THROUGH R2 


179H 


0060 


EQU 

S 


1791 



it 


IF (WIDTH, LT.I. OR. WIDTH, GT,»8) 

CALL ERR 

1799 

0060 

C249 


MOV 

R9,R9 


1793 

0062 

134A 


4EO 

0UT8D 


1794 

0064 

0289 


Cl 

R9»MAXWD 



0066 

0008 





1795 

0068 

1847 


JH 

0UT80 


1796 



it 


MEMORY STRING WIDTH 


1797 



n 


swt*widtm 


1798 

006A 

Cl 33 


MOV 

*R3+,R4 


1799 

006C 

C509 


MOV 

H9»*R4 


1804 



it 


ROM STRING WIOTH 


1881 



it 


SWTRiWIOTH 


1882 

006E 

C133 


MOV 

*R3T,R4 


1883 

0870 

C509 


MOV 

R9,*R4 


1884 



# 


RETURN 


1885 

0072 

0452 


8 

*R2 



«0M CHARACTERlSTrCS 


94S391-9S0J •* 


RASE 0044 





♦ 

TITLE* 

RC 

18(^9 



♦ 


ROM CHARACTERISTICS subcommand 

18 IM 



♦ 

REVISION! 

03/15/76 

iau 



. ♦ 


ORIGINAL 

i812 




COMPUTERI 

990, ASSEMBLY 

1813 



♦ 

A8STRACT! 


1814 



t 


STORE PARAMETERS IN M0RKIN6 TABLI 

t8lS 



t 


CHECK FOR invalid STRING WIDTH, PUL«I WIDTH, 

1816 



# 


programmable string width, programming type 

1817 



♦ 


AND DUTY CYCLE 

1818 



# 

CALLING SEQUENCE! 

1819 



♦ 


ENTRY! 

1820 



♦ 


R3 CONTAINS ADDRESS OF RC PARAMETERS 

1821 



♦ 


R9 CONTAINS ROM WORD WIDTH 

1822 



ii 


R8 CONTAINS PROGRAM TYPECHS OR 0»S5 

1823 



: ♦ 


R7 CONTAINS PULSE WIDTH 

1824 



* 


R6 CONTAINS NUMBEP OF RETRIES 

1828 



♦ 


R5 CONTAINS DUTY CYCLE 

1826 



♦ 


R4 CONTAINS programmable STRING WIDTH 

1827 





EXIT! 

1828 



★ 


UPON completion return CONTROL TO MONITOR 

1829 



# 


through R2 

1840 


0074 

RC 

EOU 

* 

1831 



* 


IF(wIDTH.UT,1. OR, WIDTH, GT.mS) CALL ERR 

1832 

0074 

C240 


MOV 

R9,R9 

1833 

011 7 6 

1340 


JEO 

0UT80 

1834 

0078 

0289 


Cl 

R9,HAXWD 


0M7A 

0008 




1838 

007C 

183D 


JH 

OUTBO 

1836 





IFCP8TW,6T,WIOTH)CALL ERR 

1837 

007E 

8244 


C 

R4,R9 

1838 

0080 

IB3B 


JH 

UUT0D 

1839 



♦ 


IF(POQI,NE.0.OR,POO2.NE,n CAUL ERR 

1840 

0082 

0288 


Cl 

R8,YES 


8084 

0001 




1841 

8086 

IB38 


JH 

OUT0O 

1842 



♦ 


IFCPWIOI.LT.I.OR.PWIOI.GT.MAXPWI) 

1843 





CALL ERR 

1844 

0088 

C1C7 


NOV 

R7,R7 

1848 

008A 

1336 


JEO 

OUTBO 

1846 

008C 

0287 


Cl 

R7,MAXPW1 


003E 

0006 




1847 

0090 

1833 


JH 

0UT8D 

1848 



♦ 


lFCOUCY,UT.0.OR,OUCY,LT,10f)CALL ERR 

1849 

0092 

0285 


Cl 

R5,maxDC 


00i4 

0064 




1850 

00$6 

1830 


JH 

OUTBO 

1851 



♦ 4 


RETURN 

1852 



t 


STORAGE LOCATIONS FOR ROM CHARACTERISTI 

1853 



# 


parameters are CONTIGUOUS IN memory. 

1854 





ALLOWS LOADING FIRST LOCATION IN R0 AND 

1858 



# 


storing by autoincrimenting 

1856 

\ 


♦ 


ROM WORD WIDTH 

1857 

0098 

CCC9 


MOV 

R9,*R34 




RQM characteristics 


i8sa 

1899 

009A 

cccs 

# 

MOV 

1860 

1S61 

009C 

CCC7 


MOV 

1862 

1863 

009E 

CCCS 

* 

MOV 

1864 

1869 

00A0 

cccs 

* 

MOV 

1866 

1867 

00A2 

CCC4 

♦ 

MOV 

1868 

00A4 

0452 


B 
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PROGRAM ONES OR ZEROS 

R8,*R3 + 

NORMAL PULSE WIDTH 

R7i*R34 

NUMBER OF RETRIES 

R6» *R3+ 

DUTY cycle 

RS,*R34 

programmable string width 

R4.WR34 

*R2 




SIT CRli WQf* address 
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1871 




TITIEI 

C8 

1878 





SET CRU ROM ADDRESS SUBCOMMAND 

1873 



# 

REVISION* 

03/15/78 

1874 



> 


original 

187S 



# 

COMPUTER* 

990. assembly 

1878 



♦ 

ABSTRACT* 


1877 





STORE CRU ROM ADDRESS IN WORKING TABLE 

1878 





CHECK FOR invalid CRU ROM ADDRESS 

1879 



* 

CALLING SeOUENCE* 

1880 





ENTRY* 

188 5 



# 


R3 CONTAINS ADDRESS OF CS RARAMfTfR 

188P 



# 


R9 CONTAINS CRU RDM INTERFACE BASE ADDRESS 

1883 



t 


EXIT* 

1884 



t 


UPON completion return CONTROL TO MONITOR 

1885 



t 


through R2, 

1888 


00A6 

ca 

i E8U 

S 

1887 



* 


IFtRCRUlA.GT.MAKCRUJCALL ERR 

1888 

00A6 

C249 


MOV 

R9.89 

1889 

00A6 

0289 


Cl 

R9.MAXCRU 


00AA 

IFFE 




1890 

00AC 

IB25 


JH 

OUTflO 

1891 



♦ 


CRU interface ROM BASE ADORES 

1892 

00AE 

C4C9 


MOV 

R9,*R3 

1893 





return 

1894 , 

0080 

04S2 


B 

*R2 



TOSCLit’ 


<)453S'l«9?J0l ♦* 


PASS 0047 


ias)T 



# 

TlTLEt 

TS 

1898 



w 


SET toggles subcommand 

»899 



♦ 

RIVISIONI 

03/15/76 

190IA 



♦ 


ORIGINAL 

1941 



* 

computepi 

990» ASSEMBLY 

S90P. 



♦ 

ABSTRACTI 


1943 



♦ 


CHECK FOR invalid TOGGLE VALUES, SET TOGGLES IN 

1944 





working table. 

1945 



# 

CAUINC SEQUENCE* 

1946 



* 


ENTRY* 

1947 



♦ 


K3 CONTAINS ADDRESS OF TS PARAMETERS 

1948 



♦ 


R9 CONTAINS DISPLAY MEMORY TOGGLE 

1949 



* 


R8 CONTAINS DISPLAY RDM TOGGLE 

1910 





R7 CONTAINS DIRECTION TOGGLE 

1911 



* 


R6 CONTAINS COMPARE TOGGLE 

1912 



♦ 


R12 CONTAINS *1, TO BE USED FOR COMPARISON 

1913 





EXIT* 

1914 



« 


UPON completion RETURN CONTROL TO MONITOR 

1915 





THROUGH H2 

1916 


40B2 

Ta 

1 EOU 

S 

1917 



« 


SET LOOP COUNTER, FIRST STORAGE 

1918 



« 


location for TOGGLES, ADDRESS OF WR6 

1919 



♦ 


00 140 Ifl,4 

1980 

40B2 

Cl 03 


NOV 

R3,R4 

1981 



* 


SET COUNTER TO CHECK FOR FOUR 

1982 



* 


TOGGLES 

1983 

40B4 

020P 


U 

R15,4 


4066 

4044 




1984 

30 B 8 

02A1 


STWP 

R1 

1985 



t 


TOGGLES ARE IN R6mR9 

1986 

408A 

4221 


AI 

R1,R6*2 RlvADOR R6 


30BC 

400C 




1987 

40BE 

C141 


MOV 

R1,R5 

1988 


40C0 

T8FID1 CQU 

$ 

1989 

«0C0 

460F 


DEC 

R15 

1930 



♦ 


IF(PARM,EO,’ ')G0 TO 14i 

1931 



# 


R18«<-1| default for MISSING 

1932 



t 


TOGGLE PARAMETER 

1933 

I0C2 

8311 


C 

*RliRJ2 

1934 

I0C4 

130E 


JEQ 

T8F1.02 

1935 



♦ 


IF(PARM,EO.0.OR.PARM.EO,1)GO to 145 

1936 

30C6 

C2D1 


MOV 

♦Rl.RJl 

1937 



* 


ZERO AND ONE VALID VALUES FOR 

1930 





ALL toggles 

1939 

50C8 

4288 


Cl 

RU,YE8 


50CA 

5001 




1940 

50CC 

iP0B 


JLE 

TSFLD3 

1941 





IF not direction toggle and 

1942 





VALUE GREATER THAN 1, ABORT 

1943 



t 


IF(PARM,NE.OIRECT)GO TO 154 

1944 

|0CE 

028F 


Cl 

H15,2 


4000 

4002 




1945 

4002 

1606 


JNE 

T8TERH 



194« * 

c 



IF(PARP,EQ.R0MWEM)G0 to 145 



TOSStES 


94S391.9901 ** 
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1947 

30D4 

028n 


Cl 

Rll»ROMHfM 


0006 

0002 




194H 

0008 

1305 


JEQ 

TSFL03 

1949 



* 


IF OIPECTION TOGGLE VALUE 

19S0 



* 


GREATER THAN 3# ABORT 

1951 



* 


IF (PARM.IO.SAVIMG)GO TO 145 

1939 

00OA 

028B 


Cl 

R 11, SAVING 


00OC 

0003 




1953 

00OE 

1302 


JEQ 

TSFLD3 

1954 



*180 


call err 

1953 


00E0 

tstehr 

FQU 

S 

1956 

00E0 

1008 


J5P 

OUT 90 

1957 


00E2 

TSFLU2 

Eau 

$ 

1958 



« 


retain previous toggle value 

t9S9 

f0E2 

£453 


MOV 

*R3,*Rl 

I960 



♦ 4B 


T0GGLE*PARH 

1961 


0084} 

T8FLD3 

EQU 

$ 

1982 



t 


GET ADOR OF NEXT TOGGLE 

1963 

00E4 

05CI 


INCT 

R1 

1964 





GET ADOR OF NEXT PREVIOUS 

1965 





TOGGLE 

1966 

0PE6 

,0-5t3 


INCT 

R3 

1967 



♦ 140 


CONTINUE 

1988 



♦ 


CHICK IF all toggles 

1989 



♦ 


PROCESSED 

1975 

00E8 

C3CF 


MOV 

R15,R15 

1971 

00EA 

16EA 


JNE 

TSFLDl 

19/2 


00EC 

T8FID4 

eou 

S 

1973 



♦ 


STORAGE LOCATIONS FOR TOGGLES PARAMETER 

19/4 



♦ 


are CONTIGUOUS IN MEMORY 

19/5 



♦ 


ALLOWS LOADING FIRST LOCATION IN R0 AND 

19/6 



♦ 


STORINS BY AUTOINCREMENTING 

19/7 



♦ 


R4 CONTAINS ADDRESS OF FIRST 

1978 



♦ 


STORAGE LOCATION FOR TOGGLES, 

1979 



♦ 


R5 CONTAINS ADDRESS OF FIRST 

I960 



♦ 


TOGGLE. STORE FOUR TOGGLE 

1981 



♦ 


VALUES, 

1982 

00EC 

C03S 


MOV 

*R5*»*R4+ 

1983 

30EE 

058F 


INC 

R15 

1984 

00F0 

028F 


Cl 

R15,4 


00F2 

0004 




1988 

00F4 

16FB 


JNE 

TSFL04 

1986 



t 155 


RETURN 

1987 

00F6 

0452 


B 

*R2 

1988 


00F8 

OUTPO 

EQU 

$ 

1989 

00F8 

020A 


U 

R10,PPO8 


00FA 

3102 




1990 

00FC 

1002 


JMP 

ERRE 

1991 


00FE 

BAQAO 

EQU 

I 

1992 

00FE 

020A 


LI 

R10,PPBA 


0100 

3104 




1993 


0102 

tmt 

EQU 

S 

1994 

0102 

0450 


8 

*R0 


€■ 





SU8H0UTINE CT 
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19)7 

10)8 

19)9 

80110 

80 >n 

2818 


* title* 

* 

* REVISTONI 

* 

* COMPUTER! 

* ABSTRACT! 


CTRT 

COUNT ROUTINE 
03/15/78 

original 

990»A$8EMBLV 


8013 

2014 

2045 

8008 

2047 

2048 


* COMPUTE COUNTERS TO BE USED TO CALCULATE 

* BEGINNING MEMORY ANO ROM BIT ADDRESSES. 

* CALLING SEQUENCEl 

* ENTRY* 

* R14 contains address OF DATA LOCATIONS PASSED 

* BY CALLING program 


2049 



it 


R13-R15 CONTAIN 

CONTROL VALUES FOR PREVIOUS 

2010 



it 


workspace, ANO 

ARE non-volatile 

2011 



it 


R5,R6 CONCATENATED CONTAIN K(ITERAT10N COUNT! 

2012 



it 


EXITI 


2013 



it 


NONE 


2014 


0184 

CTRT 

EQU 

S 


2015 



it 


COMPUTE 

CT(1), CT(25, CT(3) 

2018 

0104 

C27E 


MOV 

*R14+,R9 

GET ADDRESS MT(l) 

2017 

0106 

case 


MOV 

*R144.R0 


2018 

0186 

C16D 


MOV 

#R5*2(R13) ,R5 

GET LOOP COUNTERS FROM OLD WK 


010A 

000A 





2019 

010C 

ClAD 


MOV 

•R6*?rR13) ,R6 



010E 

000C 





2020 

0110 

04C4 


CLR 

R4 


2021 

011? 

8645 


C 

R5,*R9 

IF ei>mti do double 

2029 

0114 

IA01 


4L 

CTRl 

REGISTER DIVIDE 

2023 

0116 

3039 


DIV 

*R9<k,R4 


2024 


0118 

CTRl 

EOU 

S 


2025 

0116 

3079 


DIV 

*R9+,R5 

XnK/MTl 

2028 

0UA 

CE06 


MOV 

R6, *R8+ 

CTl.MODCX) 

2027 

011C 

3039 


OIV 

*R9+#R4 

Y«aNT(X))/MT2 

2026 

011E 

CE85 


MOV 

R5,*R6+ 

CT2»M00(Y) 

2029 

0120 

CE04 


MOV 

R4,*R6<t> 

CT3»INT(Y) 

8f48 

012? 

0380 


RTWP 




SUBROUTINg aSA 


945391-990I ** 


PACE iESe 


2033 



* TITLEI 

BBART 

2034 



« 


BEGINNING BIT A00RE88 ROUTINE 

203S 



* REVISION! 

03/15/76 

2036 





ORIGINAL 

2037 



* COMPUTERI 

990,A88EM8LV 

2038 



* ASSTRACTl 


2039 



t 


COMPUTE BEGINNING BIT, BYTE, WORD AD0RE88I8 AND 

2040 





BEGINNING BTT WITHIN BYTE OR WORD 

2041 



* CALLING SEQUENCEl 

2042 



♦ 


ENTRY 1 

2043 





R14 contains address op data passed 8V calling 

2044 





routine 

2045 



t 


R13-R1B CONTAIN CONTROL VALUES EOR PREVIOUS 

2046 



t 


WORKSPACE, AND ARE N0N»VDLATILE 

2047 



# 


EXITl 

2048 



* 


R0 and R1 CONCATENATED CONTAIN BEGINNING BIT 

2049 





ADDRESS 

20S0 


0124 

BBART 

EQU 

S 

2051 



♦ 


RBfPMTd) 

2032 

0124 

0200 


LI 

R0,IMGDIP (DMT-IMTiDRT»IRT) 


0126 

0006 




2033 

0128 

C27E 


HOV 

•R14+,R9 GET ADDRESS OP IMT OR IRT 

2054 

018A 

A009 


A 

R9,R0 

2035 

012C 

04C1 


CLR 

R1 

2056 



t 


(R7,R8)»0 

2037 

012P 

39CI 


MPY 

Rl,»7 CLP R7,R8 

2058 

0130 

C17E 


00V 

♦R14+,R5 GET ADDRESS OP CT 

2059 


0132 

BBART2 

lOU 

S 

2030 



* 


(R7,R8)P(R7,R8)*0HTCn 

2031 

0132 

A230 


A 

*R04,R8 

2032 

0134 

1701 


JNC 

8BPLD1 

2063 

0136 

0587 


INC 

R7 

2064 


0138 

BBHOi 

EQU 

i 

2065 





00 3 Iil,3 

2066 



t 


(R7,Re)«(R7,R8) + (TCn*IT(n 

2067 

0138 

C08S 


MOV 

*R54,R2 

2068 



t 


MULTIPLY ITenwCTd) 

2069 

il3A 

3889 


MPY 

*R9+,R2 

2070 



t 


ADO PRODUCT TO TOTAL 

2071 

013C 

A203 


A 

R3,R8 

2072 

0138 

1701 


JNC 

BBELD2 

2073 

0140 

0587 


INC 

R7 

2074 


0142 

BiFLOa 

EQU 

S 

4075 

0142 

AIC2 


A 

R2,R7 

2076 





CONTINUE 

207 7 

0144 

05C1 


INCT 

R1 

2078 

0146 

0281 


Cl 

Rl,3*2 


0148 

0006 




8079 

014A 

16F3 


JNE 

BBART2 

2080 



# 


8BAfBAAWXDTH4(R7,R8) 

2081 

014C 

C03E 


MOV 

♦R|44,R0 

8082 

014E 

C099 


MOV 

*R0,R2 GET BEGINNING AOOR 

8083 

015i 

C07S 


MOV 

*R14+,R1 

808 4 



♦ 


MULTIPLY AODRESSwWlDTM 
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94539l!»990l ** 


PAGE 0051 


2085 

0152 

3891 


MPY 

*R1 f«2 


2086 






ADD PRODUCT TO TOTAl 

2087 

0154 

A203 


A 

R3,we 


2088 

0156 

1701 


JNC 

BPFLD3 


2089 

0158 

0587 


TNC 

R7 


2090 


01SA 

BBFLD3 

can 

$ 


2091 

015A 

AIC2 


A 

R2,R7 


2092 



ii 


BA«BBA/WinTH 

2093 





BBT«MOO(BBA/WIDTH) 

2094 

015C 

CB47 


MOV 

R7»4R0*2(R13) 

SAVE BIT address in R0 AND R1 


015E 

0000 





2095 

0160 

CB49 


MOV 

H8,PR1*2(»13) 



0162 

0002 





2096 






R1 contain width 

#097 

0164 

3001 


DIV 

*R1#R7 


2098 

0166 

C03E 


MOV 

*R14+,R0 


2099 



♦ 



GET ADDR of BRWA OR BMBVA 

2100 

0168 

C407 


MOV 

R7,*R0 


2101 

016A 

C03E 


MOV 

*R14<»,R0 


2102 



H 



GET AOOR OF 8RWDBT OR BMBVBT 

2103 

016C 

C40B 


MOV 

R8,*R0 


2104 

016E 

C07E 


MOV 

tR14+,Rl 

CHECK THAT LOOPING DOES NOT 

2105 

0170 

0447 


C 

R7,*R1 

PASS INDICATED ENDING MEMORY 

2106 

0172 

1802 


JH 

8BERR 

OR ROM ADDRESS 

2107 

0174 

05CF: 


INCT 

R14 

SKIP ERROR EXIT 

2108 


0176 

BBFLD4 

EOU 

S 


2100 

0176 

0380 


RTWP 



2110 


0178 

BB€m 

EQU 

S 


2111 

0178 

C39C 


MOV 

*R14,R14 

MOVE ERROR EXIT TO PC FOR RET 

2112 

017A 

10FO 


JMP 

8BFI.D4 
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TITLE I MGETFO 



# 

GFT string from 

MEMORY 

2117 

Hr 

REVISION! 03/1S/76 


2 11 « 


original 


2119 

★ 

COMPUTER! 990, ASSEMBLY 


2120 


ABSTRACT! 


2121 


GET STRING FROM 

MEMORY AND STORE TEMPORARILY IN 

2122 

♦ 

MEMORY location 

M8TRG 

2123 


calling SEQUENGEi 


2124 

♦ 

ENTRY! 


2125 

* 

H14 CONTAINS ADDRESS OF DATA PASSED BY CALLING 

212« 

♦ 

ROUTINE 


2127 

t 

R13-R1S contain 

CONTROL values FOR PREVIOUS 

212« 


WORKSPACE, AND 

ARE non-volatile 


2129 



t 


EXIT! 

2130 



# 


none 

2131 


017C 

MGITfD 

EOU S 

1 

2132 






2133 

gl7t 

C03E 


80V 

*R14W,R0 

2134 

017F 

COSO 


WQV 

*R0,R1 

2139 

0160 

P271 


MOVi 

*»1+,R9 

2136 

0162 

0989 


SRL 

R9,8 

2137 

0104 

0271 


MQVB 

♦R1+,R9 

2138 



# 



2139 



# 



2140 

0186 

0B09 


SRC 

R9,« 

2141 



«f 



2142 

0108 

C07E 


MOV 

*R14+,R1 

2143 

016A 

coil 


MOV 

*Rl ,RM 

2144 



♦ 



214S 

010C 

1301 


JEO 

MGFLUl 

2146 



♦ 



2147 



♦ 



2148 

010E 

0A09 


SLA 

R9,0 

2149 


0190 

HGPLOl 

EGO 

$ 

2150 

0190 

06C9 


SWPB 

R9 

2151 



♦ 



2192 

019? 

070A 


8ET0 

R10 

2193 



t 



2154 

0194 

C0/E 


MOV 

*RM + ,R1 

2199 

0196 

coil 


MOV 

*R1,R0 

2156 






2197 



♦ 



2198 






2159 

8198 

090A 


SRL 

Ri0,e 

2160 

01 9A 

06CA 


SWP8 

R10 

2161 



t 



2162 



♦ 



2163 



♦ 



2164 

019C 

424 A 


szc 

R10.R9 

2165 

019E 

0A09 


SLA 

R9,0 

2166 

01 Ai^= 

06C9 


SWPB 

R9 

2167 

01 A? 

C07E 


MOV 

*R14+,R1 

2168 







MSTRG«4BPBYA>*256+«8MBYA+1> 


R9 CONTAINS egeiNNlNG MEPORY 
BYTE ♦ FOLLOWING BYTE 

SHIFT-0MBYBT 


MSTRG»ALSHFT(H5TRG, SHIFT) 

LEFT JUSTIFY OATA CONTAINING 
STRING 

WORK WITH VALUE IN LS8 R9 

HASKBoI 

SHlFTiSWT 


MASKbLRSHFT (MASK, SHIFT) 

MASK IS LEFT-JUSTIFIIO STRING 
OF ZEROES OF STRING WIDTH 


WORK WITH MASK IN LSB R10 
M8TRG«AND(X0R(MASK,»nMSTR6) 

MASK OUT GARBAGE AT RIGHT OF 
STRING and in MSB 


RIGHT 

M8TR6 


JUSTIFY VALUE IN MSB RS 
RIGHT JUSTIFIED IN R9 
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STORE string IN MEMORY 
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RETURN 
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2175 



♦ 


ROM TO MEMORY 

2175 



w 

RCVISIONI 

0371S776 

2177 



# 


original 

217H 
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CnMPUTERI 

9O0fASSEMBLY 

2179 




A8STRACTI 


2130 



♦ 


STORE string from ROM INTO LOCATION IN MEMORY 

2131 



★ 

CAULI6(i SEUUENCFI 

2132 



♦ 


ENTRY 1 

2133 



# 


R14 CONTAINS ADDRESS OF DATA PASSED BY CALLING 

21W4 



if 


routine 

2135 





R13-R15 contain control VALUES FOR PREVIOUS 

2136 



it 


WORKSPACE* AND ARE MON.VQLATILE 

2137 



t 


EYITl 

2133 



★ 


NONE 

2139 


01 AS 

RTOM EQU 

$ 

2190 





STEMP««8MYA»*2564<8MBYA+2> 

2191 

31 A8 

C03E 


HOV 

*H14+,R0 

219P 

31AA 

C050 


MOV 

*R0fRl 

2193 

'll AC 

OlPl 


Move 

*P|+*R7 

2194 

81 AC 

3087 


SRL 

R7*« 

2195 

4160 

13101 


MOV0 

*Rl*R7 

2195 



it 


R7 CONTAINS BEGINNING MEMORY 

2197 



# 


BYTE ♦ FOLLOWING BYTE 

2198 

0182 

0B37 


SRC 

R7*8 

2199 



♦ 


MASKMwI 

2200 

(8184 

070A 


SETO 

«10 

2221 



* 


SHlFTnSWT 

2202 

3185 

Cl BE 


MOV 

*R14^,R« 

2203 

0188 

C316 


HOV 

*R6*R0 string width 

2204 



if 


MASKiLRSHFT (MASK, SHIFT) 

2205 



# 


MASK IS LIFT»IU8TIFIE0 STRING 

2206 



* 


OF ZEROES OF BIT STRING WIDTH 

2207 . 

31 BA 

000/. 


SRI 

R10,RC 

2206 



it 


SHlFTiSHBYBT 

2200 

418C 

C17E 


MOV 

*R14+,R5 

22J0 

HBC 

C015 


MOV 

*RS*R0 

22U 



it 


MASKiCRSHFT (MASK. SHIFT) 

2212 



t 


SHIFT MASK 80 STRING OF 

2213 



t 


ZEROES CORRESPONDS TO DATA 

2214 



it 


STRING IN MEMORY BYTE 

2215 

ncp 

0B0A 


SRC 

R 1 0 * 0 

2216 

01C2 

35 4 A 


INV 

R10 

2217 



it 


STEMp.ANDO(OReMASK*«l) fSTiMP) 

2218 



# 


MASK OUT BIT STRING IN MEMORY 

2219 



it 


WORD 

222M 

31C4 

41CA 


szr. 

R10.R7 

2221 

01C6 

C17E 


MOV 

*R14+,R5 

2222 



.. ♦ 


RSTRG RlGHT»JU8TlPlfD, LEFT 

2223 



# 


FILLED with ZEROES 

2224 

01CB 

C255 


MOV 

*R5,R9 

2225 



* 


SHIFTbBMBYBT+SwT 

2226 

tMCA 

APIS 


A 

*R8.R0 

2227 



♦ 


LEFT JUSTIFY STRING! 


o 



RPM TO tiKMORY R4S391* 


222B 



★ 



2229 






2230 



♦ 



2231 






2232 

2233 

01CC 

0B05 


SRC 

R9,R0 

2234 



* 



2235 



♦ 



2235 

i!237 

OICF 

E1C9 

if 

90C 

R0,R7 

223B 

2239 

0100 

0601 

* 

DEC 

R1 

22 4 M 
2241 

11102 

PC 47 

♦ 

M0V8 

R7,*R1 

H242 

U1D4 

06C7 


SMRB 

R7 

2243 

0105 

0447 


MQV0 

R7,*R1 

2244 

01 DP 

03BC" 


RTWP 
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BROM 
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GET ROW WORD STRING 

'dp. 49 



♦ 

REVISTON* 

03/15/76 







ORIGINAL 

Si25»l 



* 

COHPUTEPI 

990, assembly 

dp^p 



* 

ABSTRACT! 





it 



PASS MEMORY STRING AND ROM WORD ADDRESS TO 

g?>S4 



t 



'BURN WORD* SUBROUTINE ONE WORD AT A TIME 

>;y&5 



★ 

calling SEUUENCEl 




t 



ENTRY! 

dp.tt? 



★ 



»14 CONTAINS address OP DATA PASSED BY CALLING 

iidUfi 



♦ 



ROUTINE 

HP. ^9 



# 



Rr3-Wl5 CONTAIN CONTROL VALUES FOR PREVIOUS 

SJR60 






WORKSPACE, AND ARE WQN-VOLATILE 

kPSi 






EXIT! 

kPfip 



♦ 



NONE 

lK'->63 


01DA 

B90M 

EOil 3 

% 

^■?64 

IvlDA 

c;«7E 



HOV 

•R14+,Rl 

kP^fy 



★ 



BEGINNING BIT WITHIN ROM WORD 

kP$ty 

niDc 

C0O1 



NOV 

*R1 ,R3 

d:m 



★ 



ma$kp»i 

fe268 

tslOE 

07M3 



SETO 

R8 

d2G9 



« 



SHIFTpSHT 

d27V> 

01E0 

C07E 



NOV 

•R144,R1 

P27\ 

01E8 

uni 



HOV 

*R1 ,R0 

kP72 



♦ 



M ASK pLRSHPT (MASK, SHIFT) 

J;273 



t 



MASK IS LEFTwJUSTIFIED STRING 

d'i74 



# 



OF ZEROES OF STRING WIDTH 

8275 

(ilE4 

0906 



S«l 

R8 , 0 

U27B 

H1E6 

C07E 



HOV 

*R14+,R1 

dP77 



* 



MEMORY STRING RIGHT*JUSTIFIED 

8278 



* 



LEFT ZERO FILLED 

2279 

01E8 

C991 



MOV 

*R1,R10 

2280 

01EA 

0B0A 



SRC 

R10,0 LEFT JUSTIFY STRING 

2281 



♦ 



DD 200 AODRwBRWA,ERWA 

2282 

niEr 

C07E 



MOV 

♦R144,RI 

2883 



* 



BEGINNING ROM WORD ADDRESS 

2284 

BlEF 

Cioi 



MOV 

*Rl,R7 

2885 



* 



BEGIN LOOP TO SELECT SUB- 

2886 



* 



STRING TO BURN INTO PROM 

2207 


01F0 

BRFUDl 

lOU 

s 

2288 



* 



SHIF7Pli-WWI0+8RWDBT 

2889 

fUF0 

0200 



LI 

H0, 16 


M1F8 

0010 





2890 

R1F4 

C07E 



MOV 

*R14+,R1 

2891 

Hire 

6011 



s 

*RI,R0 

2298 

01PP 

A003 



A 

R3,R0 

2293 



♦ 



M ASK pCRSHFT (MASK, SHIFT) 

2294 



« 



RIGHT JUSTIFY A SUBSTRING OF 

2295 



t 



ROM WORD width of BOTH MASK 

2296 



# 



AND MEMORY string 

8297 

I'llFA 

0B00 



SRC 

R8,0 

2298 






MSTPGpCR8HFT(MSTRG, SHIFT) 

2299 



♦ 



FIRST SiJBSTRiNG IS SHIFTED TO 


I' 





Gt;T ROW 

RURN 

STRING 
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BFGIN at beginning ROM WORD 




it 



BIT 

k3i<)3 

RIFC 

0B0A 


SRC 

R10,0 





♦ 


aRRr>BT*0 








SUBSeoUENT SUiSTRiNOa BI8TN 

k3«5 



* 



AT BIT ZERO 

K306 

PMFR 

04C3 


CLR 

H3 


k307 





SAVF MSTRG 

k30n 


084A 


MOV 

R10»R9 


830<> 



ifr 


IFCPOOZ, 

EO,0)STEMP«OReMA8K,M8TRG) 

?.3iw 

0802 

C03F 


WSQV 

*R14+,R0 


k3ll 

0804 

CCi50 


wav 

*R0,R1 
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£1806 

1601 


.INF 

BRFLD2 


8313 
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IF programming ZEROES MASK 

k3H 






BITS LEFT OF SUBSTRING TO 

k316 



* 



ONES 

2316 

020F 

E848 


sot 

R8,R9 

RIGHT JUSTIFIED SUBSTRING 

2317 


0?0A 

8»FL0a 

Foil 

S 


231R 

320A 

C03E 


WOV 

*»144,R0 


2319 



* 



BURN SUBSTRING 

232« 

0206 

06 90 

/ 

6U 

*R0 


2321 

020F 

1009 


.IMP 

RFTERR 

JUMP TO PROCESS ERROR RETURN 

2322 



# 


continue 


2323 



« 



INCREMENT ROM WORD ADDRESS 

8324 

0210 

05CE 


InCT 

R14 

SKIP ERROR RETURN 

2326 

081? 

0597 


INC 

R7 


2326 

0214 

CM7E 


MOV 

*P144,R1 


2327 






IF NOT LAST WORD LOOP BACK TO 

2328 
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continue SELECTING SUBSTRINGS 

232R 

3216 

8447 


C 
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1B03 


JH 
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2331 
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082E 


AI 
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081C 

FFF6 





2332 

32 IF 

i0Ea 


JMP 

8RFL01 


2333 


0820 

BRFL03 

FOU 

« 


2334 



#r 


RETURN 
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RTWP 



2336 


0222 
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2333 



# 


CRU interface 

2334 



* 


R4,«5,R7,R9 NDN^VOLATIIE TO THIS ROUTINE 

2333 



* 


EXIT* 

2336 



if 


NONE 

2337 
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it 
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0248 

182? 


JH 

H0ERR 

2417 





LOOP while programming 

2418 

024A 

IFlF 


tb 

BUSY 

2419 

024C 

Ifitil 


JNF 

CONTIN 

2420 

024F 

10F9 


JMP 

8NC? 

2421 



♦ 50^ 


WAITCT- ( (100-DC) /DCUDUCYCT 

242? 


025PJ 

CONTIN 

eon 

s 

2423 



♦ 


RESET GO BIT 

2424 

025PI 

1E0F 


8B7 

GOB IT 

2425 



it 


ifcvcc.eq.i.op.vc.ed.ucall err 


»u»N cvcie 
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2a2H 

0252 

020'?^ 


LI 

K0» J 00 



0294 

0064 





2427 






GET DUTY CYCLE 

242B 

0256 

05CR 


INCT 

911 

SKIP ERROR RETURN 

2429 

0258 

C3F0 


MOV 

*PU-*-,R15 


24 3J< 

026A 

601P 


s 

*919, P0 


2431 

02SC 

C«4>.1 


‘^OV 



2432 

0266 

04C0 


rtP 


PREPARE FOR DIVISION 

2433 

0260 

3C3F 


0 1 V 

*9194- ,R0 


2434 

0262 

C«41 


MQV 

R1 ,91 


243S 

0264 

1301 


JEO 

GOON 


243« 

0266 

. 058^ 


INC 



2437 



GOQW 

^9U 

s 


243« 



★ 



R0,»l concatenated CONTAIN 

2439 



♦ 



WAIT COUNT 

2^4 0 

0268 

380E 


jvipY 

Rl 4*R0 


2441 



Hr 



CHECK FOR ZERO COUNT 

2442 

026A 

C041 


MOV 

PI •«! 


2443 

026C 

1308 


JEfJ 

OUTLP 


2444 



# 


DO 510 

l«i,waitct 

2445 


026t 

N'EXTtP 

EQU 

S 


244« 



* 



TIMING IN COUNT DOWN LOOP 

2447 



Hr 



approximately EOUAL COUNT UP 

2448 



H 



IN PROGRAMMING LOOP 

2449 

026P 

100 9 


MOP 



245« 

0270 

100'1 


NOP 



24S1 

0272 

100'1 


NOP 



24&2 

027 4 

1 000 


NOP 



24 53 

0276 

1009 


NOP 



2454 

0278 

1000 


NOP 



2455 

027A 

0601 


DEC 

Rl 


2455 

027C 

IBF8 


JH 

NEXTuP 


2457 


027C 

OUTIP 

EQU 

$ 


2458 



* 



CHICK FOR END OF COUNT DOWN 

2459 

027f^ 

C000 


MOV 

R0,R0 


245M 

0280 

1302 


JEO 

OUT 


2461 

0282 

0600 


DEC 

R0 


2462 

0204 

10F4 


JMP 

NPXTLP 


2463 



* 


RETURN 


2464 


0288 

OUT 

FQU 

$ 


2465 

0206 

04SB 


B 

*RH 


2466 


0288 

ONI.FRW 

POU 

s 


2467 

0288 

020A 


L I 

P10,PPOL 



028A 

3108 





2468 

020C 

1002 


JMP 

ERJMPt 


2469 


098E 

HWERP 

PQU 

S 


24/0 

0288 

020A 


LI 

R10.PPHW 



0290 

3109 





2471 


0292 

ERJHP2 

EQU 

S 


2472 



* 



ERROR RETURN 

2473 

0292 

CB4A 


MOV 

R10,PR10*8(R13) 

SAVE ERROR MESSAGE 


0294 

0014 





2474 

0296 

046B 


B 

*Rll 




SET STRING FROM ROM 
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2477 



* 

TITLE* 

RGETFO 

8478 



* 


GET STRING FROM ROM 

2479 




REVISION! 

03/15/76 

24S0 





ORIGINAL 

2491 



* 

COMPUTER! 

990,A88EMBLV 

2462 



a 

ABSTRACT! 


2463 



n 


GET STRING FROM ROM ANO STORE TEMPORARILY IN 

2494 



it 


ROM LOCATION RSTRG 

248S 



n 

CALLING SEQUENCE! 

2486 



it 


ENTRY! 

2487 



it 


R14 CONTAINS ADDRESS OF DATA PASSED BY CALLING 

2468 



it 


routine 

2469 



it 


R13-R15 CONTAIN CONTROL VALUES FOR PREVIOUS 

2490 



it 


WORKSPACE^ and are NQN^VOLATILE 

2491 



it 


EXIT! 

2492 



it 


NONE 

2493 


0293 

RGITFD EOU 

$ 

2494 



4r 


SWIFTbWWId 

2496 

0298 

C0FE 


MOV 

♦ R144-,R3 

2496 

029A 

C293 


MOV 

*R3,R10 

2497 



♦ 


countpshift-brwobt 

2498 

029C 

C07E 


MOV 

*R14+,R1 

2499 

029E 

6291 


S 

*R1,R10 

2540 



t 


W0MASK«»1 

2501 

02A0 

0709 


SETO 

R8 

2502 

02A2 

C013 


MOV 

♦R3»R0 

2503 



H 


NDMASKaALSHFT f NOMASK, SHIFT) 

2504 



if 


MASK IS RIGHT*JUSTIFIEO 

2505 



♦ 


STRING OF ZEROES OF ROM WORD 

2506 



♦ 


WIDTH 

2507 

02A4 

0A08 


SLA 

R8,R0 

2508 

02A6 

C07E 


MOV 

*R14^,R1 

2509 



it 


MOVE CRU base ADDRESS TO R12 

251 i-i 

02A8 

C3lt 


MOV 

*R1»R12 

2511 



# 


SHlFTiSWT 

2518 

02AA 

CIFE 


MOV 

*R14+,R7 

2513 

02AC 

CPI 17 


MOV 

*R7,R0 

2514 



it 


STMASKi-1 

2515 

02AF 

0709 


SETO 

R9 

2516 



it 


STM ASK ■LRSHFTCSTMASK, SHIFT) 

2517 



it 


8TMA8K IS LEFT-JUSTIFIED 

2518 



♦ 


STRING OF ZEROES OF BIT 

2519 



it 


STRING width 

252M 

0280 

0909 


SRL 

H9,R0 

2521 



H 


DO 210 ADORhBRWA,ERWA, 1 

2528 

0282 

C07E 


NOV 

*R14+,R1 

2523 



it 


GET BRWA 

2524 

0264 

C151 


MOV 

♦R1#R5 

2525 



it 


PROCESS ERROR IF PROM 

2526 



it 


programmer off line 

2527 

0266 

IF0E 


TB 

OL 

2528 

02BB 

1322 


JEQ 

offln 

2529 



« 


SKIP ERROR RETURN 

2530 

02BA 

0SCC 


INCT 

R14 


G6T STJ^IMS FROM flOM 


94 f. 39 l «9901 ** 


P«SE 0082 


2931 


08BC 

rgfldi 

EQU 

S 

2938 



* 



2933 

0280 

C045 


MOV 

H6,H1 

2534 






2939 

028F 

0901 


SRI 

Rl,8 

2939 



♦ 



2937 



* 



293R 

02C0 

06A9) 


PL 

FLOAOCR 


02C2 

0829 




253R 

02C4 

000"? 


DATA 

AOOR0 

2940 



♦ 



2941 






2948 

32C6 

C045 


MOV 

R9,R1 

2943 



* 



2944 






2949 

02CB 

06A0 


BL 

FLQAOCR 


02CA 

0229 




2546 

08CO 

0 I0!?j 


DATA 

AOORl 

2947 



# 



254m- 

02 CE 

C07F 


MOV 

*R144,R 

2943 






2530 



♦ 



2951 

K2D0 

32DI 


LDCR 

*R1#11 

2558 



★ 



2553 






2954 

08D? 

3901 


STCR 

Rif « 

2559 



* 



2956 






2957 

0204 

06C1 


SWRB 

Rl 

25S« 



★ 



2959 



♦ 



2550 

02D6 

4043 


8ZC 

R8,Rl 

2961 



t 



2962 

0208 

C00A 


MOV 

R10fR0 

2563 



it 



296 4 



it 



2565 



* 



2966 



* 



2967 



it 



2966 

02DA 

0R01 


SRC 

RlfRB 

2969 



# 



257« 



it 



2971 

02OC 

4040 


szc 

R9fRl 

2972 



it 



2573 



it 



2974 

02OE 

E241 


8QC 

RlfR9 

2979 



* 



2976 

02EM 

A293 


A 

*R3fR10 

2577 



n 81« 



2970 



t 



2579 



♦ 



29BB 

02E2 

0585 


INC 

R5 

2981 

02£4 

C07F 


MOV 

*R14+,R 

2962 

02E6 

8151 


C 

*Wl ,R9 

2963 

08 Eft 

1A03 


JL 

RGFLD8 


«CRimG 0 R»ADOR /286 

GET MSB OF ROM WORD ADDRESS 

STORE IN ROM interface 
REGISTER 0 


<CRURG1»»MOO(AOOR/2S6) 

GET 180 OF ROM WORD ADDRESS 

STORE IN ROM INTERFACE 
REGISTER 1 


rSTRG«<ADDR> 

1 

SELECT ROM interface REGISTER 
7 FOR READOUT 

GET DATA OF ROM WORD RIGHTp 
JUSTIFIED IN MSB R1 

R8TRG«CR8HPT(RSTRG,8) 

MOVE TO LSB Rl 

MASK ALL BUT RIGHT JUSTIFIED SUBSTRING 
OF ROM WORD width to ZEROS 

SHIFThCOUNT 

RSTRG«CR8HFT(R8TRG# SHIFT) 

SHIFT DATA 80 BEGINNING 
STRING BIT WITHIN SUBSTRING 
OF ROM WORD WIDTH IS LEFT 
JUSTIFIED, 

MASK all bits OTHER THAN THOSE IN BOTH 
SUBSTRING ANO STRING 

SAVE PRESENT MASKED DATA IN 
R9 

COUNT»COUNT*WWID 

continue 

GET NEXT ADDRESS AND CHECK IF 
GREATER THAN ERWA 



GIT STRING FROM ROM 
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8584 



# 


IP NOT, RESET R3 TO POINT TO 

8585 



* 


CORRECT DATA WORD IN CALLING 

8596 





PROGRAM 

8597 

02EA 

022E 


A1 

Rl4,-4 


02EC 

FFFC 




853B 

32EE 

10E5 


JMP 

RGFLDJ 

8589 


02F0 

rgflds 

EOll 

S 

8S9» 



if 


R8TRG RIGHT JUSTIFIED 

8591 



if 


LEFT BITS ZEROiO OUT 

2592 

02F0 

0200 


LI 

«0,16 


02F2 

0010 




8593 

02F4 

6017 


S 

*R7,R0 

8594 

02F6 

0909 


SRI. 

R9,0 

8595 

02F8 

C07E 


MOV 

*H14+,RI 

8596 



it 


STORE IN H8TRG 

8597 

02FA 

C449 


MOV 

R9,*R1 

2595 



it 


return 

8599 


02FC 

RGFLOvli 

EQU 

$ 

86fel« 

02FC 

0385? 


»TWP 


2681 



it 


GET ERROR MESSAGE AND ERROR 

8602 



it 


RETURN 

8603 


02FE 

OFFLN 

EQU 

S 

8604 

02FE 

020A 


LI 

R10,PPOL 


0300 

3106 




8605 

0302 

CM 4 A 


MOV 

R10,#R10*2(R13) 


0304 

0014 




2606 

0306 

C39E 


MOV 

*R14,R14 

8607 

0306 

10F9 


JMP 

RGFL03 


c 




CH€CK FOR RECORD ON CASSETTE 945391*8901 ** 


PASS 0054 


2^lf^ 



t TITLE! 

CHICK 

2»U 



♦ 


CHECK FOR given RECORD ON TAPE 

2«12 



* RCVISIONI 

03/15/76 

2f>13 






2^14 





original 

2f^l5 



* COMPUTIRI 

990, assembly 

2516 



* A0STRACTI 


2617 



* 


COMPARE BUFFER TO INPUTTED NAME AND INDICATE 

2615 





ON RETURN IE MATCH POUND 

26lf> 



^ CALL 

IMG SEOUENCEl 

2620 



Ht 


ENTRYI 

2621 



h 


Rll CONTAINS ADDRESS OF DATA PASSED BY CALLING 

2622 





routine 

2623 



♦ 


Rl CONTAINS ADDRESS OF FIRST BYTE OF NAME 

2624 





R0 CONTAINS character COUNT OF NAME 

2625 



# 


R4#R5,R7,R8 N0N*V0LATILE TO THIS ROUTINE 

2626 



♦ 


EXIT! 

2^27 



Hf 


R6 CONTAINS incremented BUFFER ADDRESS 

2626 


030A 

CHECK 

EQU 

$ 

2^j2« 



m 


R6PRFR 


430A 

CJB8 


HOV 

*RU + ,R6 

2631 



♦ 


TYPEi(BUFFER) 

2638 





BUFFERpBUFFER+I 

2633 

030C 

03F6 


wove 

*R6T,R15 

8634 

a30E 

098E 


SRI 

R15,8 

2635 



# 


DO 100 IRI, COUNT 

2636 



# 


IF(<8UFFER>,Nf iPADDRpJOO TO 110 

2637 


0310, 

CWl 

EQU 

» 

2636 



♦ ^ 


COMPARE USER INPUTTED NAME TO 

2639 





NAME IN BUFFER 

2640 

0310 

9C76 


C8 

*R6y,*R14 

8641 

3318 

1604 


JNE 

CHS 

8648 





CONTINUE 

8643 

3314 

0600 


OEC 

R0 

2644 

3316 

i6FC 


JNE 

CHI 

8645 

3318 

0585 


INC 

H6 SKIP BLANK 

2646 



♦ 


indicate check FOUND 

8647 

33 1 A 

05Ce 


INCT 

Rll 

8648 



#iii 


RETURN 

8649 


031C 

CHS 

EOU 

S 

8650 

33 IC 

0458 


8 

♦ Rll 


c 



convert and n«ite 
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* TITLEJ 

CVT^RT 


2664 



* 

CONVERT AND WRITE 


2665 



« REVISION! 

03/15/76 


2656 



* 

original 


2657 



♦ C0MPU1EH? 

990, ASSEMBLY 


266B 



* ABSTRACTI 



2659 



* 

TRANSEER WORKING TABLE TO BUFFER AND 

WRITE 

266M 



* 

BUFFER 


2651 



* CAUUING SEQUENCFJ 


2662 



* 

ENTRY! 


2663 



in 

Rll contains address of DATA PASSED BY 

CALLING 

2654 



H 

routine 


2665 




R7 CONTAINS ADDRESS OF FIRST BYTE OF NAME 

2666 



♦ 

«6 contains present buffer address 


2667 



♦ 

R9 contains table SIZE 


2688 



it 

R14 CONTAINS ADDRESS OF FIRST WORD OF 

TABLE 

2669 



♦ 

«« CONTAINS character COUNT OF NAME 


2670 




R4,R5 NON-VOUATILE TO THIS ROUTINE 


2671 



♦ 

EKITl 


2672 



♦ 

R6 CONTAINS INCREMENTED BUFFER ADDRESS 


2673 


031E 

CVTRRT EOU 

$ 


2674 


031E 

CVTWl EQU 

S 


2675 



* 

00 200 1*1, COUNT 


2676 



* 

«BUFFER»*«AOOR> 


2677 



* 

MOVE NAME TO BUFFER 


2678 

03 IE 

0087 

M0V9 

♦R7+, *R6* 


2679 



« 

CONTINUE 


2680 

0320 

0603 

DEC 

RB 


2681 

0322 

16FD 

JNE 

CVTWl 


2680 

0324 

0586 

TNO 

R6 MOVE BLANK TO BUFFER 


2683 


0326 

CVTW10 EQU 

$ ENTRY POINT 


2684 



* 

SAVE RETURN ADDRESS 


2685 

0326 

C0C8 

MOV 

Rll,R5 


2686 


0328 

CVTW20 EQU 

3 


2687 



* 

00 210 I«l, COUNT 


2688 



* 

r09<WKTBL» 


2689 



* 

MOVE BINARY DATA TO 

R0 

2690 

0328 

C03E 

MOV 

*R14*,R0 


2691 



* 

CALL CVTBHK 


2692 

032A 

C053 

MOV 

*R3,R1 


2693 



* 

CONVERT DATA TO HEX 

AND MOVE 

2694 



* 

INTO BUFFER 


2695 

032C 

0691 

PL 

*Rl 


2696 



*210 

CONTINUE 


2697 

032E 

0609 

DEC 

R9 


2698 

0330 

16FR 

JNE 

CVTW20 


2699 

0332 

0201 

LI 

R1,WRITA*286 



0334 

0800 




2700 



* 

CALL WRITE (8FR) 


2701 

0336 

05C3 

INCT 

R3 


2702 

0338 

C033 

MOV 

*R3*,R0 


2703 



* 

WRITE BUFFER 


2704 

333A 

0690 

PL 

*R0 


2705 

033C 

1601 

JNE 

ERTYP 



convert 

AND 

WRITE 

945391-9901 ** 

PAGE 0066 

27 #6 

2707 


05C3 

* 

INCT R3 

NO ERROR RETURN 

2708 

270Q 

T34P! 

0340 

0453 

ERTYP EQU $ 

B *93 




CONVERT HEX A3CII TO BINARY O4539l«9<}01 ♦* 


page P0«7 


2713 




TITLEl 

CVTHXB 

2713 



Ir 



CONVERT HEX ASCII TO BINARY 

27X4 



« 

REVISION! 

03/15/76 

2715 



H 



original 

27lfi 



* 

COMPUTER! 

990, ASSEMBLY 

2717 



★ 

ABSTRACT! 


271R 



* 



MOVE FOUR BYTES OF BUFFER TO CONVERSION BLOCK 

2719 



at 



AND USE SUPERVISOR CALL TO DO CONVERSION, 

2725^ 



♦ 



R0 CONTAINS RESULT OF CONVERSION, 

2721 



♦ 

calling SEQUENCE! 

2722 



♦ 



ENTRY! 

2723 






Rll CONTAINS ADDRESS OF DATA PASSED 8V CALLING 

2724 



* 



routine 

2725 



♦ 



R6 CONTAINS PRESENT BUFFER ADDRESS 

2725 



♦ 



R4,R5,R7,RS N0N*V0LATILE TD THIS ROUTINE 

2727 



* 



EXIT! 

272B 



* 



R6 CONTAINS INCREMENTED BUFFER ADDRESS 

2729 






R0 CONTAINS binary data 

273^1 


0342 

CVTHXB 

EOU 

$ 

2731 



it 



4C.PRB0P>»O 

2732 






get prb for conversion 

2733 

0342 

C3BR 



MOV 

*R1 1 + ,R10 

2734 

0344 

C0CA 



MOV 

R10.R3 

2735 

0345 

CP>7B 



HOV 

*R1U,R1 

273fi 






OPCODE FOP HEX TO BINARY 

2737 



if 



CONVERSION 

273H 

0346 

CCOl 



MOV 

•R1,*P3+ 

2739 



if 



00 200 I»l,4 

274(1 

034A 

0200 



LI 

R0,4 


034C 

0004 





2741 






C0NPR8(n«BUFFER(I) 

2743 


034E 

CH81 

EQU 

S 

2743 



* 



MOVE characters from I/O 

2744 



if 



BUFFER TO CONVERSION BUFFER 

2745 

034E 

OCF5 



M0V8 

*R6+,*R3+ 

274« 



*200 


CONTINUE 

2747 

0352 

06051 



DEC 

R0 

2745 

0352 

16PD 



JNE 

CHBl 

2749 



★ 



RiiBINARY fCONPRB) 

275(1 

0354 

C07B 



MOV 

*RU + ,Rl 

2751 



* 



DO CONVERSION 

2753 

0356 

0411 



8LWP 

*»1 

2753 



♦ 



return 

2754 

0356 

0456 



B 

*RM 


FILI, THE SliFfEff WITH BLANKS 94S391-9901 ♦* 
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2757 




TITLE 

I0LNK 

2758 



t 



blank fill BUFFER 

27S?I 



♦ 

REVISION! 

03/15/76 

27(50 



♦ 



ORIGINAL 

2761 



* 

COMPUTER! 

990, AS8F.M8LY 

2762 



# 

ABSTRACT 

! 

2763 






fill THE BUFFER PITH BLANKS 

2764 



♦ 

calling sfouencei 

276S 



Ht 



ENTRY! 

2766 



Hr 



W6 CONTAINS BEGINNING BUFFER ADDRESS 

2767 



♦ 



R1 CONTAINS address OF LAST BUFFER BYTE TO BE 

2768 



* 



filled 

2769 






R4,R5,R7,R8 NON-VOLATILE TO THIS ROUTINE 

2770 



# 



EXIT! 

2771 



Hr 



R6 CONTAINS beginning BUFFER ADDRESS 

2772 



Hr 



PUFFER IS PLANK filled 

2773 



Hr 




27/4 


035A 

blnk 

EQU 

$ 

2775 



Hr 




2776 

038A 

0200 



LI 

m , ' » initialization value 


035C 

2020 





2777 



Hr 



SAVE BEGINNING BUFFER ADDRESS 

2778 

0v3SE 

C386 



MOV 

R6.R14 

2779 


0360 

BUNKl 

FQU 

$ 

2780 

0360 

CD80 



MOV 

R0,*R64 STORE INIT VALUE IN BFR 

2761 

0362 

8046 



C 

R6,Rl CHECK FOR END OF BUFFER AND 

2782 

0364 

IIFD 



JLT 

0L.NK1 REPEAT IF NOT 

2783 

0366 

13FC 



JEQ 

BLNKl 

2784 

0368 

C18E 



MOV 

R14,R8 

2785 

036A 

0468 



B 

♦ Rll 

2786 





FND 



0000 EPS 
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f 


0072 

0096 

0100 



0126 

0131 

0136 



0160 

0162 

0165 



01.88 

0192 

0225 



0272 

0274 

0296 



0331 

0372 

0374 



0395 

0398 

0401 



0488 

0501 

0524 



0557 

0559 

0578 



0725 

0733 

0748 



0818 

0829 

0833 



0902 

0920 

0923 



1053 

1100 

1122 



1262 

1270 

1303 



1399 

1404 

1419 



1524 

1548 

1573 



1655 

1680 

1683 



1790 

l«30 

1886 



1988 

1991 

1993 



2090 

2108 

2110 



2333 

2336 

2357 



2497 

2464 

2466 



2603 

2628 

2637 



2730 

274? 

2774 

ktl 


0082 

0905 

1035 

ADOR0 

0287 

0931 

2539 


aoori 

0280 

0937 

2546 


9ADAU 

1991 

1722 



0AOAOD 

0S94 

0470 

1346 


90 A R 

1683 

0660 

0677 


88ART 

2050 

1685 



90 ART? 

2069 

2079 



806.RR 

2110 

2106 
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TS 191P 

TSFLOl 1920 
TSFU02 1957 
TSFL03 1961 
TSFL04 1972 
TSTE*?» 1965 
WECF 2241 
(KKSP8F 1573 
WRITA 2242 
WRTl 1682 
WRT2 1685 
WRTRO }645 
HI01D U42 
YFS 2301 

TH&RE ARE 0292 


0826 

1249 

1324 

1478 


0160 

0753 

1247 

132? 

1476 

1697 

0614 

0843 

196? 


1653 




1235 

1268 



125! 

1175 

1287 




1310 

1182 

1193 



1210 

1218 



1165 

1167 



119R 

1224 



1245 

0092 

1492 

1613 

1663 

0860 
036 5 
0366 
0375 

069? 

0709 

0715 

0376 

0370 

1971 

1934 

1525 



1940 

1948 

1953 


1985 




1945 




1332 




1681 

1684 

1687 

1690 

1228 

2699 



1166 

1172 

1412 

1422 

1651 




1164 

1230 

1265 

1300 

0356 

06 81 

0698 

0718 

1840 

1939 




SVRBOIS 



«741 


1693 


1328 

0738 


0755 0774 


1696 

1333 

0861 
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iNPF DUMP 94S397-9§il ** PA6E0«i8 






IDT 

»DM8NPF» 


t 

P004 



* TITLEI 

OMBNPF 






* 


OMBNPF format 

ANO OfSCRIPTlPN 

0006 



* RBVISIONI 

03/19/76 



\6BB7 



t 


ORIGINAL 



ii0P 



* ABSTRACT! 




0009 





DUMP FROM 

i TO §192 BYTES OP MEMORY TO CASSETTE 

0010 



# 


TAPE IN BNPF 

FORMAT, COMPARE MEMORY TO TAPE, OR 

0011 



« 


LOAD DATA 

IN 

BINARY FORMAT INTO MEMORY, 

0018 



* COMPUTER! 

990# ASSEMBUY 


§013 



*** EXTERNAl, REFERENCES 


§014 



« 





0019 




OEF 

OMBNPF 



0016 




REF 

ERROR 



0017 




REF 

RR 



0010 




REF 

ACl 



0019 




REF 

PRCRLF 



0080 




REF 

PRNTC 



0081 




6EF 

PRNTHN 



0028 




REF 

EQSICN 



0023 




REF 

PRNTNX 



002<» 




REF 

SVC4UT 



0029 



t 





0026 

0000 

44 


TEXT 

•OB' 



0027 

0002 

0090’ 


RATA 

OMBNPF 



0026 

0004 

0000 


DATA 

0 



0029 



n 




,„f' ' ' 

0030 



*♦* ERROR MESSAGE EflUATES 


0031 



★ 





0032 


0205 

M805 

EQU 

*•0209 


REQUIRED PARM MISSING 

0i33 


0100 

MP0i 

EQU 

P0100 


lUEGAL TOGGLE 

0034 


1103 

DP03 

IQU 

M1103 


DUMP GT 6192 BYTES 

0039 


1113 

0P13 

EQU 

»1U3 


INVALID range 

0036 


0001 

MX01 

EQU 

>0001 


UNRECOVERABLE I/O ERROR 

0037 



* 





003« 



*♦* SVC/PR8 

EQUATES 



0039 



* 





0040 


0000 

WRITA 

EQU 

11 


WRITE ASCII 

0041 


0009 

READA 

EQU 

9 


READ ASCII 

0042 


0000 

OPEN 

EQU 

00 


OPEN FILE 

0043 


0000 

WEOF 

EQU 

13 


WRITE EN0»DF>PILE 

0044 



* 





0049 



*** PRB. DEFINITIONS 



0046 



* 





0047 


0006» 

PRB 

EQU 

S 



0046 

0006 

0000 

PRBSC 

DATA 

0 


SERVICE TYPE 

0049 

0008 

00 

PR80P 

BYTE 

0 


I/O COMMAND 

0090 

0009 

07 

PR8LU 

BYTE 

7 



00S1 

0004 

00 

PR88F 

BYTE 

0 


SYSTEM completion FLAGS 

0092 

000B 

00 

PRBUF 

BYTE 

0 


USER flags 

0093 

000C 

0034' 

PRBBF 

DATA 

8FR 


output buffer address 

0094 

0008 

0086 

PRBUN 

DATA 

86 


output buffer length 

0099 

0010 

0050 

PRBCC 

DATA 

80 


CHARACTER COUNT 

0096 

0012 

0000 


DATA 

0#0 


UNUSED / 





BNPF OUHP 
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0014 

0000 




0i57 


0016» 

C0NPR8 

EQU 

S 

(9P9P 

0016 

0000 

CPRBOP 

DATA 

0 CONVERT COMMAND 

0099 

0018 

00 


BYTE 

0 SIGN 

0060 

0019 

00 


BYTE 

0,0 VALUE TO BE converted 


001A 

00 




0061 

0018 

00 


BYTE 

0,0 


001C 

00 




0069 

001D 

00 


BYTE 

0 

0063 


001E' 

EN0PR8 

EOII 

i 

0064 



* 



0065 



*** MISCELLANEOUS DATA 

006fi 



* 



0067 


4000 

lOMSK 

EOU 

»4000 

0060 


001E‘ 

INIT 

EQU 

s 

0099 

001E 

09 


BYTE 

9 

0070 

001F 

49 


TEXT 

’BEG AOOR"’ 

0071 


0026< 

LAST 

EOU 

$ 

0079 

0028 

09 


BYTE 

9 

0073 

0029 

49 


TEXT 

’END ADDR«' 

0074 


0032’ 

oce 

EQU 

$ 

0075 

0039 

0B00 


DATA 

P0B00 

0076 


0034’ 

CHARCT 

EOU 

S 

0077 

0034 

0090 


DATA 

>0090 CHARACTER COUNT FOR WRITE 

0078 


0140 

MPRT 

EOU 

>100*'M' MEMORY WORD TYPE 

0079 


0154 

TPRT 

EQU 

>1004’T’ TAPE WORD TYPE 

0060 


0090 

BLANK 

EOU 

’ ’ BLANKi» 1 

0081 

0036 

4246 

ABF 

DATA 

’BF’ 8NPF data BE0IN/FINI8H MARKER 

0089 

0038 

4E90 

ANP 

DATA 

*NP’ BNPF NEG/POS DATA BIT INDCATR 

0083 

003 A 

0000 

8FR 

DATA 

0,0,0,0,0,010,0,0,0 EIGHTY* 


003C 

0000 





003E 

0000 





0040 

0000 





004? 

0000 





0044 

0000 





0048 

0000 





0048 

0000 





00 4 A 

0000 





004C 

0000 




0084 

004E 

0000 


DATA 

0,0, 0,0, 0,0, 0,0, 0,0 SIX 


0090 

0000 





0059 

0000 





0094 

0000 





0096 

0000 





0098 

0000 





00 5 A 

0000 





005C 

0000 





00SE 

0000 





0060 

0000 




0089 

0069 

0000 


DATA 

0,0,0,0,010,0,0,0,0 BYTES 


0064 

0000 





0066 

0000 





0068 

0000 





006A 

0000 





00SC 

0000 





tNPF DUMP 
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PA6E eiee4 


006E 0f0'3 

0P7P 0»0'3 

0079 0000 

0074 0000 

0004 0070 0000 DATA 0,0, 0,0, 0,0, 0,0, 0,0 OP 

0078 0000 

007 A 0003 
007C 0003 

007E 0003 

0080 0003 

0089 0003 

0084 0003 

0088 0003 

0088 0003 

0087 008A 0003 DATA 0,0,8 2SROC8 

008C 0003 

008F 0003 

0088 **• REGISTER DEFINITIONS *** 


f'' 




INPF BUMP 


948397.8901 *♦ 


PASS 0005 


0090 


« 

ALL 

REG. 

REFEPEnCES in 8NPF DUMP ARE VIA SYMBOLIC 

0091 


* 

ACRONYMS 

INDICATIVE OF THE CURRENT USE OF THE REGIS* 

0092 


* 

TER. 

THE8F acronyms ARE DEFINED BELOW, ANY TIME 

0093 


* 

A REGISTER FREES UP, OR IS RE-ASSIGNED, ONE OF THE 

0094 


* 

following 

COMMENT CARDS WILL APPEAR IN THE LISTING 

8095 


* 




0095 


**« 

REGISTER 

REA88IGNMINTI OLD WPX.«PTR1', NEW WPXp»FRtE» 

0097 


**« 

REGISTER 

REA88IGNMENTI OLD WPX.tpTRl*. NEW WPXi»PTR2» 

0098 


* 




0099 

0000 

90 

EQU 

0 

SCRATCH 

0100 

0001 

R1 

EOU 

1 

SCRATCH 

0101 

0002 

CPRM 

EBU 

2 

PTR TO command PARM LIST 

0102 

0003 

HOR 

EQU 

3 

HEADER FROM CMD, PARM, LIST 

0103 

0004 

ACT 

EQU 

A 

DUMP OR COMPARE TOGGLE 

0104 

0005 

8TRT 

EQU 

5 

DUMP OR CMPR START ADDRESS 

0105 

0005 

MEM 

EQU 

5 

DUMP OR CMPR 8TRT*CURRENT IND 

0106 

0006 

END 

EQU 

6 

DUMP OR CMPR END ADDRESS 

0107 

0007 

R7 

EOU 

7 

SCRATCH 

0108 

0008 

BFRA 

EQU 

8 

OUT BFR base ♦ CURR INDEX 

0109 

0009 

BFRE 

EOU 

9 

PTR TO MX DATA ADDR IN BUFFER 

0110 

B00A 

PRBA 

EOU 

10 

ADDRESS OF PR0 

0111 

000A 

R10 

EQU 

10 

SCRATCH 

0112 

0008 

Rll 

EQU 

11 

RETURN ADDRESS i 

0113 

000D 

R13 

EQU 

13 

PTR TO PREVIOUS WORKSPACE 

0114 

000E 

R14 

EQU 

14 

SCRATCH 

0115 

0007 

RlS 

EQU 

15 

SCRATCH i 


f 



0NPF Ol'MP 
eiU7 
(5U9 

0i2« 0090 

0121 0092 
0094 

0122 0096 

0129 0090 

0124 009A 

0125 009C 

0125 0091 

0127 00A0 

012« 00A2 

0129 00A4 

0190 00A6 

0191 

0192 

0133 00AP 
0194 00AA 
013S 00AC 
00Af 
019« 0080 

0137 0082 

0138 0084 

0139 0086 

0140 0088 

0141 

0142 00BA 
00BC 

0143 

0144 00BE 
00C0 

0145 00C2 
0140 

0147 

0148 

0149 00C4 

0190 00C6 
00C8 

0191 00CA 

0192 

0193 00CC 

0194 

0199 00CE 
0000 
0196 0002 

0004 
§197 0000 

0198 0008 

0199 

0190 00DA 
00DC 
0161 00DF 
0010 


945397»9901 «* PASI 0006 

*1* BEGIN OMBNPP 


0090' 

DH0NPF EQU 
OEF 

$ 

0M8NPF 

% 

C0BA 

MOV 

R10,CPRM 

SAVE PARM AD0R,»««6ET AND 

0420 

0000 

BLWP 

• ACL 

LINK A NEW workspace 

04C0 

CUP 

R0 


C0P2 

MOV 

*CPRM+,HOR 

HEADER WORD 

0032 

MOVB 

*CPRM#,R0 

GET character COUNT 

0132 

M0V8 

♦CPRM+, act 

DUMP/COMpARE TOGGLE 

0964 

SRU 

ACTfS 


0990 

SSL 

R0f 9 


A080 

A 

R0.CPRM 

SKIP OTHER characters 

C172 

MOV 

*CPRM+,8TRT 

DUMP STARTING AOOR 

CIB2 

MOV *CPPM+,ENri 
*** parameter VAUIOATION 

DUMP END ADDRESS 


m ifcstrtb.ano.enob.eo. 

03CALL A8ORT(MS0S) 

0A93 

SUA 

HDR,9 

SHIFT toggle PRESENT BIT INTO 

1707 

JNC 

DM001 

CARRY 

0264 

0044 

Cl 

ACT, »Dt 

IF NO DUMP IGNORE ADDRESS 

1614 

JNE 

DMB01B 

PARAMETERS 

0A13 

6U A 

H0R,1 

TOGGLE OK, CHECK FOR START 

1702 

JNC 

DM001 

JUMP IF OK 

0A13 

SLA 

HOR,l 

START OK, CHECK FOR END 

1S0S 

JOC 

DM801A 

JUMP IF OK 

008A« 

DM0 il FQU 

S 


020A 

§209 

LI 

R10,MS09 

A80RT»RFeUIRED FARM MISSING 

008g» 

A80RT EQU 

$ 


06A0 

§000 

eu 

•ERROR 


1094 

JMP 

mA. 

OM803B 


00C4» 

w 

DM801 A IQU $ 

*1 XiENOwSTART 


C0§6 

MOV 

ENO,R0 


020A 

U13 

LI 

R10,OP13 

JUMP IF start is GREATER 

6009 

S 

8TRT,Ri 



*1 IFCX.IE 

,03CALL ABORT(MPOe) 

12F8 

JLE 

ABORT 

THAN END ADDRESS 


♦1 IFCX.GT 

,8192)CALL ABORT(MP0S) 

020A 

1103 

II 

Ri0fOP03 

JUMP IF LENGTH GREATER THAN 

0260 

2000 

Cl 

R0,8192 

8192 BYTES 

1IF3 

JH 

ABORT 


1006 

JMP 

DM802 


00OA' 

DM80 l» EOU 

S 


020A 

0100 

LI 

R10,MP00 


0284 

Cl 

ACT,'C 

IF TOGGLE not 'C 


0043 



BNPF dump 
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0ie>2 

00E2 

1303 


JEO 

DMBf2 


0165 

00E4 

0284 


Cl 

ACT,*L' 

AND TOGGLE NOT *L' 


00E6 

004C 





0164 

00Ee 

16EA 


JNE 

ABORT 

ABORT 

016S 



♦ 




0166 



** PARAMETER 

1 valioation complete 

0187 



♦ 


OLD 

R2-CPRM, NEW R2«FRFE 

0166 



♦ ♦♦ 


OLD 

R3PH0R NEW R3«FRCE 

0169 







017W 


0002 

R2 

EOU 

2 


0171 


0003 

R3 

EOU 

3 


017P 



« 




0173 



*1» CAUL OPEN(PRBA) 


0174 



* 

(IN LINE EXPANSION) 


017S 



* 




0176 


00EA* 

DMB02 

EOU 

S 


0177 

00EA 

0201 


LI 

R1,0PEN*2564-WRITA 

OPEN lUNO 7 


00EC 

000B 





017B 

00EE 

C820 


MOV 

FCMARCT,#PRBCC 

SET CHAR. CT, FOR WRITE 


00F0 

0034t 






00F2 

0010' 





0179 

00F4 

0284 


Cl 

ACTi *D* 

IF TOGGLE NOT SET TO DUMP 


00F6 

0044 





0180 

00F6 

1302 


JE0 

DMB02A 

PREPARE TO read 

0181 

00FA 

0201 


LI 

Rl,0PEN*256+READA 

OPEN UUNO 7 


00FC 

0009 





0182 


00FE* 

DHB02A 

IQU 

$ 


0183 

00FE 

D601 


N0V8 

R1,#P»B0P 



0100 

0008* 





0184 

010? 

020A 


LI 

PRBA.PRB 



0104 

0006* 





0185 

0106 

0420 


blnp 

F8VCALT 



0106 

0000 





0186 

010A 

06CI 


SWP8 

R1 

SET THE PRB TO FUNCTION 

0187 

010C 

0601 


M0V8 

R1,#PRB0P 

CODE TO WRITI/REAO ASCII 


010F 

0008* 





0186 

0110 

0209 


LI 

BFRE,BFR488»13 

SET UP End of i/o buffer 


0112 

0070* 





0189 

0114 

020F 


LI 

RlSiINIT 



0116 

0PIE* 





019« 

0116 

04CT 


CLR 

R7 


0191 

0UA 

0284 


Cl 

ACT» »L * 

IF TOGGLE SET TO LOAD 


0UC 

004C 





0192 

011E 

1327 


JEQ 

OMB04 

JUMP TO LOAD SEQUENCE 

0193 

0120 

0284 


Cl 

ACT, *C* 

IF TOGGLE SET TO COMPARE 


0122 

0043 





0194 

0124 

134E 


JER 

DMB«7 

BRANCH TO COMPARE SEQUENCE 

0195 



HEMpSTRT 


0196 



* **REGISTEfi 

! reassignmentiolo 

RSiSTRT, NW RSfMEM 

0197 



* !• 00 

NMlUECMEM.tT.END) 


0196 



*2 CAUL BLNK(6FRA,6FRE1 


0199 


0126* 

DMB03 

EQU 

s 


020M 

0126 

0208 


LI 

BFRA,6F» 

SET UP START OF OUTPUT BUFFER 


0126 

003A* 





0201 

012A 

0209 


LI 

BFRE,BFR460 

SET buffer end FOR BLANK FILL 


8NPF OUHP 
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PA6I i008 



012C 

008/ * 




1 ' 

8302 

012E 

06 A'/ 


IL 

♦BLNK2 

BLANF.FILL THE BUFFER 


0130 

036f!' 





0303 



* 




0304 



*l» 

CAUL FIU(8FRA.E,M|H,END) 


0205 

0132 

0209 


LI 

BFRE,BFR4>80*13 

SET UP END OF I/O BUFFER 


0134 

007Df 





0206 

0136 

06A® 


PL 

4FILL 

FILL BFR W/BNPF DATA 


0138 

024C* 





0207 



*2 

call WRTRD(PRB) 


0206 

013A 

^fA';* 


BL 

•WRTRO 



013C 

037'^’ 





0200 

813e 

16BF 


JNE 

ABORT 


0210 



*1 

continue 


0211 

0140 

8185 


c 

MEM, END 


0212 

0142 

12F1 


4LE 

OMB03 


0213 

0144 

0208 


LI 

8FRA,BFP 



0146 

003/» 





0214 



*1 

call »LNKfBFRA,8FRI5 


021S 

0148 

0209 


LI 

BFRI,BFR480 

SET BUFFER END FOR BLANK FILL 


014A 

008 A » 





0216 

014r 

06 A 1’ 


BL 

FBLNKt 

BLANK. FILL THE BUFFER 


014E 

036Eif 





0217 



*1 

eFRt0)«»8' 


02 1 « 

0160 

020H 


LI 

R0, '$»*286 



0162 

2400 





0219 

0164 

D80'.? 


8OV0 

R0,#8FR 



0156 

003/' 





0220 



#!• 

CALL WRTRDtPRiAl 


0221 

0168 

06 AM 


8L 

♦WRTRO 

WRITE EOF RECORD tINPF) 


015A 

037M» 





0222 

016C 

1«BM 


JNE 

abort 

ABORT IF WRITE FAILED 

0223 

016E 

020M 


LI 

R0,wEOF*256 

WRITE AN END»0F.FILE 


0160 

0000 





0224 

0162 

O80E1 


HOVB 

RifFPRBOP 

SIT OPCODE 


0164 

0009' 





0225 



4l 

CALL WRTRD(WEOF) 


0226 

0166 

06A0 


BL 

•WRTRO 



0168 

0370' 





0227 


016/' 

OM803A EQU 

S 


022« 

016A 

16A9 


JNE 

ABORT 

ABORT IF WEOF FAILED 

0229 


016C 

OM803B eou 

$ 


0230 

016C 

1068 


JMP 

0M8TRM 


0231 


0161 ' 

OM004 EOU 

S 


0232 



* **RES1STEF 

t REASSISNMENTl OLC 

1 R4iACT, NEW R41FREE 

0233 


0004 

R4 

EOU 

4 


0234 

0166 

0208 


LI 

BFRA,BFR 

SET UP STRT OF OUTPUT BUFFER 


0170 

003/' 





0235 

0172 

0202 


LI 

R2,C0NPRB 



0174 

0016' 





0236 

0176 

0203 


LI 

RSfENOPRB 



0178 

001E' 





0237 

017A 

06A0 


BL 

• BUNK 

blank.fill buffer 


017C 

0386' 




r 






*1*CAU PPTRDtPPB) 
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0239 

017E 

06A8 


BL 

PWRTRP 


0168 

0370’ 




0248 

0162 

165C 


JNE 

ERTYPF 

0241 


0164' 

OMB05 

EQU 

S 

0242 

0184 

C81B 


’'OV 

*RFRAfR0 

0243 

0186 

0268 


Cl 

R0,’S » 


01BB 

2420 




0244 

eiBA 

13F1 


JEQ 

DM884 

0245 

018C 

06A8 


BL 

•CVTDCB 


018E 

02AS« 




0246 

0198 

05C8 


INCT 

BFRA 

0247 

0192 

028F 


Cl 

R15,INIT 


0194 

081E' 




0246 

0196 

1604 


JNE 

DMB06 

0249 

0196 

06A8 


BL 

0PRNRTN 


019A 

02FA* 




0258 

019C 

1853 


JMP 

ombtrm 

0251 

019E 

04CF 


CLR 

R15 

0252 


01A8» 

OMB06 

EQU 

S 

0253 

01A8 

06A0 


BL 

0GETBTE 


01A2 

02OC’ 




0254 

0IA4 

D044 


MQV8 

R4,*MEM+ 

0255 

01A6 

8248 


C 

8FRA,BFR| 

0256 

01A8 

14E2 


JHE 

0MB84 

0257 

01 AA 

05CB 


INCT 

BFRA 

0258 

01AC 

0200 


LI 

R0, ’ ’ 


01AE 

2820 




0259 

01B8 

9018 


CB 

*BFRA,R0 

0268 

01B2 

16F6 


JNE 

DMB06 

0261 

01B4 

0605 


DEC 

MEM 

0262 

01B6 

020F 


LI 

R15,LA8T 


BIBB 

0028’ 




0263 

01BA 

06A0 


BL 

PPRNRTN 


01BC 

02FA’ 




0264 

01BE 

1842 


JMP 

dmbtrm 

0265 

01C8 

1006 


JMP 

OMB04 

0266 


01C2’ 

DMB87 

EQU 

$ 

0267 

01C2 

020S 


LI 

BFRA, BFR 


01C4 

003A’ 




026B 

01C6 

0202 


LI 

R2,C0NPRB 


01C6 

0016’ 




0269 

01CA 

0203 


LI 

R3»ENDPRB 


01CC 

001E’ 




0278 

01CI 

06A0 


BL 

0BLNK 


0108 

0356’ 




0271 

01D2 

06A0 


BL 

•WRTRD 


0104 

0370’ 




0272 

0106 

1«3? 


JNE 

ERTYPF 

0273 

0108 

C018 


MOV 

*BFRA,R0 

0274 

01OA 

02B0 


Cl 

R0.t$ 1 


01DC 

2420 




0275 

01OF 

13F1 


JEQ 

DMB07 

0276 

01E0 

06A0 


BL 

0CVTDCB 


01E2 

02AS’ 




0277 

81E4 

05CB 


INCT 

BFRA 


** PA6E 8889 

READ A RECORD 

IF ERROR JUMP TO ABORT OR END 

IF FIRST CHARACTER OF BUFFER 
IS '$» READ NEXT RECORD 

FOR END OF FILE 

CONVERT ASCII DEC AOOR TO BIN 

SKIP FIRST BLANK AND ‘Bt 
IS RECORD FIRST 

display address if so 
display beginning file addr 

ESC RETURN 


GET BYTE FROM BUFFER 

STORE BYTE IN MEMORY 
CHECK END OF BFR 
AND READ NEW RECORD IF SO 
SKIP blank and »B' 

R8 CONTAINS BLANKS 

IF NOT LAST BYTE IN FILE 
JUMP BACK TO GIT ANOTHER BYTE 
GET LAST BYTE ADDRESS 


DISPLAY LAST FILE AOOR 
ESC RETURN 

CONYINUI READING TO E*0*F 
SET UP START OF I/O BUFFER 


BLANK-FILL BUFFER 
READ A RECORD 

IF ERROR JUMP TO CHECK TYPE 
IF FIRST CHARACTER OF BUFFER 

IS ti' read next record 

FOR END OF FILE 

CONVERT ASCII DEC AOOR TO BIN 

SKIP FIRST BLANK AND *B« 


BNPP i 

DUMP 




945397-9901 

iETB 

01E6 

028P 


Cl 

R15,INIT 


01E8 

001E' 





01EA 

1604 


JNE 

OM008 


01EC 

06A0 


BL 

pprnrtn 


0111 

02PA' 




BSBl 

01P0 

1029 


JMP 

ombtrm 

B2S2 

01P2 

04CP 


CLP 

R15 

B2B3 


01P4» 

OM0i8 

SOU 

$ 

02B4 

01P4 

0287 


Cl 

R7,4 


01P6 

0004 




0285 

0ipe 

1601 


JNE 

DMB08A 

0286 

01FA 

04C7 


CLR 

R7 

028T 


01PC» 

DM608 A 

EOU 

S 

0288 

01PC 

06A0 


BL 

PGETBTI 


01 PE 

02OC« 




0289 

020? 

9544 


CB 

R4,*MEM 

0290 

0202 

1309 


JED 

OM809 

0291 

0204 

06A0 


iL 

iOISPLY 


0206 

031A> 




0292 

0208 

0164 


DATA 

tprt 

0293 

020A 

1?1C 


JMP 

ombtrm 

0294 

020C 

DUS 


M0V8 

*MEM,R4 

0295 

020E 

0210 

06A0. 

031AI 


BL 

POISPLY 

0296 

0212 

014D 


DATA 

mprt 

029T 

0214 

1017 


JMP 

DM8TRM 

0298 


02161 

OMB09 

EOU 

S 

0299 

0216 

0585 


INC 

MEM 

0300 

0218 

8248 


C 

BPRA,8PRE 

0301, 

021A 

1403 


JME 

DMB07 

0302 

021C 

08C8 


INCT 

BPRA 

0303 

0211 

0200 


LI 

R0, » » 


0220 

2020 




0304 

0222 

0287 


Cl 

R7.4 


0224 

0004 




0305 

0226 

1601 


JNE 

OMB09A 

0306 

0228 

04C7 


CLR 

R7 

0307 


022A' 

OMB09A 

EOU 

S 

0308 

022A 

9018 


CB 

*BPRA,Ri 

0300 

022C 

16E3 


JNE 

OMB08 

0310 


022E' 

OMB010 

EOU 

S 

0311 

022E 

0605 


DEC 

MEM 

0312 

023? 

020P 


LI 

RlSiLAST 


0232 

0028' 




0313 

0234 

06A0 


BL 

PPRNRTN 


0236 

02PA» 




0314 

0238 

1005 


JMP 

ombtrm 

0315 

023A 

10C3 


JMP 

DMBi7 

0316 


023C 

IRTYPE 

EOU 

$ 

0317 

023C 

0240 


ANDI 

R0,IOM8K 


023E 

4000 




0318 

024? 

1301 


JED 

dmbtrm 

0319 

0242 

1093 


JMP 

DMB03A 

0320 



*1 END OMBNPP 

0321 


0244* 

OMBTRH 

EOU 

S 


*♦ PA6t 00IJ 

18 RECORD FIR0T 

DISPLAY ADDRESS IP SO 
DISPLAY BE6INNIN8 PILE ADDR 

ISC RETURN 


GFT BYTE PROM SUPPER 

COMPARE SUPPER AND MEMORY 

IP NOT EQUAL 

display BYTE PROM TAPE 


ESC RETURN 
GET MEMORY BYTE 

display byte prom memory 


ESC RETURN 

GET NEXT MEMORY 8YTI ADDRESS V 
CHECK END OP 8PR 
AND READ NEW RECORD IP SO 
SKIP BLANK AND »B' 

R0 CONTAINS blanks 


IP NOT LAST BYTE IN PILE 
JUMP BACK TO GET ANOTHER BYTE 

GET LAST byte ADDRESS 


DISPLAY LAST FILE ADDR 
ISC RETURN 

CONTINUE READING TO E«Oi»P 

IF INDsOP.PILE ENCOUNTIRfO 

LOAD COMPLETE 
OTHERWISE ABORT 

1 


W 



BNPF DUMP 


949397-9901 ** 


PACE 0011 



0327 

0244 

0420 

BLWP 


0246 

0000 


0323 

024P 

C28S 

MOV 

0324 

024A 

045B 

RT 




PRR 

CPRM, 910 


FILU OUTPUT BFR W/ BNPF DATA 945397-SS01 ** 


PAGE 0018 


0387 

0328 

0320 

033« 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 
0330 

0340 

0341 

0342 

0343 

0344 
0343 
0348 
0347 


SUBPOU 

♦ TITLE 

* 

* 

* REVISION 

♦ 

* ABSTRACT 

* 

* 

* 

* 

♦ 

* 

* 

« 

* 

* 

* 

* 

* COMPUTER 

* calling 


TINE mLf8PRA,BFRE,MEH,iN03 I 

IFILL ^ 

fill OUTPUT BUFFER 

I 03/tS/7S 
ORIGINAL 

t 

GENERATE AtBNPF FORMATTED DATA RECORD 
CC1*N I DECIMAL ASCII DATA ADDRE88»»1 TO S 

CHARACTERS W/NQ LEADING BLANKS OR ’0> 


CCN+1 I 
CCN+8 I 
CCN-t-3* 

TO W4ig|i 

CCN-Ml I 
ccNtie 
TO N’fsei 


' * FIELD separator 
B beginning of data bits 

»pt OR «M«, REPRESENTING A HIGH OR 
LOW STATE OF A BIT OF MEMORY DATA, 
•F« finish of DATA BITS 


TO N^SSI REPITITION of CCNtl TO CCN*ll UP TO 
SIX TIMES 

I 990fA5SEMBLY 
SEQUENCE I 


0348 



# 


ENTRV* 



0340 





R5»M£M 

■ADDRESS 

OF MEMORY DATA 

0380 



♦ 


R8fBFRA«AD0RESS 

OF OUTPUT buffer 

0351 



# 


R9.BFRE«AD0R, of END OF OUTPUT BUFFER 

0352 





RBiEND 

■ ENDING 

AODR, OF memory DATA 

0353 



# 





0384 





EXIT! 



0385 



* 


R0«Rj^pl^4 



0386 



* 


MEM fAODRESS OF 

NEXT BYTE TO SE CONVERTED 

0387 





BFRAiADOR+1 OF 

LAST BYTE IN OUTPUT BUFFER 

0388 



♦ 


THE 8NPF RECORD 

IS FORMATTED IN !BFR», 

0350 


024C’ 

FILL 

EQU 

i 

♦•♦♦ENTRY POINTS*** 

0350 



* 





0351 



*1 

CAUL BINDECCMEM, 

BFRA) 


0362 



♦ 

IN 1 

line EXPANSION 


0353 

024C 

04C0 


CUR 

R0 



0364 

024E 

C049 


MOV 

MEM,R1 


INITI VALUE TO BE CONVERTED 

0365 

0280 

0204 


LI 

R4U0 


conversion base 


0252 

000A 






0360 

0294 

0203 


LI 

R3, 10000 


MAX # OF DGT8 IN CNVTD 


0256 

2710 






0367 


0258' 

FLU 

EQU 

S 


HERE TO NXT L8L ELIMINATES 

0368 



«r 



LEADING 7ER0ES 

0360 

0258 

3C03 


DIV 

R3,R0 


FIND 

0370 

025A 

04C2 


CLR 

R2 


FIRST 

0371 

025C 

S0S0 


C 

R0,R2 


NON-ZERO 

0372 

025E 

1603 


JNE 

FLL2 


OIGITtJUMP when FOUNOJ 

0373 

0260 

3C84 


OIV 

R4,R2 


not found, reduce max r of 

0374 

0262 

AiC2 


A 

R2,R3 


DIGITS BY 1 and try AGAIN 

0378 

0264 

16F9 


JNE 

FLU 


IF ORIG, n WAS NOT ZERO 

0376 


0266' 

FLL2 

EQU 

S 



0377 

0266 

0220 


41 



CONVERT THE DIGIT TO DECIMAL 


0268 

0030 







PAG« i013 


Flkt OUTPUT 8FR W/ 8NPF DATA 9453P7i.8<»0 1 ** 


(II37B 

026A 

06C0 


8WPB 

H0 

ASCII AND 

0379 

026C 

DE00 


wove 

R0,*BFPAf 

STORE IN THE OUTPUT BFR, 

0380 

026F 

04C2 


CLP 

P2 

REDUCE NUMBER OF 

0301 

0272 

3C04 


Div 

P4,R2 

DIGITS REMAINING BY 1, AND 

0302 

0272 

A6C2 


A 

P2,P3 

WHEN « OF DIGITS remaining IS 

0383 

0274 

C002 


MOV 

R2,«2 


0304 

0276 

1303 


JEQ 

FLL3 

ZERO, JUMP OUT OF LOOP 

0305 

0276 

04C0 


CLP 

R0 

ELSE# compute 

0306 

027A 

3C03 


DIV 

P3,P0 

NEKT DIGIT, 

0387 

027C 

10F4 


4MP 

FLL2 

GO CONVERT TO ASCII, 

0306 


027C* 

FLU3 

IQU 

S 


0309 

027F 

0588 


INC 

HFPA 

PUTS A BLANK IN 1ST CH, 

0396 

0200 

0201 


LI 

RlfABF 

AOOR, OF »BF» IN R1 


0282 

0035» 





0391 

0204 

0200 


LI 

R0,6 

BIT COUNTER IN RO 


0286 

0008 





0392 

0206 

OF 31 


MOVB 

*R1*,*BFRA+ 

IB» FOR BEGIN FIELD 

0393 

020A 

O0F5 


MOVB 

*M£M^,R3 

MEMORY BYTE IN R3 

0394 


028C* 

FLL4 

EOU 

S 


0395 

028C 

0202 


LI 

R2, ANP 

AOOR, OF »NP» IN R2 


020F 

0038' 





0396 

0290 

0A13 


SLA 

R3, 1 

PIT TO BE STORED IN ARRY 8TAT 

0397 

0292 

1701 


JNC 

FLL5 

JUMP FOR negative BIT 

0396 

0294 

0582 


INC 

R2 

INC TO *P» FOR POS. BIT 

0399 

0296 

0E12 

FLt5 

MOVB 

*R2»*6FRA4 

STORE »N' OR 'P» 

0406 

0296 

0600 


DEC 

R0 

DF.CREMENT BIT COUNT, AND 

0401 

029A 

16F8 


JNE 

FLL4 

LOOP RACK IF BYTE NOT DONE 

0402 

029C 

DEll 


HOV0 

*R1**PFRA4 

«F' FOR FINISH FIELD 

0403 

029F 

8248 


C 

bfra.pfre 

BYTE DONE, CHECK END OF BFR, 

0404 

02A0 

1402 


JHE 

FLL6 

AND GIT OUT IF SO 

0405 

02A2 

8165 


C 

MEM, END 

CHECK FOR ENO»OF*OUMP AND 

0406 

02A4 

12EC 


JLE 

FLL3 

LOOP BACK IF NOT FOR NXT BY 

0407 


02A6» 

FLL6 

EOU 

S 


0406 

02A6 . 

045B 


PT 




convert ascii dec to binary 94S397-9R01 ** RAGE 0014 

»4H * mm cvTocB 

e^IS? * convert ascii decimal to binary 

®413 * RfVISIONI 05/15/76 

0414 * original 

0410 * AiSTRACTi 

0416 * CONVERT ASCII DECIMAL ADDRESS TO BINARY ADDRESS 

0417 * COMRUTER* 990, ASSEMBLY 


0416 



* CALLING SEQUENCE 1 



0419 



* 


ENTRYI 



0420 



* 


RSiBFRA-BESlNNlNG BUFFER ADDRESS 


0421 



♦ 


RSiMEM •MEMORY ADDRESS 


0422 



# 


Exm 



0423 





R0.Rl,Rli, 

R14 CLOBBERED 


0424 


02ASf 

CVTDCB 

EQU 

S 

•♦♦♦ENTRY POINT**** 


0425 

02A6 

C38B 


MOV 

8lt,R14 

SAVE RETURN ADDRESS 


0426 

02AA 

020A 


LI 

Nl0rCONPR0 

PREPARE TO DO CONVERSION 



02 AC 

0il0» 






0427 

02AE 

C04A 


MOV 

R!0,R1 



0428 

0?6i 

0200 


LI 

R0, * • 

R0 CONTAINS blank 



0282 

2220 






0429 

02 B 4 

CC60 


MOV 

2DCB,*R!+ 

SET FNCT CODE TO DEC TO 1 

BIN 


02B6 

0032» 






0430 

02B6 

0221 


AI 

RJ ,5 

GET end of CONPRB 



02BA 

0005 






0431 


02BC» 

CVTl 

EOU 

S 



0432 

02BC 

0568 


INC 

8FRA 



0433 

02BE 

9018 


CB 

•BFRA,R0 

CHECK FOR END OF ADDRESS 


0434 

02C0 

liFD 


JNE 

CVTl 

IF NOT JUMP BACK FOR NXT 

BYTE 

0439 

02C2 

C068 


MOV 

BFRA,Rt 

SAVE END OF ADDRESS 


0436 

02C4 

0608 


DEC 

iPRA 

GET LAST BYTE 


0437 


0tC5» 

CVTg 

EOU 

S 



0436 

02C6 

0461 


MOV 8 

•BFRA,*R1 

MOVE ADOR byte TO CONPRB 

8FR 

0439 

02ca 

0608 


DEC 

BFRA 



0440 

02CA 

0601 


DEC 

R1 



0441 

02CC 

0288 


Cl 

BFRA,BFR 

IF BEGINNING BYTE NOT 



02CE 

003A» 






0442 

0200 

14FA 


JHf 

CVTt 

TRANSFERRED, JUMP BACK 


0443 

0202 

0420 


BLWR 

• SVCAl T 

DO conversion 



0204 

0108» 






0444 

0206 

C140 


MOV 

R0,MEM 

SAVE memory address 


0445 

0206 

C202 


MOV 

R2,»FRA 



0446 

02DA 

04SC 


B 

*R14 




C 





GfcT byte 


945397*9901 ** 


PAGE 0015 


0449 



* TITIEI 

GET0Tf 


04511 



♦ 


GET BYTE 


0451 



* REVISION! 

03/15/76 


0452 



it 


original 


0453 



* AS87RACTI 



0454 



* 


GET BYTE FROM 

BUFFER AND CONVERT TO BINARY 

0455 



• COMPUTER! 

990, assembly 


0456 



* CALLING SEQUENCE! 


0457 



* 


ENTRY! 


0456 



* 


R6«6EPA»PRESENT buffer A0ORE88 

0459 



« 


EXIT! 


0460 



* 


R4iBINAPY BYTE 

VALUE 

0461 



* 


R1,R2,R4 CL0B6ERE0 

0462 


02DC* 

QETBTE 

IQU 

S 

♦♦♦♦ENTRY POINT**** 

0463 

02OC 

0201 


LI 

Rl# 'F ’ 

Rl CONTAINS 'F » 


02DE 

4620 





0464 


02E0» 

GTBTl 

EQU 

S 


0465 

02E0 

0704 


SETO 

R4 

BUFFER BYTE VALUE TO if IN R4 

0466 

02E2 

0202 


LI 

R2, ANP 

R2 contains ADDRESS OF »NP» 


02E4 

0036 ’ 





0467 


02E6* 

GT8T2 

EQU 

$ 


0466 

02E6 

9468 


C8 

*0FRA4,*R2 

IF PUFFER contains 'P». 

0469 

02E6 

1602 


JNE 

GT8T3 

JUMP TO STORE A 1 

0470 

02EA 

0A14 


SLA 

R4,l 

SHIFT 0 INTO RIGHTMOST BIT R4 

0471 

02EC 

1001 


JMP 

GTBT4 


0472 


02EE' 

GT0T3 

EOU 

$ 


0473 

02EE 

06F4 


SRC 

R4, 15 

SHIFT 1 INTO RIGHTMOST BIT R4 

0474 


02F0» 

GT6T4 

EOU 

S 


0475 

02F0 

9056 


C8 

•BFRA.Rl 

IF NOT END OF BYTE, 

0476 

02F2 

16F9 


JNE 

GTBT2 

continue conversion 

0477 

02F4 

0566 


INC 

BFRA 

SKIP »F» 

0476 

02F6 

0A84 


SLA 

R4,6 

GET BYTE VALUE 

0479 

02F6 

0463 


RT 




PRINT POUT I NS 


945397i-99fiSl ** 


PAGE P0ie 


IS48P 



t 

TITLEI 

PPNRTN 


048? 



♦ 



PRINT ROUTINE 


0484 



t 

REVI8T0NI 

03/16/76 


0485 



if 



obigimal 


0488 



« 

ARSTRACTI 



0487 



« 



PRINT CARRIAGE 

RETURN, line FEED, ADDRESS OISCR 

0488 



# 



AND VALUE 


0489 



♦ 

COMPUTERI 

990,ASSrMBLV 


0400 



♦ 

CAU.I'''G SEQUENCFl 


0491 



* 



ENTRY 


0 49P 



♦ 



RliApDRESa OF 

DESCRIPTION MESSAGE 

0493 






RSRMEMfMIMaRY 

ADDRESS 

0494 



# 



EXITI 


0495 



if 



R0,R10 CLOBBERED 

0496 


02FA» 

PRNRTN 

lOU 

$ 

****ENTRY POINT**** 

0497 

0?FA 

C08B 



80V 

Rll»R? 

SAVE RETURN ADDRESS 

0498 

0?FC 

C389 



MOV 

BFRE»R14 

SAVE END OP BUFFER 

0499 

0?FI 

06A0 



8L 

PPRCRIF 



030a 

0008 






0500 

030!? 

100A 



JMP 

PRNEXT 

ESC RETURN 

0S01 

0304 

C28F 



MOV 

R15|R10 


050P 

0308 

06A0 



BL 

PPRNTC 

PRINT ADDRESS OESCR 


0308 

0000 






0803 

030A 

1006 



JMP 

PRNEXT 

ESC RE TURN 

0804 

0300 

C205 



MOV 

MEM,R10 


0905 

030F 

0§A0 



BL 

•PRNTHX 

PRINT ADDRESS VALUE 


0310 

0000 






0508 

0312 

1002 



JMP 

PRNEXT 

ESC RETURN 

0507 

0314 

C24E 



MOV 

R14,BFR1 

RESTORE END QE BUFFER 

0508 

8316 

05 eg 



INCT 

Rg 

NORMAL RETURN 

0509 


03ie» 

PPNfXT 

EOU 

S 


081 a 

0318 

0452 



B 

*R2 



t 



display strings 


94S3P7«SIP01 ** 


PAGE »017 


»513 



♦ 

TITLE* 

DISPLV 



G5I4 



♦ 


DISPLAY STRING 


051S 




REVISIONI 

03/15/76 



0516 



n 


ORIGINAL 



0517 




A8STRACTI 




0516 



* 


DISPLAY STRING 

AS BYTE ADDRESSiSTRING 

051<) 



<k 

COHPUTERI 

990, ASSEMBLY 



0520 



♦ 

CALLING SeOUENCFl 



0521 



♦ 


ENTRY! 



0522 



♦ 


MEM CONTAINS 

ADDRESS 

0523 





R14 CONTAINS 

STRING 

0524 





EXITI 



0525 



* 


R1,R10,R0 

DESTROYED 

0526 





BPRE SAVED 



0527 


031A» 

DISPLY EQU 

S 


♦♦♦♦ENTRY POINT^*^* 

0528 




SAVE RETURN ADDRESS AND 

BFRE 

0522 

031A 

C066 


NOV 

Rll,R2 



053« 

051C 

C389 


MOV 

BFRE,R14 



0531 

031E 

C1C7 


NOV 

R7,R7 



0532 

0320 

1603 


JNE 

DlSPl 



0533 




carriage 

RETURN, line 

FEED 

0534 

0322 

06A0 


BL 

PPRCRLE 




0324 

03001 






0535 

0326 

lil5 


JMP 

OSEXIT 


ESC return 

0536 


0329» 

0I8PI EQU 

$ 



0537 

0326 

0567 


INC 

R7 



0536 

032A 

C26S 


MOV 

R2,R10 



0532 

032C 

05C2 


INCT 

R2 



0540 



* 

CALL PRINT(TYPE) 



0541 

032E 

06A0 


BL 

PPRNTC 




0330 

030S< 






0542 

0332 

1008 


JMP 

DSEXIT 


ESC RETURN 

0543 

0334 

C265 


NOV 

MEM,R10 



0544 



♦ 

CALL PRINTCADOR) 



0545 

0336 

06A0 


BL 

8PRNTNN 




0336 

0000 






0546 

033A 

100B 


JMP 

DSEXIT 


ISC RETURN 

0547 

033C 

020A 


LI 

R10,EOSICN 




033E 

0000 






0548 



♦ 

CALL PPINT(f) 



0549 

0340 

06A0 


BL 

PPRNTC 




0342 

0330* 






0550 

0344 

1006 


JMP 

DSEXIT 


ESC RETURN 

0551 

0346 

04CA 


CLR 

R10 



0552 

0348 

D284 


N0V8 

R4,R10 



0553 




CALL PRINTCSTRTNG) 



0554 

034A 

06A0 


BL 

PPRNTHX 




034C 

03101 






0555 

034E 

1001 


JMP 

DSEXIT 


ISC RETURN 

0556 

0350 

06C2 


INCT 

R2 


NORMAL RETURN TO CALLER 

0557 


03521 

086XIT EQU 

$ 



0558 




RESTORE 

BFRE 



0559 

0352 

C24E 


MOV 

R14,BERE 



0560 

0354 

0452 


B 

*R2 




BUNK itFIU. BPK iKiTH BLANKS 


94S397»9901 *♦ PAGE BflB 



iLNK »mu BP« WITH BLANKS 


945397<»9ll0t #* 


PAGf 0019 


0563 

0564 

0565 

0566 

0567 
0S6B 

0569 

0570 

0571 
0579 

0573 

0574 

0575 

0576 

0577 
0576 
0579 

0560 

0561 

0589 

0563 

0564 
0585 
0566 
0587 

0568 

0589 

0590 

0591 
0599 


* 

* 

* 

* 

* 

* 

«r 

* 

* 

* 

* 

* 

* 

« 

* 

* 


mu IBLNK 

blank fill buffer 

REVISION! 03/15/76 

original 

ABSTRACT I 

SIMPLE ROUTNE to BLANK FILL THE BUFFER 
COMPUTER! 990»ASSEMBLV 
calling SEQUENCE! 

ENTRY! 

P8-BFRA4A0DRESS OF BFR 
R9«BFRE«A0DRES$ OF END OP BUFFER 
EXIT ! 

R0 CLOBBERED 

ALL other REGS INTACT 

buffer 11 BLANK FILLFD 



0356' 

BLNK 

EQU 

S 

0356 

0200 

w 

LI 

R0, • » 

0358 

2020 

035A' 

BLNKl 

EQU 

S 

03SA 

CC80 


MOV 

R0,*R2* 

035C 

B0C2 


C 

R2,R3 

035E 

lAFD 


Jl 

BLNKl 


0360’ 

BLNK2 

EQU 

S 

0360 

0200 


LI 

R0, » 1 

0362 

2020 

0364» 

BLNK3 

EQU 

S 

0364 

CE00 


MOV 

R0»*BFRA* 

0366 

8248 


C 

BFRA.BFRI 

0368 

12FD 


JLE 

BLNK3 

036A 

0208 


LI 

BFRAfBFR 

036C 

036E 

003A» 

045B 


RT 



****ENTRY POINT**** 

initialization VALUE 


STORE INIT VALUE IN CONBFR 
CHECK FOR END OF BUFFER AND 
REPEAT IF NOT 

INITIALIZATION VALUE 


STORE INIT value in BFR 
CHICK FOR END OF BUFFER AND 
REPEAT IF NOT 

RESET SERA TO START OP iUPFER 


0593 


return to caller 


WRITE/READ 


94S397p8O01 ** 


PAGE i020 


099« 



t 

TITLE 

IWRTPD 

1897 



★ 


WPITE/PEAO 

0598 



# 

REVISIONI 

03/16/76 

0599 



t 


original 

000i 



♦ 

A8STRACTI 


0801 



t 


FLUSH THE BUFFER A$ DESCRIBED BY THE PRI 

00ii 



t 


SET AU SATAU8 ,EOp FOR GOOD CDHPLETION 

0803 



■ W 


,NE. FOR I/O ABORT 

0604 



♦ 


R10 WILL CONTAIN THE APPROPRIATE ERROR HE88ASE 

0808 



« 


ID IN CASE OF AN ABORT, 

0608 



* 

COHPUTEPI 

990#ASSEM8LY 

0607 



tCALliNG SEQUENCEI 

0606 



♦ 


ENTRYl 

0609 





R10tPR6A9AOORISS OF PR8 

0610 





EXITI 

0611 



# 


R0,R10 CLOBBERED 

06ia 





ALL other REGS intact 

0613 


@370 « 

WPTRO E9U 

s ****entry point**** 

0614 

0370 

0S$A 


LI 

PRBA,PRB 


037? 

0006 » 




0615 

0374 

0420 


BLWP 

•8VCALT 


0378 

02D4» 




0616 

0378 

020A 


LI 

R10,MX01 GET 1/0 A8RT MSG(JU8T IN CASE 


037A 

0001 




0817 

037C 

0020 


MOV0 

FPR68F,R0 SIT AU STATUS WITH SY8TEH FLS 


0371 

000A» 




0616 

0380 

046B 


RT 

RETURN TO CALLER 

@619 




INF? 



0000 EPS 



945397-9901** 


PAGE 0021 


960 • 980 CQNCOSDANCt 





$ 


0047 

0057 

0P63 

0068 

0071 



0143 

0147 

0159 

0176 

0188 



0241 

0258 

0866 

0863 

0887 



0321 

0359 

0367 

0378 

0388 



0437 

0468 

0464 

0467 

0478 



0536 

0557 

0579 

0588 

0586 

A06 

0081 

0390 



■ 


ABORT 

0143 

0153 

0157 

0164 

0809 

088? 

ACL 


0018 

0121 




ACT 

0103 

0125 

0126 

0135 

0161 

0163 

anp 

008? 

0395 

0466 




BBS 

0083 

0053 

0188 

0800 

0801 

0805 



0267 

0441 

0598 



BF9A 

0108 

0800 

0213 

0834 

0848 

0846 



0873 

0277 

0300 

0308 

0308 



0402 

0403 

0432 

0433 

0435 



0445 

0468 

0475 

0477 

0589 

0F8e 

0109 

0188 

0801 

0205 

0815 

0855 



0530 

0559 

0590 



blank 

0080 






BLNK 

0579 

0837 

0870 




BLNKl 

0588 

0585 





BUNK2 

0586 

0802 

0816 




BLN^S 

0588 

0591 





charct 

0076 

0178 





CONPRB 

0057 

0235 

0868 

0426 



CPRPOP 

0058 






CPPM 

0101 

0120 

0183 

0124 

0188 

0128 

CVTl 

0431 

0434 





cvTa 

0437 

0448 





CVT0C8 

0424 

0845 

0876 




0C6 

0074 

0489 





0I8P1 

0536 

0538 





OISPUY 

0527 

0891 

0895 




OMB01 

0141 

0134 

0136 





0310 






OMB01A 

0147 

0140 





OM801P 

0159 

0136 





OHB02 

0176 

0158 

0162 




OMB02A 

0188 

0100 





DM803 

0199 

0818 





OMB03A 

0827 

0319 





OMB03B 

0889 

0145 





OM804 

0231 

0192 

0244 

0256 

0865 


OM805 

0841 






OMB0a 

0882 

0848 

0860 




OMB07 

0866 

0194 

0875 

0301 

0315 


OM808 

0283 

0879 

0309 




OM808A 

0287 

0885 





OMB09 

0298 

0890 





OM609A 

0307 

0305 





OMBNPF 

0U8 

0015 

0027 

0119 



OmBTRm 

0321 

0830 

0250 

0264 

0881 

0893 

DP03 

0034 

0155 





DP13 

0035 

0150 





OSEXIT 

0557 

0535 

0548 

0546 

0550 

0555 

END 

0106 

0130 

0149 

0211 

0405 


ENDP88 

0063 

0836 

0869 




EOSIGN 


0028 

0547 




ERROR 


0016 

0144 





0074 

0076 

0199 

0887 

0296 

0307 

0394 

0407 

0474 

0496 

0568 

0613 

0888 

0179 

0191 

0213 

0215 

0865 

0857 

0379 

0389 

0436 

0438 

0590 

0598 

0300 

0403 


0189 0130 


08Sr 0314 


011« 0141 

0829 0831 

0310 0316 

0424 0431 

0909 0587 


0193 

0819 0234 

0259 0867 

0398 0399 

0439 0441 

0498 0507 


0323 


0318 
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RfAOA 

0041 

RP 


8TRT 

0104 

svcalt 


TPHT 

0079 

WEOF 

0043 

WRITA 

0040 

WRTRO 

0613 


0181 


0017 

0322 

0129 

0151 

0024 

0185 

0292 


0223 


0177 


0208 

0221 


0443 0615 

0225 0230 


0271 


THERE ARE 0106 


SYMBOLS 




1 . 






























LOAD PROGGRAMMER 945398«i9901** PAGE 00«?2 


0003 




IDT 

’PROMLD» 

0004 



♦ TITUEI 

promlo 

0005 



* 


PROM LOAD 

0006 



* REVISION? 


0007 



♦ 


ORIGINAL 

0008 



* computers 

990fASM 

0009 



* A8STRACTI 

THIS program WILL LOAD THE PROM PROGRAMMER INTO 

0010 





MEMORY, ONE PART IS LOADED IN THE OVERLAY AREA 

00 U 





BY A CALL TO THE OVERLAY DRIVER, THE SECOND PAR 

0012 





IS LOADED INTO THE USER AREA BY CALLING THE LOA 

0013 



# 


driver and simulating an overlay call. 

0014 



* CAtUNG SEQUENCE 1 

0015 



Hr 


called from command STRING PROCESSOR 

0016 



* 


ENTRY • R10 POINTS TO COMMAND PARM LIST 

0017 



H 


DESTROYS RI,R8,R9,R18,R14 

0018 



t 



0019 




DEF 

PL 

0020 




REF 

INn»OVLY»LOA00V,PG8JAS 

0021 




REF 

PR0G82 

0022 



« 



0023 


0001 


IQU 

1 

0024 


0003 

R8 

£yu 

8 

0025 


•4000 

R9 

e:ou 

9 

0026 


000A 

Rli 

EQU 

10 

0027 


000B 

RU 

EQU 

1 1 

0028 


000F 

RIS 

EQU 

IS 

0029 



# 



0030 



# 


• 1-PROCEOLlRE PROM LOADtCPL POINTER) 

0031 


0000 » 

PL 

EQU 

1 

0032 

0000 

X3C0 


HQV 

R11,R15 SAVE RETURN ADDRESS 

0033 



♦ 


*2»CALL OVLYCCPL POINTER) 

0034 

0002 

06A0 


BL 

POVLY 


0004 

0000 




0035 



t 


•2-DFRIAS • LOC(INIT) • PROG SIZE 

0036 

0006 

0201 


LI 

R1,IMT 


0008 

0000 




0037 

000A 

C22f" 


MOV 

PPROGSZ,R« 


000C 

0000 




0038 

000E 

3043 


S 

R8,Rl 

0039 



Hr 


-2-POINTER ■ CPU POINTER 

0040 

0010 

C20A 


MOV 

K10,R8 

0041 

0012 

C278 


MOV 

*R8+,R9 

0042 

0014 

0A99 


SLA 

R9,9 

0043 



Hr 


-2-IF PARM(l) ,NE, NULL THEN 

0044 

0016 

1701 


JNC 

PU 

0045 



Hr 


-3-POINTER » POINTER ♦ 2 

0046 

0018 

0SC3 


InCT 

R8 

0047 


001 A* 

PU 

EQU 

» 

0048 

301 A 

3A19 


SLA 

R9,l 

0049 



♦ 


-2-IF PARM(2) ,NE, NULL THEN 

0030 

001C 

1701 


JNC 

PL2 

0031 





-3- BIAS ■ LOC(POINTER) 

0032 

0011 

C0S3 


MOV 

*R0,RI 

0033 


0020* 

PL2 

EUU 

S 


(_y 





tOAU PRQH PKOei;«AMMER 


R453»e-9901*« 


PAGE P003 


0054 

0020 

C601 

MOV 

Rl,#P0BIAS STORE PROG BIAS IN OVERLAY 


0022 

mm 



0055 


* 


-2*.CALL LOAOOVCCPU POI NTER , BI A81 

0055 

0024 

mm 

HI 

4L0ADDV 


0026 

0000 



0057 


* 


••l*gND PROM LOAD 

0050 

0028 

045F 

B 

*RIS 

0059 



END 


0000 1 

EPS 






i 
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960 • 

960 CQNCOHDANCi 



» 


0031 

0047 

0053 

INJT 


0020 

0036 


IPAOOV 


0020 

0036 


OVLY 


0020 

0034 


BG6IAS 


0020 

00 34 


PL 

0031 

0019 



PU 

0047 

0044 



PUi 

0053 

00S0 



PPQRSZ 


0021 

0037 


PI 

0023 

0036 

0036 

0052 

P10 

0026 

0040 



«li 

0027 

0032 



R15 

0026 

0032 

0056 


«8 

0024 

0037 

0036 

0040 

R9 

0026 

0041 

0042 

0046 


i^54 


0^41 


0046 


0052 


TMgRi ARt 


00i6 


SYMBOLS 



APPLICATION 


REVISIONS 


NEXT ASSY 


APPROVED 



SHEET 


REV STATUS 
OF SHEETS 


SHEET 


UNLESS OTHERWISE SPECIFIED 
DIMENSIONS APE IN INCHES 
TOLERANCES 
ANGLES Tl* 

3 PLACE DECIMAL ± 010 
2 PLACE DECIMAL ± 02 


IDENTIFYING NUMSERS 
SHOWN IN PARENTHESES 
FOR REFERENCE ONLY 




Texas Instruments 

INCORPORATED 

Eguipfmnt Group Dofkm, T9 mm 


AL, UPFLD, UP FRONT LA0DER-PX990 


SIZE COC3C lOCNT NO 

A 96214 



SHEET 1 of 16 

























/ 


SET VARlABil 

number op 

9IT8 949392-9901** PASf 0002 

EiiS 

# 

PROCEDU0E LOADERI 



THIS UOADER MAY BE U«EO TO PERPORM BOOT 

msis 

# 

STRAP LOAD, 

am« 

t 

CALLING PROiRAM8 MUST SPICIPY THE ADDRESS 

0S07 

♦ 

OP A <OETBIT» ROUTINE TO PfRPORM INPUT POR 

0008 

♦ 

THE LOAD PROCESS, 

0009 

t 

♦ ** 

0010 

♦ 

STAND-ALONE OPERATING PROCEDURE 

0011 

♦ 


0012 

# 

mount and POSITION THE CASSETTE TO THE FILE 

0013 


TO BE LOADED. AND PLACE THE DRIVE IN PLAY- 

0014 

* 

BACK MODI, PRES8 THE LOAD BUTTON ON THE 

0019 

* 

FRONT PANEL. IP NO ENTRY POINT IS 8NC0UNTIR0 

0016 

♦ 

DURING THE LOAD. CONTROL WILL BE RETURNED TO 

0017 

* 

THE FRONT PANEL. ELBE, CONTROL IS PASSED TO 

0018 

f 

THE LOADED PROGRAM AT THE SPECIFIED EP, 

8019 



0020 

* 

*** 

0021 

# 


0022 

t 

6ET8IT SOU 1 6ETB1T ENTRY POINT 

8023 

■t 

(SEE aGETBIT* POR PROG, 

8024 


DESCRIPTION) 

0029 

# 

PROCEOUREIROMBUT 

0026 

t 

CALL A8SLDR(PA0) 

8027 

♦ 

IP(ERROR)CALL 8PIN(S) 

0026 

♦ 

IPCPROG EP.NE.0) 

8829 

« 

THEN 

0030 


60 TO C(EP) 

8031 

♦ 

ELSE 

0032 


SO TO FRONT PANEL 

8033 

♦ 

ENOIP 

0834 

n 

END ROMiOOT 

0039 

# 

SUBROUTINE ABSLDR 

0036 

# 

GETIIT ■ A(SETBIT) 

8037 


DO UNTIL ENO OP MODULE 

8038 

# 

REPEAT CNTi0 

0039 


CKSMiOLO CK8M 

0040 


CALL GETBIT(VALUEf3,CLR) 

8041 

♦ 

00 CASE 

8042 

t 

ClIOO VALUE, IS, KTNDED TAG 

0043 

t 

CALL GETBIT(VALUE,4,CLR) 

8044 

♦ 

00 CASE 

8049 

t 

cnoo VALUE, EG, PGM NAME 

0046 

# 

CALL 6ETB1T(VALUI,7.CLR) 

8047 


NM8R CHARiANDCVALUE,»3P) 

8048 

♦ 

end 00| 

0049 

t 

00 WHILE NMBR CHAR.GE,0 

8090 

t 

CALL 6ETBIT(VALUE»7,CLR) 

8091 

t 

NMBR CHARfNMSR CMAR-l 

8892 

♦ 

End doi 

8893 

t 

END Cll 

8894 

* 

C2IO0 VALUf.EQ.ITRY POINT 

8899 

♦ 

CALL 6ET19 (VALUE) 

8098 


EPiiVALUB 



♦* UPFRONT LOADER ** 


9453fla«9fiPi** 


PACE 



00S7 

eesa 

0059 

0060 
0061 
0062 
0003 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 


* 

« 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

« 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 


IFfPARM AOOR,NE,0) 

C(PARM AOOR)«EP 
ENp C2 

C3I00 VALUE. EO. CHECKSUM 
TEMP«CK8M 
CALL 6ET19, VALUE 
IF (NOT f TEMP, EQ, VALUE). AND, 

NOT (SHC (TEMP, 8). E8. VALUE) 

ERROR RETURN 
END IF 
END C3 

C4I00 VALUE. EQ. END OF MODULE 
RETURN 
END C4 

C8ID0 VALUE. EQ, REPEAT TRIPLET 
CALL 6ETBIT(VALUE,7,CLR) 

REPEAT C0UNT«AND(VALUE,»3F) 

CALL GET16(VALUE) 

DO WHILE REPEAT COUNT. NE,0 
C(CURR ADOR)iVALUE 
CURR AOORaCURR At)0#2 
REPEAT COUNTfREPEAT C0UNT»1 
END DO 
END C6 

***N0TEl IN THE interest OF SPACE, 
*** THE CODE FOR THE ABOVE 

*** 18 INCLUDED IN THE 

*♦* PROCESSING FOR ABSOLUTE 

*** DATA triplets. 

END CASE 

C2ID0 VALUE, EQ.ABS WORD 
CALL GET16IVALUE) 

DO WHILE REPEAT COUNT, GT.0 
CtCURR AODR) ■VALUE 
CURR AD0R«CUR ADOR+2 
REPEAT COUNTiREPEAT COUNT-l 
END DO 

END C2 

CSIDO VALUE, EQ.ASS BYTE 

CALL 6ETBIT(VALUE,5,CLR) 

VALUEiSRL(VALUE,l) 

CALL 6ET8IT(VALUE,6,0R) 

C(CURR ADDR)b8HL(VALUE,2) 

CUR AODR«CURR ADDR+1 

END C3 

C4ID0 VALUE, EQ, LOAD ADDR 
CALL GETietVALUE) 

IF(PARM AODR.NE.O) 

CUR,ADDR«VALUE 

C(PARM AD0R4LDPT)iVALUE 

END C4 

C5JD0 VALUE.lt, >4 
ERROR RETURN 
ENO A8SL0R 
SUBROUTINE SET16 


** upfront LOADER ** 


94839a«t9ilt* 


PA5E 9094 


0U9 

t 

end SET16 r 

0113 

t 

SUiPOUTINi SETBIT ^ 

0114 

t 

♦♦♦START INPUT STREAM^^^ 

0119 

♦ 

QRUSA8Ei0 

0116 

■ t 

aiT.CQUNTii 

0117 


C8SMi0 

0118 

•# 

iNBiTSii 

0119 

♦ 

lNSi0 

0120 


RE ENTRY4A(GETB23 

0121 

♦ 

♦♦♦NEWRECORD^^^ 

0122 

* 

DO NHILE char.eq.lp 

0123 

♦ 

CHARiIN733 

0124 


END DO 

0125 


IP(CHAR,EQ.0EL)CHAR*IN733 

0126 


*«**«6ETCHAR^^^^^ 

0127 

# 

char ■ IN733 

0128 

if 

IF CHAR,EQ,»CR» NlwRECORO 

0129 

t 

CK8MiCKSM,X0R,CHAR 

0130 

H 

C884CNC(CB8»CHAR,C8C) 

0131 

t 

CBCiC9C^7 

0132 

# 

♦♦♦♦GETBT2 ♦♦♦♦♦♦♦ 

0133 

♦ 

IFfM00E.E0,CLR)RB8 ■B 

0134 

♦ 

IFCRBC.GT.CBOGtTCHAR 

0139 

n 

00 WHILE RSe.GT.B 

0136 

it 

CALL 8LA(RBSrl) 

0137 

H 

CALL SLACCBSfO 

0138 

it 

IFCCARRYJRBSiRBS^l 

0139 

* 

CBCiCBC-l 

0140 

♦ 

RBCiRBC*! 

0141 

♦ 

END 00 

0142 

H 

return 

0143 

0144 

* 

IDT »UPFLD» 

0-PROCEOURE loaoeri 

0149 

* 

2»THI8 LOADER MAY BE USED TO P 

0146 

if 

2»8TRAP LOAD, 

0147 

it 

2»CALLINS PROGRAMS MUST SPECIF 

0148 

if 

2«0F A €GETBIT> ROUTINE TO PER 

0149 

■ t 

2pTHE load PROCESSi 

0190 

♦ 

1 mt if it 

0191 

■if 

2.STAN0-AL0NE OPERATING PROCEO 

0192 

if 

l» 

0193 

it 

2.M0UNT AND POSITION THE CA88E 

0194 

it 

2*T0 BE LOADED, AND PLACE THE 

0159 

t 

2.BACK MODE. PRESS THE LOAD B 

0196 

« 

2-FRONT PANEL. IF NO ENTRY PO 

0197 


2-OURINC THE LOAD, CONTROL NIL 

0198 

# 

8-THE FRONT PANEL. ELSE, CONT 

0199 

t 

2-TME LOADED PROGRAM AT THE 8P 

0160 

* 

2- 

0161 

it 


0162 

it. 

2- 

0163 

# 

2-GETBlT EOU S GET8IT E 

0164 

it 

2- (SEE AGE 

0169 


2- DESCRI^ 

0166 

it 

♦♦♦ GETBIT PARAMETERS ♦♦♦ C 



** UPFRONT LOADfR ** 


945392»099I1«* 


PA9I 9005 


0187 

0000 

CLR 

EQU 

0 


0168 

FfFF 

OR 

EQU 

*1 


0169 


* 




0170 


* 


#**733 

A8R CONTROL » DATA EQUATES *** 

0171 


* 




0172 

0000 

DTR 

EQU 

9 


0173 

000A 

RTS 

EQU 

>A 


0174 

0008 

CLRWRO 

EQU 



0178 

000C 

CLRRRQ 

EQU 

► C 

CRU OUT READ REQUEST 

0176 

000C 

RRQ 

EQU 

AC 

CRU IN read REQUEST 

0177 

1100 

OCl 

EQU 

>1100 

READER «0N« COMMAND 

0178 

7P00 

DEL 

EQU 

A7P00 

*DELETE> 

0179 

0A00 

LP 

EQU 

A0A00 

•LINE FEED> 

0180 

0000 

CR 

EQU 

>0000 

•CARRIAGE RETURN* 

0181 


* 




0182 


* 




0183 


* 


***RE6I8TER ALLOCATION 

0184 


* 






** UPFRONT 

L.OAOIR 

** 


945992«9901** 

PA6E 0006 

0166 0160 


W8P 

BS8 

32 

W0RK8PACE F02 BOOTLOAOE2 r 

0167 


« 




0166 

0000 

m 

EOU 

0 

TiMPtiHIFT COUNT 8 IN0EXINS3 

0180 

0001 

21 

EQU 

1 

A0D2ES8 OFPQfTBITP 

0190 

0002 

22 

EQU 

2 

6ET9IT-IIT STRINS ON HAND 

0191 

0003 

23 

EQU 

3 

8ET8IT.# OF BITS IN 22 

0192 

0004 

24 

EQU 

4 

6ET16 TEHPCRTRN AOOR 6AVEJ 

0193 

0009 

29 

EQU 

9 

CURRENT LOAD A00RE88 

0194 

0006 

26 

EQU 

6 

REPEAT C0UNTINH8R CHAR 

0199 

0007 

27 

ECU 

7 

♦LIMITP 

0196 

0008 

28 

EQU 

8 

TEMP 

0197 

0009 

29 

EQU 

9 

ENTRY POINT OF LOADED PRO0RAM 

0196 

000A 

210 

EQU 

10 

♦VALUE* 

0199 

000i 

211 

EQU 

11 

AUTO SUBR, RETURN LINKAGE 

0200 

000C 

212 

EQU 

12 

CRUiASE 

0201 

0000 

213 

EQU 

13 

TEMP 

0202 

0000 

214 

EQU 

14 

♦CKSM* 

0203 

000F 

219 

EQU 

15 

AB8L0R RETURN ADDRESS 

0204 


* 




0209 


* 


♦♦♦ABSOLUTE 

DATA format DEFINITIONS 

0206 


* 




0207 

0002 

2LA 

EQU 

2 

RELOC.AOORfUNSUPPORTEO) 

0208 

0003 

20W 

EQU 

3 

RELOC.HORO (UNSUPPORTED) 

0209 

0004 

A820 

EQU 

4 

ABSOLUTE DATA HOROdSBITS) 

0210 

0009 

ABYT 

EQU 

9 

ABSOLUTE DATA BYTICS 8IT8) 

0211 

0006 

ALDA 

EQU 

9 

AB0L8UTE LOAD ADDRESS 

0212 

0007 

XTF 

EQU 

7 

EXTENDED TAG 

0213 


« 




0214 

0000 

iOM 

EQU 

0 

END OF MODULI 

0219 

0001 

PGN 

EQU 

1 

PROGRAM NAME 

0216 

0002 

2CI. 

EQU 

2 

PROGRAM length (UN8UPP0RTI0) 

0217 

0003 

AfF 

EQU 

3 

ABSOLUTE entry POINT 

0216 

0004 

2EA 

EQU 

4 

RELOC, ENTRY A002 (UNSUPPORTED 

0219 

0009 

CK8H 

EQU 

5 

CHECKSUM 

0220 

0006 

221 

EQU 

6 

REPEAT COUNT 



** UPPRONT UOAOIR *♦ 


94S3S@*R9R1«* 


PAGE 0007 


0282 



♦ 



0»PROCEDURElROM8UT 

0223 


0080’ 

AB88UT 

EQU 

8 


0284 

0080 

1001 


JMP 

ABS01 


0285 

0022 

100A 


JHP 

ABSLDR 

MONITOR CONTROL ENTRY POINT 

0286 


0084 > 

ABSfl 

EQU 

S 


0287 

0084 

02E0 


LWPI 

MSP 

WORKSPACE FOR BOOTLOADER 


0026 

0000’ 





088S 






l.CAUL ABSLDR (WA0) 

0289 

0088 

06A0 


BL 

#absldr 



008A 

0031 1 





0230 



n 



1-1FCERR0R5CALL SPIN(S) 

0231 

002C 

10Ff 


JMP 

s 

RETURNS HERE ON ABORT 

0232 



a 



IpIFtPROG EP.NE.0) 

0833 

002E 

C249 


MOV 

R9fR0 


0234 

0030 

1301 


JEQ 

BOOT! 


0835 






2-THEN 

0836 



n 



3-QO TO C(EP5 

0837 

0032 

0499 


B 

*R9 

EXECUTE PROGRAM 

0236 






2»EL8E 

0239 






S.GO TO FRONT PANEL 

0240 

0034 

0420 

eooTi 

BLWP 

08 

NO EP FOUND, ..trap TO PANEL 


0036 

0008 





0241 



* 



l»ENOIF 

0242 






0»ENO ROMBOOT 

0243 



* 



1-SUBROUTINE ABSLDR 

0244 


0038 t 

ABSLDR 

EQU 

S 

♦♦♦ENTRY POINT 

0245 

0038 

C3C8 


MOV 

RiifRie 

SAVE RETURN ADDR 

0246 



♦ 



1-6ETBIT i A(GETBIT) 

0247 

003A 

0201 


LI 

RlfGETBlT 

ADDR, OF GETBIT 


003C 

0118* 





0248 

003E 

04C9 


CLP 

R9 

clear entry point 

0849 

0040 

04C3 


CLR 

R3 

CLEAR BIT COUNT 

0850 

0042 

04CE 


CLP 

R14 

CLEAR CHECKSUM 

0851 






1-00 UNTIL END OF MODULE 

0252 


0044’ 

ABet 

EQU 

8 


0253 






1-REPlAT CNT10 

0254 

0044 

04C6 


CUR 

R6 


0855 






1-CK8M«0LD CKSM 

0256 

0046 

C20E 


MOV 

R 1 4 f R8 

WILL GET CLOBBERED IF TAG 

0257 






IS NOT CKSM, BUT OOfSNT 

0258 






MATTER IN THIS CASE 

0859 



* 



2-CALL 6ET8IT(VALUi.3.CLR) 

0260 



* 



2-00 CASE 

0261 



« 



3-CllDO VALUE.EO.XTNOEO TAG 

0262 

0048 

0691 


bl 

*R1 

GET A TAG IN R10 

0263 

00 4 A 

00 


BYTE 

CUR»3 



004B 

03 





0264 

004C 

028A 


Cl 

R10rXTF 

CHECK FOR EXTENDED TAG 


004E 

0007 





0265 

0050 

1832 


JNE 

ABU 

JUMP FNOT 

0266 



t 



4-CALL 6ETiITtVALUE,4.CLR5 

0267 

0052 

0691 


BL 

*Rl 


0268 

0094 

00 


BYTE 

CLR, 4 



0059 

04 






** UPFRONT LOADER ** 


94S3sa»i9pi** PASS mu 


8269 



♦ 



8270 



# 



0271 

0056 

02BA 


Cl 

R10,F6N 


0058 

0001 




0272 

00 5 A 

160A 


JNE 

AB07 

0273 



# 



0274 

008C 

0691 


BL 

*R1 

0275 

00SE 

00 


BYTE 

CLR,7 


005F 

07 




0276 



* 



0277 

0050 

024A 


ANOI 

R10,w8F 


0062 

003F 




0278 

0064 

C18A 


MOV 

R10,R6 

0279 



♦ 



0280 



# 



0281 


00661 

AI04 

ECU 

S 

0282 



t 



0283 

0066 

0691 


BL 

*H1 

0284 

0068 

00 


BYTE 

CLR,7 


0069 

07 




0285 



t 



0286 


006AI 

A8i8 

EQU 

8 

0287 

006A 

0606 


DEC 

R6 

0288 

006C 

IBFC 


JH 

AB04 

0289 



♦ 



0290 



♦ 



0201 

006E 

10EA 


JMP 

AB01 

0292 



A88? 



0293 



♦ 



0294 

0070 

028A 


Cl 

R10,AEP 


0072 

0003 




0295 

0074 

1604 


JNE 

AB08 

0296 



# 



0297 

0076 

06A0 


BL 

PSET 1 9 


0078 

00F6 1 




0298 



t 



0299 

007A 

C24A 


MOV 

Rli,R9 

0300 



« 



0301 






0302 



♦ 



0303 

007C 

10E3 


JMP 

AB01 

0304 


007EI 

ASUS 

EQU 

S 

0308 



♦ 



0306 

007E 

02BA 


Cl 

Rli,CK8M 


0080 

0005 




0307 

0082 

160A 


JNE 

AB10 

0308 



t 



0309 

0084 

C20E 


MOV 

R14,R8 

0310 






0311 

0086 

06 A0 


BL 

PQET19 


0088 

00F6» 




0312 



A 



0313 



t 



0314 



t 



0318 



♦ 




4*00 CASE 

SwCllOO value. EQ.P8M NAPE 


a-CALL OETBITtVALUf f7,CLR3 


a»NMSR CHARiANO(VALUEiPSF) 


7-END DOI 

7»00 WHILE NMBR CHAR, 81,0 
RECALL GET8ITCVALUI.7.CLR) 

B»NHiR CHARiNHBR CHAR»1 

7«END OOf 
SfEND Cll 

5i*C8lD0 VALUE.EO.IfRY POINT 

l-CALL SETlfCVALUfJ 

6»EP«VALUI 

8»lFfPAiM AOOR.NE^aj 
0ii CCPARM ADDRMiP 
S»ENO C2 

9»Cai00 VALUI.ffl’,CMECR8UM 


a.TiMPtCWSM 
a»CALL GETlOiVALUE 


♦•N0TEI81NCE POP iTTES SINCE 
LAST CK8N MAY SE EITHER EVEN 
OR 000, CANO Wf DON I T KNOW 
WHICH)., WE ILL SETTLE FOR A 



** uppront loader ♦* 


94530a«S9?tl** 


PAGE Pii9 


0316 



* 



MATCH-UP ANY WAY WE CAN MAKE 

0317 






IT HAPPEN 

0310 






6-IF (NOT (TEMP, EQ, VALUE), AND, 

0319 






6- N0T(8HC(TEMP,8),E0.VALUE) 

0380 



* 



6* ERROR return 

0381 

008A 

04CE 


CLP 

R14 

CLEAR CHECKSUM FOR NEXT TIME 

0322 

008C 

6288 


C 

R6,R10 


0383 

008E 

13DA 


JEO 

AB01 

CK8M 0K-PR0CE88 NEXT DATA 

0324 

0090 

06C8 


SWPB 

R6 


0385 

0092 

8288 


C 

R6fR10 

CK8M OK-PRCESS NEXT DATA 

0326 

0094 

13D7 


JEQ 

AB01 


0387 

0096 

1004 


JMP 

ABU 

BAD CHECKSUM, .ERROR EXIT 

0386 






6-END IF 

0389 






5»END C3 

0330 


0098 > 

AB18 

EQU 

S 


0331 



a 



8-C4i00 VALUE, EQ, end OF MODULE 

0332 

0096 

028A 


Cl 

R10»EOM 



009A 

0000 





0333 

009C 

1602 


JNE 

AB12 


0334 



♦ 



6-RETURN 

0335 

009E 

05Cf 


INCT 

R18 

SUCCESSFUL LOAD 

0336 


00A0’ 

ABU 

EQU 

S 

HERE FOR ERROR 

0337 

00A0 

045P 


0 

*R15 


0336 



t 



B-ENO C4 

0339 


00A2* 

ABIB 

EQU 

S 


0340 






8-C8ID0 VALUE,E0.REPEAT TRIPLE 

0341 

00A2 

028A 


Cl 

R10»RPT 



00A4 

0006 





0342 

00A6 

16FC 


JNE 

ABU 

UNSUPPORTED EXTENDED TA8 

0343 



« 



8-CALL QET81T(VALUE,7,CLR) 

0844 

00A6 

0691 


BL 

*R1 


0345 

00AA 

00 


BYTE 

CLRi7 



00AB 

07 





0346 



♦ 



6-REPEAT COUNTiANO (VALUE r>3F) 

0347 

00AC 

C18A 


MOV 

R10fR6 


0346 

00AE 

0246 


ANOI 

R6,»3F 



0000 

003P 





0349 



♦ 



6-CALL SET16(VALUE) 

0350 



♦ 



6-00 WHILE REPEAT COUNT, NE.0 

0351 



« 



7-C(CURR AODR)iVALUE 

0352 






7-CURR ADDRfCURR ADD*2 

0353 



♦ 



7-repeat count-repeat count-1 

0354 






6-ENO DO 

0355 



♦ 



8-ENO C5 

0356 



♦ 



7-***notei in the interest of 

0357 






7-*** THE CODE FOR THE AB 

0358 






7-*** IS INCLUDED IN THE 

0359 



« 



7-*** PRQCESSINO FOR ABSO 

0360 



t 



7-*** data triplets. 

0361 

0002 

0691 


BL 

*01 


0362 

0004 

00 


BYTE 

CLR»3 



0005 

03 





0363 



« 



4-END CASE 

0364 


00861 

ABU 

EQU 

t 


0368 



# 



3-C2I00 VALUE. EQ,AB8 WORD 


c 



** gPFRDNT LOADER ** 


94939t«99Ri** 


PASi 0019 


0366 

0086 

028A 


Cl 

R10f ABMO 



0088 

0004 





0367 

008A 

1606 


JNI 

AB19 


0366 






4-CALL GETiaCVALUE) 

0369 

00BC 

06A0 


BL 

P8ET16 



00BE 

0104' 





0370 



# 



4-00 WHILE REPEAT COUNT. GT.0 

0371 


00C0t 

ABI4 

EOU 

$ 


0372 



t 



5-CCCURR ADDRj-VALUe 

0373 



# 



S-CURR ADDRwCUR ADORER 

0374 

0iC0 

CD4A 


MOV 

Rl0f«P54 


0379 



* 



5-REPEAT COUNT-REPEAT COUNT-1 

0376 

00C2 

0606 


DEC 

R6 


0377 

00C4 

16P0 


JGT 

AB14 


0378 

00C6 

10SE 


JMP 

AB01 


0379 






4. END 00 

0360 






3-ENO C2 

0361 


00C8' 

AB15 

EOU 

S 


0382 






3-C3I00 VALUE. EQ.AB8 BYTE 

0383 

00C8 

026A 


Cl 

R10,ABYT 



00CA 

0005 





0384 

00CC 

1608 


JNE 

AB16 


0388 



* 



4-CALL GETilTtVALUE.S.CLR) 

0366 

00CE 

0691 


BL 

*R1 


0387 

00D0 

00 


BYTE 

CLR»6 



0001 

05 





0388 



♦ 



4-VALUEi8RL(VALUE,n 

0389 

0002 

091A 


SRL 

R10f 1 


0390 






4-CAUL GETBIT(VALUE»6,0R) 

0991 

0004 

0691 


BL 

*Rl 


0392 

0006 

FF 


BYTE 

OR, 6 



0007 

06 





0393 



♦ 



4-C (CURR AOOR) wSHL (VALUE 1 2) 

0394 






4-CUR AOORiCURR A00R41 

0399 

0008 

0A6A 


SLA 

R10f6 

EOZV TO 8L 2 # 8WPB 

0396 

00DA 

D04A 


Move 

R10,*R9* 


0397 



* 



3-ENO C3 

0398 

00OC 

1083 


JMP 

AB01 


0399 


00OE* 

ASIS 

EOU 

S 


0400 



♦ 



3-C4I00 VALUf.EO.LOAO ADOR 

0401 

00OE 

028A 


Cl 

R10iALDA 



00E0 

0006 





0402 

00E2 

1608 


JNE 

AB17 


0403 



♦ 



4-CALL 6ET16 (VALUE) 

0404 

00E4 

06A0 


BL 

PSETie 



00E6 

0104* 





0408 



* 



4-lF(PARM ADOR.NE.0) 

0406 



t 



4-CUR, AOOR-VALUi 

0407 

00E8 

C14A 


MOV 

Ri0»R8 


0408 



♦ 



4- C(PARM A0DR4L0PT)fVALUI 

0409 

00EA 

C21F 


MOV 

*R19«R8 


0410 

00EC 

13AB 


JEO 

AB01 


0411 

00EE 

08C8 


INCT 

RB 


0412 

0iF0 

C60A 


MOV 

R10»*R8 



9413 


* 


3»IN0 C4 



** UPPRONT UOAOER ♦* 


1414 

e0F2 

IBAB 


»419 




i416 



* 

6’417 


BBP4I 

ABtr 

B41S 

00P4 

10D9 


9419 


* 

9480 



t 


848392»S9P1*« 
JMP AB01 

EOU S 
JMP ABH 


PAGE BBli 


S.CSIOO VALUE. LT,»4 
4.ERROR RETURN 

IP VALUE. BE, 4, WE WOULONT 
BE HERE 
i»ENO AB8L0R 



SIT 18 

BITS 

FROM STREAM 


94B392* 

9901*« PAGE 0012 


1423 



* 



1»8UBR0UT1NE 6ET16 

8424 


00F6» 

GET19 

EQU 

S 



8425 

00F6 

C10B 


MOV 

RUiR4 



8426 

00F8 

0691 


BL 

*R1 



8427 

00FA 

00 


BYTE 

0,3 




00FB 

03 






0428 

00FC 

028A 


Cl 

R10,A6WO 




00FE 

0004 






0428 

0100 

1302 


JEO 

GET19A 



0430 

0102 

10Ce 


4MP 

ABU 



0431 


0104< 

8ET16 

EQU 

S 

♦♦♦ENTRY POINT*** 


0432 

0104 

C10B 


MOV 

RU,R4 

SAVE RETURN 


0433 


0106* 

5ET19A 

EQU 

S 



0434 

0106 

0691 


BL 

*Rl 



0435 

0108 

00 


BYTE 

0,5 




0109 

05 






0436 

010A 

091A 


8RU 

R10,l 

DISCARD TAG FROM 

NEXT CH', 

0437 


010C* 

9iTl2A 

EQU 

$ 



0438 

010C 

0691 


BL 

*R1 

t OR IN NEXT 7 

BITS 

0439 

010E 

FF 


BYTE 

• 1,7 




010F 

07 






0440 

0110 

091A 


8RL 

Rlifl 

DliCIRO TAG FROM 

3RO BYTE 

0441 

0112 

0691 



*Rl 

S OR IN NEXT a 

BITS 

0442 

0114 

FF 


BYTE 

'•1,6 




0115 

06 






0443 

0116 

0454 


S 

#R4 

RETURN TO CAUUIR 


0444 



* 



l»ENO GET IS 




SET VARIABU NUHBER OE BITS 


94539S»99B1** 


PA6E i0l3 


B447 



♦ 



1*8U8R0UTINE QETBIT 

0448 


0118’ 

GETBIT 

EQU 

S 

***ENTRY POINT**** 

0449 







0459 






initialize QETBIT VARIABLES 

0451 



♦ 



1»***8TART input STREAM*** 

0452 






l»CRUBA8Ea0 

B45S 

0116 

020C 


LX 

Rl2r>0 



0114 

0000 





0454 






!• BIT.COUNTtB 

0455 

011C 

1009 


SBO 

OTR 


0456 

01 IE 

1O0A 


SBO 

RTS 


0457 

0120 

1O0B 


SBO 

CLRWRO 


0458 

0122 

1D0C 


SBO 

CLRRRO 


0459 

0124 

0202 


LI 

R2,0Cl 



0126 

1100 





0469 

0126 

3202 


LOCK 

R2i8 


0461 



* 



li.CK8M*0 

0462 






1»1N0IT8*0 

0463 



* 



l»IN0i0 

0464 

012A 

386E 


MPY 

Rl4rR2 


0465 



* 



l»RE INTRYiAeSETiai 

0466 

012C 

0201 


LI 

R1,SETBT2 



012E 

016A’ 





0467 


0130’ 

Gsai 

EQU 

S 


0468 



♦ 



im ***newrecord*** 

0469 



♦ 



2*00 WHILE CHAR.EO.LF 

0470 

0130 

lEec 


SBZ 

CLRRRQ 

CLEAR READ REQUEST 

0471 


0132' 

Gsea 

EQU 

S 


0472 

0132 

IF0C 


TB 

RRO 


0473 

0134 

18FE 


JNE 

GB02 

WAIT POR READY 

0474 



t 



S»CHAR*IN733 

0475 

0136 

04C0 


CLR 

R0 


0476 

0136 

35C0 


STCR 

R0,7 


0477 

013A 

0260 


Cl 

R0»LF 



013C 

0A00 





0478 

013E 

1SF8 


JEQ 

GB01 


0479 






3*EN0 DO 

0480 






1»IP(CHAR.E0,0EL5CHAR*IN733 

0401 

0140 

0260 


Cl 

R0,DfL 



0142 

7P00 





0462 

0144 

1605 


JNI 

6B06 


0483 



# 



1 w«***«(}ETCHAR***** 

0484 


0146' 

GB04 

EQU 

S 

HERE TO GET ANOTHER CHARACTER 

0485 

0146 

1E0C 


SBZ 

CLRRRQ 

CLEAR READ REQUEST 

0486 


0148' 

QB09 

EQU 

$ 


0487 

0146 

1F0C 


TB 

RRQ 


0488 

014A 

16FE 


JNE 

GB05 

WAIT FOR CHARACTER 

0489 



♦ 



1»CHAR f 1N733 

0490 

014C 

84C0 


CLR 

R0 

GET THE CHAR, 

0491 

014E 

38C0 


8TCR 

R0,7 

FROM THE CRU 

0492 



♦ 



l*IF CHAR.EQ.'CR' NlWRECORD 

0493 


8180' 

6BB6 

EQU 

S 

CHECH FOR end of RECORD 

0494 

0150 

0280 


Cl 

R0,CR 

IF EOfi, 60 START ANOTHER 


0182 

0D00 








GfT variable number OR BITS 


94839t«99fl#* 


RAGE 0014 


049B 

0184 

13B0 


JEQ 

GB0 1 

B490 

0497 

0188 

2880 

t 

XOR 

R0,R14 

0498 

0158 

08CE 


SHPB 

R14 

0499 

0800 

018 A 

0A10 

# 

SLA 

R0,1 

0801 

018C 

C0C3 


MOV 

R3,«3 

0809 

018E 

1309 


JEQ 

GB08A 

0803 

0180 

A003 


A 

R3#R0 

0804 

0169 

0900 


SRL 

R0.R0 

0808 


0164» 

6Bi0A 

EQU 

$ 

0806 

0164 

E060 


SOC 

R0,R2 

0807 

0808 

0180 

0923 

# 

AI 

R3,7 

0809 

0810 

0168 

0007 

016A' 

0tTiT8 

EQU 

i 

0SU 

0819 

0813 

016A 

C01B 

# 

MOV 

♦ R1 1 #R! 

0814 

016C 

D000 


Move 

RiiR0 

0818 

016E 

1601 


JNE 

GB07 

0816 

0170 

04CA 


CLR 

R10 

0817 

0818 


0172* 

6Bi7 

EQU 

s 

0619 

0890 

0821 

0172 

5000 


szce 

R0fR0 

0829 

0174 

80C0 


c 

R0,R3 

0823 

0176 

1BE7 


JH 

GB04 

0824 

0628 

0826 


01781 

♦ 

5B0S 

EQU 

1 

0027 

0828 

0829 

0178 

0A1A 

t 

SLA 

Rl0il 

0830 

0831 

017A 

0A19 


SLA 

R9il 

0839 

0833 

017C 

1701 


JNC 

GB09 

0834 

0171 

086A 


INC 

R10 

0838 


0180t 

QBifS 

EQU 

S 

0836 

0837 

0180 

0603 

if' 

DEC 

R3 

0838 

0839 

0182 

0600 

t 

DEC 

R0 

0840 

0841 

0164 

1BR9 

* 

JH 

6B08 

0842 

0843 

0188 

08CB 


INCT 

Rll 

0844 

0848 

0188 

0488 


RT 

END 

AB88UT 

0000 1 

ERS 






PtSCQR'O 

l»CK8MiCK8M'.V0R,CHAR 


l»CB8tCNCCCB8fCHARfCBCr 
LEFT justify THI > DATA BITS 
AVOID 18 BIT SHIRT 

NQN.ZER0 SH COUNT IN R0 
SHIRT CHAR BY NO BITS ON HAND 

OR IN NIH BITS 
luCBClCBCfR 
UPDATE CURR BIT COUNT 

1»****i6BTBT9******* 
♦♦•SECONDARY ENTRY POINT 

l*IRfMOOE.EO,CLR5RB8 f0 
GET parameters 

JUMP IP R10 HAS GOOD DATA 
ELSE, CLEAR OUT TRASH 


1«IRCR0C.GT.CBC)9ITCHAR 
CLEAR THE MODE RLAG 
CMPR RG8T TO BITS ON HAND 
JUMP TO GET MORE BITS 

1»00 HHILE RBC,6T.0 


9»CALL SLACRBS,!) 
2»CALL SLACCBS,!) 
2.|RCCARRY3RBSiRB8*l 


GwCBCfCBCol 

9i«RBCMR6e*l 

DECR REQUEST COUNT AND 
l*ENO 00 

REPEAT IP NOT DONE 
0iiltETU^N 

INCREMENT RETURN ADDRESS 


Ki 





945392-9901** 
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960 • 980 CONCORDANCE 



i 


0223 

0226 

0231 



0396 

0339 

0364 



0433 

0437 

0448 



0510 

0518 

0526 

AB01 

02B2 

0291 

0303 

0323 

A804 

0261 

0288 



A605 

0286 




4607 

0292 

0272 



AB08 

0304 

0295 



AB10 

0390 

0307 



ABU 

0996 

0327 

0342 

0418 

AB12 

0399 

0333 



AB13 

0364 

0265 



ABU 

0371 

0877 



ABIS 

0381 

0367 



ABI6 

0399 

0384 



ABU 

0417 

0402 



AB801 

0226 

0224 



ABdBUT 

0223 

0545 



A6BL0R 

0244 

0225 

0229 


AB80 

0209 

0366 

0428 


ABYT 

0210 

0363 



AEP 

0217 

0294 



ALOA 

0211 

0401 



BOOTl 

0240 

0234 



CK8H 

0219 

0306 



clr 

0167 

0263 

0268 

0275 

CI.RRRQ 

0175 

0458 

0470 

0485 

CtRWRD 

0174 

0457 



CR 

0180 

0494 



OCi 

0177 

0459 



OEl 

0178 

0461 



OTR 

0172 

0455 



EOH 

0214 

0392 



6B01 

0467 

0478 

0495 


GB02 

0471 

0473 



6B04 

0484 

0523 



GB05 

0466 

0488 



QB06 

0493 

0482 



6B06A 

0506 

0502 



6607 

0516 

0515 



6608 

0526 

0541 



6B09 

0535 

0593 



6ET12A 

0437 




6ET16 

0431 

0369 

0404 


6CT19 

0424 

0297 

0311 


GET19A 

0433 

0429 



8ET8IT 

0448 

0247 



6ET8T2 

0510 

0466 



I.F 

0179 

0477 



OR 

0168 

0392 



P6l 

0216 




PGN 

0215 

0271 



R0 

0188 

0475 

0476 

0477 



0503 

0504 

0504 



0522 

0539 


R1 

0189 

0247 

0262 

0267 



0426 

0434 

0438 

R10 

0196 

0264 

0271 

0277 



0332 

0341 

0347 


0244 

0292 

0281 

0286 

0304 

0390 

0371 

0361 

0399 

0417 

0424 

0431 

0487 

0535 

0471 

0484 

0486 

0493 

090 9 

0326 

0378 

0398 

0410 

0414 



(I43{| 


0284 0345 0362 0387 


0481 

0490 

0491 

0494 

0497 

0900 

0006 

0513 

0514 

0514 

0521 

0921 

0274 

0283 

0344 

0361 

0366 

0391 

0441 

0278 

0466 

0294 

0299 

0306 

0322 

0325 

0366 

0374 

0383- 

0389 

0399 

0396 




0401 

0407 

0412 

ill 

0199 

0245 

0429 

0432 

R18 

mm 

0493 



R13 

0201 




R14 

0202 

0290 

0296 

0309 

R18 

0203 

0249 

0339 

0337 

R8 

0190 

0499 

0460 

0464 

R3 

0191 

0249 

0901 

0901 

R4 

0192 

0428 

0432 

0443 

R5 

0193 

0374 

0396 

0407 

R6 

0194 

0294 

0278 

0287 

R7 

0195 




RS 

0196 

0296 

0309 

0322 

R9 

0197 

0233 

0233 

0237 

ROW 

0208 




RCA 

0218 




RUA 

0207 




RPT 

0220 

0841 



RRO 

0176 

0472 

0487 


RTS 

0173 

0496 



RSP 

0186 

0227 



XTR 

0212 

0264 
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0428 

0436 

0440 

0916 

0929 

0934 

0913 

0943 





0321 

0409 

0464 

0497 

0498 



0906 

0931 





0903 

0908 

0922 

0937 



0347 

0348 

0379 




0324 

0329 

0409 

0411 

0412 


0248 

0299 
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CCl.0A0»CARD/CA98iTTf i,OAOER 943344*9t03 9fV*^ 


0003 

0004 * 

0009 * 

0005 * 

0007 * 

000S * 

0009 * 

0010 * 

00U * 

0012 « 


0013 * 

0014 * 

0019 * 

0016 * 

0017 * 

0018 * 

0019 * 

0020 * 

0021 • 

0022 * 


IDT »CCI-OAD» 

TITUfCClOAD • CARD/CASSETTE LOAOIR, 

AUTHORP 4, ALIEN, 

COMPUTERP 990 / AS8EH0L7 LAN6UA8E, 

A08TRACTP THIS MODULE C0NTIAN8 TWO ROUTINESI THE 

* FRONT PANEL SUPPORT ROUTINE AND THE LOADER 

* ROUTINE, 

STATISTICSt THE FRONT PANEL ROUTINE CHECKS ITS 

* R1 POP A VALUE OF P99P0, IF THI8 VALUE IS 

* FOUND, RUN IS enabled AND A BRANCH IS TAKEN 

* TO THE address SPECIFIED IN R0, THIS ALLOWS 

* AN EXTERNAL PROCESSOR TO SAIN CONTROL OF THE 

* restart trap, the loader software consists 

* OF TWO CO-ROUTINESI QN| FOR THE LOAD FUNCTION 

* AND ONE FOR CHARACTER I/O PROCESSING, AN 

* EXTERNAL PROCESS COULD DO CHARACTER I/O 

* PROCESSING FROM ANOTHER PERIPHERlAt DEVICE 

» AND USE THE R0M*RE6I0ENT LOADER CO«ROUTINE 

p FOR THE LOAD FUNCTION, LOCATION *FFFA CONTAINS 

* THE ENTRY TO THE LOADER CO«ROUTlNE, 



CCl0A0*CAR0/C*8SeTTE LOADER 943344-9903 REV*^ PAGE 0003 


0094 

FE00 



AQR6 

PFE00 

0025 



* TITLE ■ 

PANEL - 990 FRONT PANEL PROGRAM 

0026 



* REVISION 

■ 24JUN79 

0027 



* 


INCORPORATE NEW H/W FEATURES 

0026 




♦ 

10/01/75 • INCORPORATE INTO CASSETTE LOADER 

0029 





• 8TNADAR0 REGISTER NAMES 

0030 



« 



0031 



* COHPUTER 

■ 990fMIRA 

0032 






0033 



* A68TRACT 

• THIS ROUTINE DRIVES THE FRONT PANEL FOR THE 

0034 



* 


990 COMPUTER, 

0035 



* 



0036 



* 



0037 



* 



0036 


0000 

R0 

EQU 

0 

0039 


0001 

R1 

EQU 

1 

0040 


0002 

R2 

EQU 

2 

0041 


0003 

R3 

EQU 

3 

0042 


0004 

R4 

EQU 

4 

0043 


0009 

R9 

EQU 

9 

0044 


0006 

R6 

EQU 

6 

0045 


0007 

R7 

EQU 

7 

0046 


0009 

R8 

EQU 

8 

0047 


0009 

R9 

EQU 

9 

0048 


000A 

R10 

EQU 

10 

0049 


0006 

Rll 

EQU 

ll 

0090 


000C 

R12 

EQU 

12 

0091 


0000 

R13 

EQU 

13 

0092 


000E 

R14 

EQU 

14 

0093 


000P 

R19 

EQU 

19 

0094 



* 



0099 



* 



0096 



* 



0097 



* 

PANEL CRU BIT ASSIGNMENTS 

0056 



* 



0099 


IFE0 

CRUOFF 

EQU 

PIFE0 

0060 


0009 

SCAN 

EQU 

8 

0061 


0008 

TYPE 

EQU 

8 

0062 


0009 

8WP8 

EQU 

9 

§063 


0009 

clear 

EQU 

9 

0064 


000 A 

RUNU6T 

EQU 

10 

0069 


000 A 

TIMER 

EQU 

10 

0066 


0006 

FP8IT 

EQU 

11 

0067 


0000 

8TIME 

EQU 

13 

0068 


000E 

MANTPL 

EQU 

14 MAINTANCE panel present- 

0069 


000E 

8IEFLG 

EQU 

14 

0070 



* 



0071 


FE00 

FP8TRT 

EQU 

% 

0072 



* 



0073 



* 

INITALI2E values 

0074 



* 



0079 

FE00 

020C 

8TART 

LI 

R12»CRU0FF LOAD CRU OFFSET 


FE02 

IFI0 





0076 


CCLOAO»CARO/CASSfTTE lOAOfR ©43344-9983 PASf 8884 


m77 



* 

DETERMINE H/W 

confiouration 

9WB 



* 





§079 

7E84 

8221 


AI 

Rlf«»98i0 


EXTERNAL SIEf 


PE06 

6700 






@090 

7108 

1882 


JNE 

FP 


NO - 

8081 

FE0A 

1O0A 


SBO 

RUNL6T 



8082 

FE0C 

0458 


6 

•R0 



8083 


FEiE 

FP 

EQU 

S 



8084 

FE0E 

8209 


LI 

R9»»A8 


LOAD BIAS 


PE10 

08A0 






8085 

7E12 

04Cf 


CLR 

R8 


LOADER SELECT SWITCH 

8088 

FEM 

1F0S 


TB 

FP8IT 


TEST FOR FP PRESENT 

8087 

FE16 

13F2 


JEO 

LOAOFN 


JUMP TO LOADER FUNCTION 

8088 

FE18 

C06E 


MOV 

R14rR2 


MOVE PC TO DATA WORD 

8089 



* 





8080 



* 

MAIN LOOP TO 

scan 

SWITCHES FOR KEY DEPRESSION 

009i 



* 





8082 

FEIA 

3202 

UOOP 

LOCR 

R2f8 


OUTPUT M8H LISMTS 

8893 

Ft 1C 

3228 


LDCR 

PFPWP4.5,0 


OUTPUT LSH LISHTS 


FEIE 

F808 






8094 

FE20 

0205 


LI 

R5,WAIT 




FE2E 

FE7C 






8898 


FE24 

OFF 

EQU 

S 



8090 

FE24 

0695 


8L 

*R5 



8897 

FE28 

16FE 


JNE 

OFF 



0098 

FE28 

0695 


BL 

«RS 



8099 

FE2A 

16FC 


JNE 

OFF 



8100 

FE2C 

04C1 


CLR 

Rl 



eiil 


FE2E 

LOOK 

EQU 

S 



8102 

FE2E 

IP08 


SBO 

SCAN 



8103 

FE30 

0695 


BL 

*R5 



0184 

FE32 

13FD 


JEQ 

LOOK 



0105 

Ff 34 

089^5 


BL 

*P5 



8108 

FE38 

13F8 


JEQ 

LOOK 



8187 

FI38 

IF89 


TB 

SMPB 


CHICK FOR INPUT OF LSH OF 

8108 

FE3A 

1881 


JNE 

OVER 


IF NOT, SKIP SWAP 

8109 

FE3C 

08C1 


SWPB 

Rl 


SWAP DATA TO LSH OP WORO 

0110 

FE3E 

1F08 

OVER 

TB 

TYPE CHECK 

FOR 

DATA OR FUNCTION KEY 

8111 

FE40 

1302 


JE0 

FUNC 


JUMP TO FUNCTION 

8112 



« 




PR0CESS1N8 IF SIT 

8113 

FE42 

2861 


XQR 

RlfR2 


T066LE DATA 

8114 

FE44 

181 A 


JMP 

LOOP 


PROCESS NEXT KEY 

8115 

FE46 

0ACS 

FUNC 

CLR 

R5 


CLEAR INDEX RES 

8118 

FE48 

06C5 

CHEK 

INCT 

R5 


INCREMENT INDEX R 

0117 

FE4A 

0A11 


SLA 

Rl.l 


SHIFT DATA TILL DETECT 

8118 

FE4C 

17F0 


JNC 

CHEK 


CHECK NEXT BIT 

0119 



« 




IF NONE FOUND 

8120 

FE4E 

04A5 

EXEC 

X 

#TA8LE-2CR85 

EXECUTE FUNCTION 


FE50 

FES2 






0121 

FE52 

10E3 


JMP 

LOOP 


PROCESS NEXT KEY 

8122 


FE54 

TABLE 

EQU 

S 



0123 

FE64 

1013 


JMP 

SIE+l-EXEC-1 

PROCESS 8IE 

8124 

FE56 

1811 


JMP 

RUN4-I-EXEC-1 

PROCESS RUN 

8125 

FE58 

0380 


R8ET 



RESET 

8128 

FE5A 

1005 


JMP 

LOAOFN*f.EXEC» 

1 PERFORM LOAD 





CCU0A0«C>RD/CA88fTTE 1.0A0ER 945344«99i3 «EV*^ 


0127 

012S 

PE5C 

C08D 

* 

MOV 

Rl3»Rt 

8129 

FE5E 

C08E 


MOV 

R14.R2 

0130 

FE60 

C0BF 


MOV 

R15»R2 

0131 

0132 

FE62 

C087 

« 

MOV 

R7,R2 

BUS 

FE64 

C342 


MOV 

R2»R13 

0134 

FE66 

C362 


MOV 

R2,R14 

0135 

FE68 

C3C2 


MOV 

R2iRlS 

0136 

0137 

FE6A 

C1C2 

* 

MOV 

R2,R7 

0136 

FE6C 

C097 


MOV 

*R7,R2 

0139 

FE6E 

05C7 


INCT 

R7 

0140 

FE70 

C5C2 


MOV 

R2»*R7 

0141 

FE72 

04C2 


CLR 

R2 

0142 



* 



0143 

FE74 

1O0A 

RUN 

SBO 

RUNLGT 

0144 

FE76 

0380 


RTWP 


0145 

FE76 

1O0E 

SIE 

SBO 

sieflg 

0146 

FE7A 

0380 


RTWP 


0147 


FE7C 

WAIT 

EQU 

S 

0146 

FE7C 

1000 


SBO 

8TIME 

0149 

FE7E 

1F0A 

WA1T2 

TB 

TIMER 

0150 

FE80 

UFE 


JNE 

WAIT2 

0151 

FE82 

3601 


STCR 

Rli8 

0152 

FE84 

045B 


RT 



PA6E 9005 


WP mmp DATA 
PC mmW DATA 
ST DATA 
HA mm* DATA 

DATA wm* Mp 
DATA mm* PC 
data mm* ST 
DATA mm* MA 

(HA) mm* data 
INCREMENT MA 
data mm* (MA) 

ZERO DATA 

ENABLE RUN (RESTART) 
RETURN TO USER 
ENABLE 8IE 


WAIT PQR 10 MSEC 
CHECK SWITCHES 


CCWADi»CAftO/CAS8ITTi LOADER 943344-9903 RiV*;^ PA9E 0806 


il34 



♦ 

♦ 

TITLE • CARO/CASSETTEE LOAOR 

8195 



4 AUTHOR* 

JAY ALLEN 


8156 



* COMPUT|R*990»MIRA 


8197 



* ABSTRACTI! 


8156 



♦ ♦ 

ACCEPTS 990 RELOCATABLE AND A8S0LUTE CODE 

8199 



# * 

ACCEPTS ONE OR MODULES 

8160 



■If # 

WILL 

NOT PROCESS EXTERNAL REFS AND OEFS 

8161 



it # 

EXECUTION BESINS AT 

last entry vector 

8162 



* STATISTICS* 


8163 




OBJECT FORMAT 


8164 



♦ « 

TAG 

MEANIN6 

ACTION 

8169 



♦ * 

i 

MODULE 10 

UPDATE LOAD BIAS 

8166 



♦ ♦ 

1 

AB8 ENTRY 

SAVE ENTRY POINT 

0167 




2 

REL ENTRY 

SAVE ENTRY POINT 

8168 



# t 

3 

RELREF 

NONE 

8169 



If # 

4 

ABSREF 

NONE 

8l7i 




S 

RELOEF 

NONE 

0171 



♦ # 

6 

A88DEF 

NONE 

0172 




7 

checksum 

TEST CHECKSUM 

0173 



If t 

6 

NO CHECKSUM 

GET NEW RECORD 

8174 



# * 

9 

A88 LOAD 

UPDATE LOAD ADDRESS 

8179 



If t 

A 

REL LOAD 

UPDATE LOAD ADDRESS 

0178 




B 

ABS DATA 

LOAD DATA 

0177 



# # 

C 

REL data 

LOAD DATA 

0178 



♦ t 

D 

SET BIAS 

UPDATE LOAD BIAS FOR NEXT MODULE 

0179 



♦ # 

E 

UNUSED 

ERROR 

0180 



« # 

F 

TERMINATOR 

GET NEW RECORD 

0181 



# ♦ 

S 

REL SYSiOL 

SKIP 

0182 



t . « 

H 

ABS SYMBOL 

SKIP 

0183 



« ♦ 

I 

OLD IDT NAME 

SKIP 

0184 



# t 

4 

R8L TYPE 

SKIP 

0189 



t # 

1 

EOF 

START PROGRAM EXECUTION 

0186 


0089 

DTR 

SOU 

9 


0187 


000A 

RT8 

EQU 

10 


0188 


0008 

RRQ 

EQU 

11 


0189 


000C 

RRQ 

EQU 

12 


8190 


0080 

NSF 

EQU 

13 


0191 


0007 

prsnce 

EQU 

7 


0192 


0001 

NRIADY 

EQU 

1 


0193 


000F 

COLIND 

IQU 

15 


0194 


008F 

READ 

EQU 

15 


0199 



t 

REGISTER INITALIZATION 

0196 


FE86 

LOADER 

EQU 

S 


0197 

fE86 

038i 


R8ET 



0198 

7E88 

0203 


LI 

R3»STARTl 

DEFAULT END VECTOR 


FE8A 

FFCA 





0199 

FE8C 

0209 


LI 

RllfCETENT 

ENTRY POINT TO GET CHAR 


FE8E 

FFCi 





0200 

FE90 

0205 


LI 

R5,*F7FE 



FE92 

P7FE 





0201 


FE94 

MEMCLR 

EQU 

S 


0202 

FE94 

C565 


MOV 

*R5i *R6 


0203 

FE96 

0649 


DECT 

R5 


0204 

FE98 

18FD 


JOC 

MEMCLR 



w 



GCUQA0»CAR0/CA8SCTTS iOADER 943344-990S REV*;} PAGE 


B899 

Pi9A 

1O0A 


880 

RUNLGT 

enable restart 

0206 

FE9C 

1F0E 


TB 

MANTPL 

HAINTANCE PANEL PRESENTT 

0807 

FE9E 

1613 


JNE 

LORI 

YES USE panels loader 

080B 

FEA0 

020C 


LI 

R12fW40 

CR CRU BASE 


FEA2 

0040 





0209 

F6A4 

C000 


MOV 

R0,R0 

LOADER SELECT 

0210 

FEA6 

1609 


JNE 

CRINIT 


0211 

FEA8 

04CC 


CLR 

R12 

ASR CRU BASE 

0212 

FEAA 

1D09 


SBO 

DTR 


0219 

FIAC 

1O0A 


SBC 

RTS 


0214 

FEAE 

3220 


LDCR 

PPBON^e 



FEB0 

FFC0 





0219 


FI82 

CRINIT 

EQU 

S 


0219 



* GET 

NEW 

RECORD 


0217 


FEB2 

NEWREC 

EQU 

S 


0210 

FEB2 

C000 


MOV 

R0,»0 

LOADER SELECT 

0219 

FEB4 

1908 


JEO 

NEWRCl 


0220 

FIB6 

IF07 


TB 

PRSNCE 


0221 

FEB8 

13FE 


JEQ 

f»2 


0222 

FEBA 

1F01 


TB 

NREAOY 


0229 

FEBC 

13FE 


JEQ 

S-2 


0224 

FEBE 

IE0F 


8BZ 

READ 

READER ON 

0225 

FEC0 

1F07 


TB 

PRSNCE 


0226 

FEC2 

16FE 


JNE 

S«2 


0227 

FEC4 

ID0F 


SBO 

READ 


0228 


FEC6 

LORI 

EQU 

S 


0220 



NEWRCl 




0230 

FEC6 

04C7 


CLR 

R7 

CHECKSUM 

0291 



• GET 

NEW 

FIELD 


0232 


FEC8 

GETFEL 

EQU 

S 


8293 


FEC8 

RSI 

EQU 

s 


0234 

FEC8 

0696 


bl 

*R11 


0299 

FECA 

D0AA 


MOVB 

POPfRl0),R2 

JUMP DILPLACMENT 


FECC 

PFE4 





0296 

FECE 

1327 


JEQ 

FTAG 


0297 

FEO0 

0882 


SRA 

R2.8 


0298 

FED2 

C107 


MOV 

R7.R4 

SAVE CHECKSUM 

0299 

FED4 

0201 


LI 

Rl,4 

GET NEXT 4 CHARS 


FE06 

0004 





0240 


FED8 

REP 

EQU 

$ 


0241 

FEDS 

069B 


BL 

•Rii 


8242 

FEDA 

0A46 


SLA 

R6,4 

ACCUMULATOR 

0249 

FEOC 

Al«A 


A 

R10rR6 


0244 

FEOE 

0601 


DEC 

Rl 


0249 

FEE0 

l6fB 


JNE 

REP 


0246 


FEE2 

JPP 

EQU 

$ 


0247 

FEE2 

04(>2 


6 

•JMP(R2) 

GO TO TAG PROCESSOR 


FEE4 

FEE 2 





0248 


FEE6 

RELSYH 

EQU 

S 


0249 


FEE 6 

AB38YM 

EQU 

S 


0290 


FEE9 

RLOEF 

EQU 

s 


0291 


FEES 

ABOEF 

EQU 

s 


0292 


FEE6 

RLKEF 

EQU 

$ 


0293 


FEES 

A8REF 

EQU 

i 


0294 

FEE6 

0201 


LI 

Rl»6 
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FEE# 

0006 





0295 

FEE A 

1018 


JMP 

SKIP 

SKIP ilF/OIF 

0296 

FEIC 

A 189 

RELOAD 

A 

R9fR6 

RELOCATE 

0297 

FEIE 

C146 

ABLOAD 

MOV 

R6f R5 

GET NER LOAD AODRISS 

0299 

FEF# 

10E0 


JMP 

QETFEL 


0299 

FIF2 

A180 

REDATA 

A 

R9»R6 

RELOAATE 

0290 

FEF4 

DD46 

A0OATA 

M0V8 

Rei^RS* 

OAO DATA 

0261 

FEE 6 

06C6 


SWP8 

R6 


0262 

FEF8 

0046 


MQVB 

R6,*R94 


0263 

FEFA 

10E6 


JMP 

GETFEL 


0264 

FEFC 

A106 

CHECK 

A 

R6,R4 

CHECKSUM 

0265 

FEFE 

13E4 


4EQ 

GETFEL 


0266 


FF00 

EREXIT 

EQU 

S 


0267 

FF00 

0466 


B 

#2(Rll) 



FF02 

0002 





0268 

FF04 

C246 

8BIAS 

MOV 

R6,R9 

NEW RILOC LOAD BIAS, 

0269 

FF06 

0240 


ANDI 

R9,»FFFE 



FF08 

FFFE 





027i 

FF0A 

10DE 


JMP 

GETFEL 


0271 

FF0C 

A 180 

RLENT 

A 

R9fR6 

RELQACTE 

0272 

FF0E 

C0C6 

ABENT 

MOV 

R6,R3 

ENTRY VECTOR 

0273 

FF10 

1000 


JMP 

GETFEL 


0274 


FF12 

LENS 

EQU 

S 


0279 

FF12 

0201 

OLOIDT 

LI 

Rl»8 



FF14 

0009 





0276 


FP16 

SKIP 

IQU 

f 


0277 

FF16 

0690 


BL 

*Rll 


0278 

PFl# 

0601 


DEC 

R1 


0279 

FFIA 

16F0 


JNE 

SKIP 


0280 

FFIC 

10OS 


JMP 

GETFEL 


0281 



* 

STATUS MIL BE EQUAl. 

ON END OF record 

0282 


FFIE 

FTA6 

EQU 

S 


0283 

FFie 

069B 


BL 

*Rll 


0284 

FF20 

16FE 


JNE 

FTAG 


0209 

FF22 

10C7 


JMP 

NEWREC 



4 


w 
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0287 * 


0288 




GET 

CHAR CO» 

ROUTTNE 


0289 



« 

CALL 

FOR GET 

CHAR 


0290 




BL 

*R1 1 



0291 



H 





0292 



it 

CAUL 

TO ERROR EXIT 


0293 



it 

8 

•2(pn) 



0294 



a 





0299 



* 

Rll 

INITIAL 

VALUE IS 

AT END OF routine 

0298 



♦ 


E. G. 



0297 



* 

GETRT 8L 

*Rll 


0296 



♦ 

ENTRY JHP 

GET 


0299 








0300 


FF24 

GET 

EQU $ 




0301 

EP24 

C000 


HOV 

H0,R0 


loader slelect 

0302 

FF26 

1333 


J£0 

GTASR 



0303 



if 





0304 



it 

DECODE ANfj TRANSLATE 

CARD punches 

0309 








0308 

FF20 

1F07 


T8 

PRSNCE 



0307 

FF2A 

1634 


JNE 

EOR5ET 


GO set end of record 

0308 

FF2C 

lF0f 


T0 

COLIND 



0309 

FF2E 

l«FC 


JNE 

$<•6 



0310 

FF30 

340A 


STCR 

R10P0 


get card punches 

0311 



* 




1 123145671 PMZJ98 

0312 








0313 

FF32 

04C3 


CLR 

R8 



0314 

FF34 

D20A 


HOVB 

R10,R6 


1 123J45671 

0315 

FF36 

092A 


SRL 

R10»2 



0318 

FF38 

0ASA 


SLA 

R10. 11 


1PMZ918 1 

0317 



# 





031H 

FF3A 

098A 


INC 

H10 



0319 

FF3C 

0A19 


SLA 

R6, 1 



0320 

FF3F 

16FD 


JNE 

8 "4 



0321 



* 





0322 

FF40 

060A 


DEC 

R10 


IPMZ918 1 1 0p 

0323 



* 





0324 

>F42 

C20A 


NOV 

R10,R6 



0325 

F F 4 4 

06C9 


SRPB 

RB 


1 i 07»1PHZ918 

0326 

FF46 

E288 


sac 

R8,R10 



0327 

FF48 

C20A 


HOV 

R10,R8 


JPMZ910-»81PHZ910-^ 

0328 








0329 

FF4A 

024A 


ANDI 

R10.>F 




FF4C 

000P 






0330 

FF4E 

022 A 


A I 

R10»>30 


1 1 1 IU0— 


FF90 

0030 






0331 



* 





0332 

FF52 

0A19 


SLA 

R8, 1 


P? 

0333 

FF54 

1702 


JNC 

*♦6 



0334 

FF56 

022 A 


AI 

R10,>10 




FF98 

0010 






0335 



# 





0336 

FF6A 

0A18 


SLA 

R8» 1 


H? 

0337 

FF5C 

1702 


JNC 

$*8 
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M.548 

EF6|: 

022A 


AI 

91i#»19 



fP60 ■ 

0019 





i33» 







034? 

PF62 

0A13 


SLA 

R8rl 

2? 

0341 

FF64 

1702 


4NC 

S<»>5 


0342 

FF66 

022A 


AI 

R10f>23 



FF68 

0023 





0343 







0344 

FF6A 

0A13 


SLA 

R8, 1 

9? 

034S 

FF6C 

1702 


JNC 

S+6 


0348 

FF5F 

022A 


AI 

R10,»9 



FF70 

0009 





0347 



« 




0348 

FF72 

028A 


Cl 

8 10 » >30 

BLANK? 


FF74 

0030 





0349 

FF76 

1802 


4NE 

»+6 


i3Si 

FF78 

020A 


LI 

Rl«i>20 



FF7A 

0020 





0331 



* 




03S2 

FF7C 

025A 


Cl 

Rl0fA53 

Z? 


FF7E 

0053 





0353 

FFStfi 

1602 


JNE 

S+6 


0354 

FF5P 

,§20A 


LI 

R10»>30 



FF84 

0030 





035S 







0356 

FF56 

02BA 


Cl 

R10»>85 

2,2-9 


FF»8 

0085 





0357 

F F 8 A 

1101 


JLT 

S<«>4 


035S 

FF8C 

054A 


DECT 

R10 


0359 

FF8E 

1F0F 


T8 

COLIND 


035? 

FF90 

13FE 


JEO 

$-2 


0351 

FF92 

1010 


JhP 

GETl 


0352 


FF94 

E0R8IT 

EQU 

S 


0383 

FFS>4 

828A 


C 

R10fR10 

SET iOUAL status 

0364 

FF96 

1017 


4H9 

CETRT 


036S 


FF98 

GTASR 

E'SU 

$ 


0368 

FF95 

IF0C 


T8 

RRQ 


0357 

FF9A 

IfiFi 


4NE 

$-2 


0358 

FF9C 

lEiC 


SBZ 

RRQ 


0369 

FF9E 

3SCA 


STCR 

Ri0i7 


0370 

FFA? 

095A 


SRL 

R10»8 


0371 

FFA2 

025A 


Cl 

R10,»>D 

END OF RECORD? 


FFA4 

0000 





0372 

FFA6 

130F 


4EG 

GETRT 


0373 

ffap ■ 

025A 


Cl 

R 10, AS A 



FFAA 

008 A 





0374 

FFAC 

18F5 


JCT 

GTASR 


0375 

FFAE 

028A 


Cl 

R10,>20 



FFB0 

0020 





0378 

FFe2 

1 i F2 


JLT 

GTASR 


0377 


FF04 

GCTl 

iOM 

i 


0378 

FF64 

AICA 


A 

R10,R7 

UPDATE CHECKSUM 

0379 

FFB6 

022 A 


AI 

R10,«»A30 

CONVERT 


FFUa 

FFO0 





0350 

FFBA 

025A 


Cl 

R10, AA 




PASE 8011 
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Ff-8C 

880A 





03i| 

FFBf 

1300 


JEtJ 

EXIT 

END OF UOA 0 MODULI 

8332 


FFCe 

FBON 

EQU 

S 


8333 

FFC0 

1182 


JIT 

GETRT 


i334 

FFC2 

«22A 


AS 

Rl8i-7 



FFC4 

FFFSJ 





8385 


FFC6 

GETRT 

EQU 

$ 


1386 

FFC6 

8698 


Bt 

*Rlt 


i307 


FFC§ 

GETENT 

EQU 

s 


8338 

FFCe 

IPAD 


JMP 

GET 


8389 



# 

HERE 

ON ERROR EXIT 


i39i 


FFCA 

START! 

EQU 

S 

LOAD ERROR OR NO VICTOR 

8391 

FFCA 

834f 


IDLE 


indicate error with idle ligh 

8392 


FFCC 

EXIT 

eon 

1 


0393 

FFCC 

C08P 


HOV 

R0,R0 

LOADER SELECT 

8394 

FFCF 

I60S 


JnF 

RESET 


8395 

FFD0 

lEkiB 


S8Z 

WRQ 


8396 

FF02 

iF0C 


S82 

RRQ 


8397 

FF04 

05BI 


INC 

R1 


839B 

FFOe 

ISFE 


JNE 

S-2 


0399 

FF08 

IF8C 


T8 

RRQ 


0480 

FFOA 

|3F8 


JIG 

EXIT 


0481 

FFOC 

IE8$ 


S82 

QTR 


0482 

FFDE 

iCiD 


SB2 

NSF 


8483 


FFI8 

RESET 

EQU 

S 


0484 

FFE0 

8360 


RSKT 



0485 

FF£2 

8483 


8 

•R3 ENTRY 

VECTOR 
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04i7 





tf4ilA 



* JUMP TABU 


ii4i9 



************************* 


0410 

PFE4 

3i 

OP BYTE 

LENG«»4MP 


B4U 

FPE5 

2C 

BYTE 

ABENTpJBP 


04ii 

FFI6 

2A 

BYTE 

PLENTpJWP 


0413 

FFE7 

84 

BYTE 

PLPEF*-JMP 


0414 

FFE8 

04 

BYTE 

A8BEF-JHP 


8413 

FFE9 

84 

BYTE 

PLOEF^JWP 


0413 

FFEA 

04 

BYTE 

ABDEFwJMP 


841? 

FFI8 

lA 

BYTE 

check»jhp 


0418 

FFIC 

E6 

BYTE 

QETFEU-JMP 


0419 

FFED 

0C 

BYTE 

ABLOAOpJMP 


8420 

FFEE 

0A 

BYTE 

RELOADs-JMP 


0421 

FFIF 

12 

byte 

ABDATAwJBP 


0422 

FFF0 

10 

BYTE 

reoata.jmp 


0423 

FFFJ 

22 

BYTE 

SBlASwJHP 


0424 

FPF2 

IE 

BYTE 

EPEXITpJMP 


8425 

FFF3 

00 

BYTE 

0 


042i 

FFF4 

04 

BYTE 

REL3YM..J8P 


0427 

FFF5 

04 

BYTE 

ABSSYMwJBP 


0428 

FFF6 

30 

BYTE 

OLOIOT..4MP 


0429 

FFF7 

Efi 

BYTE 

RSlwJMP 


0430 

FFF8 

FE86 

DATA 

LOADER 


0431 

FFFA 

FEC8 

DATA 

LDRl 


0432 

FFFC 

F80i 

DATA 

FPWP 


8433 

FFFE 

FE0i 

DATA 

START 


8434 



* LQADFN EfiU LOADER 

W/0 SF-LF-sTEST 

0438 



* UQAOFN E9U »FOFC 

FOR SELF»TEST 

8438 


FDFC 

LOADFN EQU 

»FDFC 


0437 



* FPWP 

EQU *>F80« 

FOR prototyping SYSTEM 

0438 



* FPWP 

EQU »80 

OTHERWISE 

0439 


F8i0 

FPWP EOU 

»F000 


8448 



END 


0000 e«8 









AiOATA 

ABOEF 

A8ENT 

ABinAO 

ABREF 

ABSSYM 

CHECK 

chEk 

clear 

COUNO 

CRINIT 

CRUOFF 

OTR 

eoKset 

ERExn 

EXEC 

EXiT 

FP 

FPBIT 

FP8TRT 

PPRP 

FTAS 

FUNC 

SET 

SET I 

GETENT 
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concordance 

@071 

0083 

ii98 

0101 

0122 

0123 

0124 

0126 

0196 

§201 

§215 

§217 

0221 

0223 

0226 

0228 

0233 

0240 

0246 

§248 

0249 

0250 

0251 

0252 

0266 

0274 

0276 

0282 

0300 

0309 

0320 

0333 

@341 

§345 

0349 

0383 

0357 

0360 

0362 

0365 

@377 

§382 

§385 

0387 

0890 

0392 

0398 

0403 


B2BiB 

B25I 

0272 

0297 

0253 

0249 

0264 

0116 

0063 

0193 

0215 

0059 

01i6 

0362 

0266 

0121? 

0392 

0083 

0066 

0071 

0439 

0282 

0115 

0300 

0377 

0387 


0421 

0416 
0411 
@419 
0414 
0427 

0417 
0118 

0308 

0210 

0075 

0212 

0307 

0424 

0123 

0381 

0080 

@086 

0093 

0236 

0111 

0388 

0361 

0199 


§359 


0401 


§124 0126 

0400 


0432 

0284 




getfel 

0232 

0258 

§263 

§265 

0270 

0273 

0280 

0410 


GITRT 

0385 

0364 

0372 

0383 






GTA8R 

0366 

0302 

§374 

0376 






JHP 

0246 

0247 

0410 

0411 

0412 

0413 

0414 

0415 

0416 



@418 

0419 

§420 

0421 

0422 

0423 

0424 

0426 



0428 

§429 







loRi 

0228 

@207 

0431 







lens 

0274 

0410 








loader 

0196 

0430 








LOADFN 

0436 

0087 

§126 







LOOK 

0101 

0104 

§106 







LOOP 

0092 

@114 

§121 







MANTPL 

0066 

0206 








MEHCLR 

0201 

@204 








NEWRCl 

0229 

0219 








NENREC 

0217 

0285 








nready 

0192 

0222 








N8F 

0190 

0402 








OFF 

0096 

0097 

0099 







oldidt 

0276 

0428 








OP 

0410 

0235 








OVER 

0110 

0108 








PBON 

0382 

0214 








PRSNCC 

0191 

0220 

0225 

0306 






|RF* 

0036 

0082 

0393 

0088 

0209 

0209 

0218 

0218 

0301 

0301 

Rl 

0039 

0079 

§100 

0109 

0113 

0117 

0161 

0239 

0244 



0275 

0278 

0397 







0147 

0232 

0253 

0337 

0387 


0417 

0427 


0393 

0254 
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Rli 

0048 

0239 

0243 

0310 

0314 

0319 

iSli 

8318 

8322 

0324 



0326 

0327 

0329 

0330 

0834 

0338 

i34t 

8346 

8348 



0390 

0392 

0394 

0366 

0388 

0363 

0363 

0369 

0370 



0371 

0373 

0379 

0378 

0379 

0380 

8384 



RH 

0049 

0199 

0234 

0241 

0267 

0277 

0283 

0386 



R12 

0050 

0079 

0208 

0211 







R13 

0051 

0128 

0133 








R14 

0092 

0086 

0129 

0134 







Rl6 

0093 

0130 

0139 








R2 

0040 

0088 

0092 

0113 

0126 

0129 

0130 

0131 

0133 

0134 



0135 

0136 

0138 

0140 

0141 

0239 

0237 

0247 


R3 

0041 

0198 

0272 

0406 







R4 

0042 

0238 

0264 








R5 

0043 

0094 

0096 

0098 

0103 

0109 

0115 

iU6 

f I2i 

8280 



0202 

0202 

0203 

0237 

0260 

iS62 




R6 

0044 

0242 

0243 

0296 

0257 

0259 

0260 

0861 

0262 

0264 



0268 

0271 

0272 







R7 

0045 

0131 

0136 

0138 

0139 

0140 

0230 

if38 

0378 


R8 

0046 

0313 

0314 

0319 

0324 

0329 

0326 

i327 

0332 

0338 



0340 

0344 








R9 

0047 

0084 

0256 

0299 

0268 

0269 

0271 




READ 

0194 

0224 

0227 









RgOATA 0299 0422 

REUOAP 0286 042i 

Rft8YM 0246 0436 

«EP 0240 • 024S 

RESET 0403 0394 

«UDEP 0250 0415 

RUlNT 0271 0412 

RlREF 0252 0413 

R30 0169 0366 0368 0396 0399 

Rm. 0233 0429 

RT8 0187 0213 

RUN 0143 0124 

RUNl.iT 0064 0081 0143 0205 

8BIAS 0268 0423 

SCAN 0060 0102 

8ZI 0146 0123 

8I6PU6 0069 0145 

SKIP 0276 0255 0279 

START 0078 0433 

START! 0390 0198 

8TIMI 0067 0148 

SWP8 0062 0107 

TA0UE 0122 0120 

TIMER 0066 0149 

TYPE 0061 0110 

WAIT 0147 0094 

WAIT2 0149 0150 

WRi 0188 0395 

THIRE API 0094 SYM801.S 




